Changeset 4179 for lang/perl/HTTP-MobileAgent/trunk

Timestamp:

01/07/08 19:25:51 (5 years ago)

Author:

tokuhirom

Message:

HTTP-MobileAgent?: NonMobile? is xhtml_compliant.

Location:

lang/perl/HTTP-MobileAgent/trunk

Files:

• lib/HTTP/MobileAgent/NonMobile.pm (modified) (1 diff)
• t/06_nonmobile.t (modified) (2 diffs)

lang/perl/HTTP-MobileAgent/trunk/lib/HTTP/MobileAgent/NonMobile.pm

@@ -25 +25 @@
 sub carrier_longname { 'NonMobile' }
 
+sub xhtml_compliant { 1 }
 
 1;

lang/perl/HTTP-MobileAgent/trunk/t/06_nonmobile.t

@@ -1 +1 @@
 use strict;
-use Test::More tests => 1476;
+use Test::More tests => 164 * 10;
 use HTTP::MobileAgent;
 
@@ -16 +16 @@
     ok $agent->carrier eq 'N';
     ok $agent->carrier_longname eq 'NonMobile';
+    ok $agent->xhtml_compliant;
 }