[Jifty-commit] r3198 - jifty/trunk/t/TestApp-Plugin-PasswordAuth/t
jifty-commit at lists.jifty.org
jifty-commit at lists.jifty.org
Sun May 6 04:24:07 EDT 2007
Author: yves
Date: Sun May 6 04:24:07 2007
New Revision: 3198
Added:
jifty/trunk/t/TestApp-Plugin-PasswordAuth/t/12-i18n.t
Log:
a failing test about utf8 when using T::D
Added: jifty/trunk/t/TestApp-Plugin-PasswordAuth/t/12-i18n.t
==============================================================================
--- (empty file)
+++ jifty/trunk/t/TestApp-Plugin-PasswordAuth/t/12-i18n.t Sun May 6 04:24:07 2007
@@ -0,0 +1,52 @@
+#!/usr/bin/env perl
+use warnings;
+use strict;
+
+=head1 DESCRIPTION
+
+Basic tests for I18N.
+
+=cut
+
+use lib 't/lib';
+use Jifty::SubTest;
+
+use Jifty::Test tests => 7;
+use Jifty::Test::WWW::Mechanize;
+
+use Encode 'decode';
+use utf8;
+use LWP::UserAgent;
+
+
+my $server = Jifty::Test->make_server;
+isa_ok($server, 'Jifty::Server');
+
+my $URL = $server->started_ok;
+my $mech = Jifty::Test::WWW::Mechanize->new();
+
+$mech->get_ok("$URL/login","Got login page");
+
+my $ua = LWP::UserAgent->new;
+my $res;
+
+$ua->default_header('Accept-Language' => "en");
+$res = $ua->get("$URL/login");
+ok $res->is_success, "can access login page";
+like $res->content, qr/Lost your password/, 'en works';
+
+$ua->default_header('Accept-Language' => "fr");
+$res = $ua->get("$URL/login");
+ok $res->is_success, "can access login page";
+like adjust($res->content), qr/oublié/,'fr login 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