Changeset 18015

Timestamp:

08/22/08 06:27:09 (5 months ago)

Author:

tokuhirom

Message:

added more test cases

Location:

lang/perl/Nanto/trunk/t

Files:

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

lang/perl/Nanto/trunk/t/020_web/Handler.t

@@ -4 +4 @@
 use Test::More;
 
-plan tests => 3;
+plan tests => 5;
 
 # 404
@@ -22 +22 @@
     is $res->code, 500;
 };
+
+# 500(but, no response)
+do {
+    my $res = run_engine(
+        'GET', '/no_response'
+    );
+    is $res->code, 500, 'no response';
+};
+
+# 500(but, invalid object)
+do {
+    my $res = run_engine(
+        'GET', '/invalid_object'
+    );
+    is $res->code, 500, 'invalid object';
+};
+

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

@@ -19 +19 @@
 };
 
+on 'no_response' => {
+    GET => sub { },
+};
+
+on 'invalid_object' => {
+    GET => sub {
+        return bless {}, 'ThisIsInvalid'
+    },
+};
+
 1;

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

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