Changeset 24478

Timestamp:

11/20/08 18:05:54 (7 weeks ago)

Author:

tokuhirom

Message:

oops

Files:

• lang/perl/MENTA/trunk/t/mobile.t (modified) (2 diffs)

lang/perl/MENTA/trunk/t/mobile.t

@@ -1 +1 @@
 use Test::More tests => 1;
 use t::Utils;
+use Encode;
+use utf8;
 
 my $out = run_cgi(
@@ -7 +9 @@
     HTTP_USER_AGENT => 'UP.Browser/3.04-TS13 UP.Link/3.4.4'
 );
-like $out, qr/あなたのブラウザは EZweb です/;
+like decode('cp932', $out), qr/あなたのブラウザは EZweb です/;