Changeset 18012

Timestamp:

08/22/08 06:01:29 (5 months ago)

Author:

tokuhirom

Message:

refactor the test

Files:

• lang/perl/Nanto/trunk/t/030_web_plugin/MobileAttribute.t (modified) (1 diff)

lang/perl/Nanto/trunk/t/030_web_plugin/MobileAttribute.t

@@ -2 +2 @@
 use warnings;
 use Test::More tests => 2;
-use Nanto::Web::Plugin::MobileAttribute;
+use t::Utils;
 use HTTP::Engine::Request;
 use HTTP::Engine::RequestBuilder;
+use Nanto::Web::Plugin::MobileAttribute;
 
-my $req = HTTP::Engine::Request->new(
-    headers => {
+my $req = HTTP::Request->new(
+    GET => '/' => HTTP::Headers->new(
         'User-Agent' => 'DoCoMo/1.0/D504i/c10/TJ',
+    ),
+);
+my $res = HTTP::Engine->new(
+    interface => {
+        module          => 'Test',
+        args            => {},
+        request_handler => sub {
+            my $req = shift;
+            isa_ok $req->mobile_attribute, 'HTTP::MobileAttribute::Agent::DoCoMo';
+            is $req->mobile_attribute->user_agent, 'DoCoMo/1.0/D504i/c10/TJ';
+            HTTP::Engine::Response->new(status=>200);
+        },
     },
-    _connection => {},
-    request_builder => HTTP::Engine::RequestBuilder->new(),
-);
-isa_ok $req->mobile_attribute, 'HTTP::MobileAttribute::Agent::DoCoMo';
-is $req->mobile_attribute->user_agent, 'DoCoMo/1.0/D504i/c10/TJ';
+)->run($req);