[Jifty-commit] r3198 - jifty/trunk/t/TestApp-Plugin-PasswordAuth/t

[jifty-commit at lists.jifty.org]

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;
+}
+