[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