[Jifty-commit] r2558 - in jifty/trunk: t/TestApp/t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Thu Jan 25 03:38:43 EST 2007
Author: jesse
Date: Thu Jan 25 03:38:43 2007
New Revision: 2558
Added:
jifty/trunk/t/TestApp/t/i18n-standalone.t
Modified:
jifty/trunk/ (props changed)
Log:
r21301 at hualien: jesse | 2007-01-25 14:41:19 +0800
* added a jiftyfied version if agentzh's i18n tests. I'm seeing one (french) failure
Added: jifty/trunk/t/TestApp/t/i18n-standalone.t
==============================================================================
--- (empty file)
+++ jifty/trunk/t/TestApp/t/i18n-standalone.t Thu Jan 25 03:38:43 2007
@@ -0,0 +1,59 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+use lib 't/lib';
+use Jifty::SubTest;
+
+use Jifty::Test tests => 12;
+use Jifty::Test::WWW::Mechanize;
+use Net::HTTP;
+use URI;
+
+use Encode 'decode';
+use utf8;
+use LWP::UserAgent;
+my $server = Jifty::Test->make_server;
+
+isa_ok($server, 'Jifty::Server');
+
+my $base = URI->new($server->started_ok);
+
+
+my $ua = LWP::UserAgent->new;
+my $res;
+
+$ua->default_header('Accept-Language' => "en");
+$res = $ua->get("$base/__jifty/admin/");
+ok $res->is_success, "can access admin console";
+like $res->content, qr/Models/, 'en works';
+
+$ua->default_header('Accept-Language' => "ja");
+$res = $ua->get("$base/__jifty/admin/");
+ok $res->is_success, "can access admin console";
+like adjust($res->content), qr/モデル/, 'ja works';
+
+$ua->default_header('Accept-Language' => "fr");
+$res = $ua->get("$base/__jifty/admin/");
+ok $res->is_success, "can access admin console";
+like adjust($res->content), qr/Modèles/, 'fr locale works';
+
+$ua->default_header('Accept-Language' => "zh-cn");
+$res = $ua->get("$base/__jifty/admin/");
+ok $res->is_success, "can access admin console";
+like adjust($res->content), qr/数据库/, 'zh-cn works';
+
+$ua->default_header('Accept-Language' => "zh-tw");
+$res = $ua->get("$base/__jifty/admin/");
+ok $res->is_success, "can access admin console";
+like adjust($res->content), qr/資料庫/, 'zh-tw works';
+
+sub adjust {
+ my $s = shift;
+ $s = decode('UTF-8', $s);
+ $s =~ s/<.*?>//gs;
+ $s =~ s/\s+/ /gs;
+ #$s =~ s/\W+//g;
+ #$s =~ s/\d+//g;
+ $s;
+}
More information about the Jifty-commit
mailing list