Changeset 18014

Timestamp:

08/22/08 06:16:20 (5 months ago)

Author:

tokuhirom

Message:

added more tests

Location:

lang/perl/Nanto/trunk/t

Files:

• 020_web/Handler.t (added)
• Web/C/Foo.pm (modified) (1 diff)
• lib/Foo/Web/Dispatcher.pm (modified) (1 diff)

lang/perl/Nanto/trunk/t/Web/C/Foo.pm

@@ -13 +13 @@
 };
 
+on 'die' => {
+    GET => sub {
+        die "ORZ ORZ"
+    },
+};
+
 1;

lang/perl/Nanto/trunk/t/lib/Foo/Web/Dispatcher.pm

@@ -5 +5 @@
 
 connect '',  {controller => 'Foo', action => 'simple_html', args => {} };
+connect 'die',  {controller => 'Foo', action => 'die', args => {} };
 
 1;