Changeset 8632 for lang/perl/HTTP-MobileAttribute/trunk

Timestamp:

04/02/08 11:30:48 (5 years ago)

Author:

tokuhirom

Message:

リクエストオブジェクトを追加

Location:

lang/perl/HTTP-MobileAttribute/trunk

Files:

• lib/HTTP/MobileAttribute/Request (added)
• lib/HTTP/MobileAttribute/Request.pm (added)
• lib/HTTP/MobileAttribute/Request/Apache.pm (added)
• lib/HTTP/MobileAttribute/Request/Env.pm (added)
• lib/HTTP/MobileAttribute/Request/HTTPHeaders.pm (added)
• t/01_request.t (modified) (4 diffs)

lang/perl/HTTP-MobileAttribute/trunk/t/01_request.t

@@ -1 +1 @@
 use strict;
+use warnings;
 use Test::More tests => 9;
 
-BEGIN { use_ok 'HTTP::MobileAttribute' }
+BEGIN { use_ok 'HTTP::MobileAttribute::Request' }
 
 # various way to make request
@@ -9 +10 @@
 
 {
-    my $agent = HTTP::MobileAttribute->new($ua);
-    isa_ok $agent, 'HTTP::MobileAttribute';
-    is $agent->user_agent, $ua;
+    my $req = HTTP::MobileAttribute::Request->new($ua);
+    isa_ok $req, 'HTTP::MobileAttribute::Request::Env';
+    is $req->get('user_agent'), $ua;
 }
 
 {
     local $ENV{HTTP_USER_AGENT} = $ua;
-    my $agent = HTTP::MobileAttribute->new($ua);
-    isa_ok $agent, 'HTTP::MobileAttribute';
-    is $agent->user_agent, $ua;
+    my $req = HTTP::MobileAttribute::Request->new($ua);
+    isa_ok $req, 'HTTP::MobileAttribute::Request::Env';
+    is $req->get('user_agent'), $ua;
 }
 
@@ -27 +28 @@
     my $header = HTTP::Headers->new;
     $header->header('User-Agent' => $ua);
-    my $agent = HTTP::MobileAttribute->new($header);
-    isa_ok $agent, 'HTTP::MobileAttribute';
-    is $agent->user_agent, $ua;
+
+    my $req = HTTP::MobileAttribute::Request->new($header);
+    isa_ok $req, 'HTTP::MobileAttribute::Request::HTTPHeaders';
+    is $req->get('user_agent'), $ua;
 }
 
@@ -42 +44 @@
     package main;
     my $r = bless { 'User-Agent' => $ua }, 'Apache';
-    my $agent = HTTP::MobileAttribute->new($r);
-    isa_ok $agent, 'HTTP::MobileAttribute';
-    is $agent->user_agent, $ua;
+    my $req = HTTP::MobileAttribute::Request->new($r);
+    isa_ok $req, 'HTTP::MobileAttribute::Request::Apache';
+    is $req->get('User-Agent'), $ua;
 }