Changeset 18013

Timestamp:

08/22/08 06:07:51 (5 months ago)

Author:

tokuhirom

Message:

added test case

Files:

• lang/perl/Nanto/trunk/t/030_web_plugin/Authorizer-MobileJPID.t (modified) (2 diffs)

lang/perl/Nanto/trunk/t/030_web_plugin/Authorizer-MobileJPID.t

@@ -2 +2 @@
 use warnings;
 use t::Utils;
-use Test::More tests => 5;
+use Test::More tests => 7;
 
 handler->load_plugin({
@@ -14 +14 @@
 });
 
-# no pass
+# non mobile
 do {
     my $res = run_engine(
         'GET', '/'
+    );
+    is $res->code, 403;
+    is $res->content, 'this is member only page';
+};
+
+# no id
+do {
+    my $res = run_engine(
+        'GET', '/',
+        HTTP::Headers->new(
+            'User-Agent' => 'KDDI-SA31 UP.Browser/6.2.0.7.3.129 (GUI) MMP/2.0',
+        )
     );
     is $res->code, 403;