Changeset 14000

Timestamp:

06/15/08 11:36:38 (5 years ago)

Author:

tokuhirom

Message:

r3492@gp (orig r142): tokuhiro | 2006-10-26 15:11:46 +0900

r4091@toco: tokuhiro | 2006-10-26 15:11:43 +0900
change order.

Location:

lang/perl/Sledge-Plugin-Inflate/trunk

Files:

• lib/Sledge/Plugin/Inflate.pm (modified) (1 diff)
• t/01.base.t (modified) (1 diff)

lang/perl/Sledge-Plugin-Inflate/trunk/lib/Sledge/Plugin/Inflate.pm

@@ -44 +44 @@
             $class->__inflate_rule(
                 {
+                    %{ $class->__inflate_rule },
                     %rule,
-                    %{ $class->__inflate_rule },
                 }
             );

lang/perl/Sledge-Plugin-Inflate/trunk/t/01.base.t

@@ -82 +82 @@
 foo_bar: baz
 
+=== order
+*** query
+*** input
+sub {
+    my $self = shift;
+
+    my $proto = ref $self;
+    $proto->add_inflate_rule(
+        'test' => sub { 'NG' },
+    );
+    $proto->add_inflate_rule(
+        'test' => sub { 'OK' },
+    );
+
+    $self->tmpl->param(test => $self->r->inflate('test'));
+}
+*** expected
+---
+test: OK
+
 === fail if not match the rule.
 *** query