[Catalyst-commits] r6584 - in trunk/Catalyst-Plugin-I18N/t: . lib lib/TestApp/I18N

[bricas at dev.catalyst.perl.org]

Author: bricas
Date: 2007-07-19 19:50:01 +0100 (Thu, 19 Jul 2007)
New Revision: 6584

Modified:
   trunk/Catalyst-Plugin-I18N/t/04live.t
   trunk/Catalyst-Plugin-I18N/t/lib/TestApp.pm
   trunk/Catalyst-Plugin-I18N/t/lib/TestApp/I18N/en_us.pm
   trunk/Catalyst-Plugin-I18N/t/lib/TestApp/I18N/fr.pm
Log:
line endings

Modified: trunk/Catalyst-Plugin-I18N/t/04live.t
===================================================================
--- trunk/Catalyst-Plugin-I18N/t/04live.t	2007-07-19 15:25:13 UTC (rev 6583)
+++ trunk/Catalyst-Plugin-I18N/t/04live.t	2007-07-19 18:50:01 UTC (rev 6584)
@@ -1,119 +1,119 @@
-#!perl
-
-use strict;
-use warnings;
-
-use FindBin;
-use lib "$FindBin::Bin/lib";
-
-use Test::More tests => 24;
-use Catalyst::Test 'TestApp';
-
-BEGIN {
-    no warnings 'redefine';
-
-    *Catalyst::Test::local_request = sub {
-        my ( $class, $request ) = @_;
-
-        require HTTP::Request::AsCGI;
-        my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
-
-        $class->handle_request;
-
-        return $cgi->restore->response;
-    };
-}
-
-run_tests();
-
-sub run_tests {
-
-    # test Lexicon
-    {
-        my $expected = 'Bonjour';
-        my $request  =
-          HTTP::Request->new( GET => 'http://localhost:3000/maketext/Hello' );
-
-        $request->header( 'Accept-Language' => 'fr' );
-
-        ok( my $response = request($request), 'Request' );
-        ok( $response->is_success, 'Response Successful 2xx' );
-        is( $response->code, 200, 'Response Code' );
-
-        is( $response->content, $expected, 'Content OK' );
-    }
-
-    # test .po
-    {
-        my $expected = 'Hallo';
-        my $request  =
-          HTTP::Request->new( GET => 'http://localhost:3000/maketext/Hello' );
-
-        $request->header( 'Accept-Language' => 'de' );
-
-        ok( my $response = request($request), 'Request' );
-        ok( $response->is_success, 'Response Successful 2xx' );
-        is( $response->code, 200, 'Response Code' );
-
-        is( $response->content, $expected, 'Content OK' );
-    }
-
-    # test language()
-    {
-        my $expected = 'fr';
-        my $request  =
-          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
-
-        $request->header( 'Accept-Language' => 'fr' );
-
-        ok( my $response = request($request), 'Request' );
-        ok( $response->is_success, 'Response Successful 2xx' );
-        is( $response->code, 200, 'Response Code' );
-
-        is( $response->content, $expected, 'Content OK' );
-    }
-
-    # test language()/language_tag()
-    {
-        my $expected = 'en_us';
-        my $request  =
-          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
-
-        $request->header( 'Accept-Language' => 'en-us' );
-
-        ok( my $response = request($request), 'Request' );
-        ok( $response->is_success, 'Response Successful 2xx' );
-        is( $response->code, 200, 'Response Code' );
-
-        is( $response->content, $expected, 'Content OK' );
-    }
-    {
-        my $expected = 'en-us';
-        my $request  =
-          HTTP::Request->new( GET => 'http://localhost:3000/current_language_tag' );
-
-        $request->header( 'Accept-Language' => 'en-us' );
-
-        ok( my $response = request($request), 'Request' );
-        ok( $response->is_success, 'Response Successful 2xx' );
-        is( $response->code, 200, 'Response Code' );
-
-        is( $response->content, $expected, 'Content OK' );
+#!perl
+
+use strict;
+use warnings;
+
+use FindBin;
+use lib "$FindBin::Bin/lib";
+
+use Test::More tests => 24;
+use Catalyst::Test 'TestApp';
+
+BEGIN {
+    no warnings 'redefine';
+
+    *Catalyst::Test::local_request = sub {
+        my ( $class, $request ) = @_;
+
+        require HTTP::Request::AsCGI;
+        my $cgi = HTTP::Request::AsCGI->new( $request, %ENV )->setup;
+
+        $class->handle_request;
+
+        return $cgi->restore->response;
+    };
+}
+
+run_tests();
+
+sub run_tests {
+
+    # test Lexicon
+    {
+        my $expected = 'Bonjour';
+        my $request  =
+          HTTP::Request->new( GET => 'http://localhost:3000/maketext/Hello' );
+
+        $request->header( 'Accept-Language' => 'fr' );
+
+        ok( my $response = request($request), 'Request' );
+        ok( $response->is_success, 'Response Successful 2xx' );
+        is( $response->code, 200, 'Response Code' );
+
+        is( $response->content, $expected, 'Content OK' );
     }
 
-    # test fallback (i.e. fr-ca => fr)
-    {
-        my $expected = 'fr';
-        my $request  =
-          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
-
-        $request->header( 'Accept-Language' => 'fr-ca' );
-
-        ok( my $response = request($request), 'Request' );
-        ok( $response->is_success, 'Response Successful 2xx' );
-        is( $response->code, 200, 'Response Code' );
-
-        is( $response->content, $expected, 'Content OK' );
+    # test .po
+    {
+        my $expected = 'Hallo';
+        my $request  =
+          HTTP::Request->new( GET => 'http://localhost:3000/maketext/Hello' );
+
+        $request->header( 'Accept-Language' => 'de' );
+
+        ok( my $response = request($request), 'Request' );
+        ok( $response->is_success, 'Response Successful 2xx' );
+        is( $response->code, 200, 'Response Code' );
+
+        is( $response->content, $expected, 'Content OK' );
     }
-
-}
+
+    # test language()
+    {
+        my $expected = 'fr';
+        my $request  =
+          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
+
+        $request->header( 'Accept-Language' => 'fr' );
+
+        ok( my $response = request($request), 'Request' );
+        ok( $response->is_success, 'Response Successful 2xx' );
+        is( $response->code, 200, 'Response Code' );
+
+        is( $response->content, $expected, 'Content OK' );
+    }
+
+    # test language()/language_tag()
+    {
+        my $expected = 'en_us';
+        my $request  =
+          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
+
+        $request->header( 'Accept-Language' => 'en-us' );
+
+        ok( my $response = request($request), 'Request' );
+        ok( $response->is_success, 'Response Successful 2xx' );
+        is( $response->code, 200, 'Response Code' );
+
+        is( $response->content, $expected, 'Content OK' );
+    }
+    {
+        my $expected = 'en-us';
+        my $request  =
+          HTTP::Request->new( GET => 'http://localhost:3000/current_language_tag' );
+
+        $request->header( 'Accept-Language' => 'en-us' );
+
+        ok( my $response = request($request), 'Request' );
+        ok( $response->is_success, 'Response Successful 2xx' );
+        is( $response->code, 200, 'Response Code' );
+
+        is( $response->content, $expected, 'Content OK' );
+    }
+
+    # test fallback (i.e. fr-ca => fr)
+    {
+        my $expected = 'fr';
+        my $request  =
+          HTTP::Request->new( GET => 'http://localhost:3000/current_language' );
+
+        $request->header( 'Accept-Language' => 'fr-ca' );
+
+        ok( my $response = request($request), 'Request' );
+        ok( $response->is_success, 'Response Successful 2xx' );
+        is( $response->code, 200, 'Response Code' );
+
+        is( $response->content, $expected, 'Content OK' );
+    }
+
+}

Modified: trunk/Catalyst-Plugin-I18N/t/lib/TestApp/I18N/en_us.pm
===================================================================
--- trunk/Catalyst-Plugin-I18N/t/lib/TestApp/I18N/en_us.pm	2007-07-19 15:25:13 UTC (rev 6583)
+++ trunk/Catalyst-Plugin-I18N/t/lib/TestApp/I18N/en_us.pm	2007-07-19 18:50:01 UTC (rev 6584)
@@ -1,12 +1,12 @@
-package TestApp::I18N::en_us;
-
-use strict;
-use warnings;
-
-use base qw( TestApp::I18N );
-
-our %Lexicon = (
-    'Hello' => 'Yo!'
-);
-
+package TestApp::I18N::en_us;
+
+use strict;
+use warnings;
+
+use base qw( TestApp::I18N );
+
+our %Lexicon = (
+    'Hello' => 'Yo!'
+);
+
 1;

Modified: trunk/Catalyst-Plugin-I18N/t/lib/TestApp/I18N/fr.pm
===================================================================
--- trunk/Catalyst-Plugin-I18N/t/lib/TestApp/I18N/fr.pm	2007-07-19 15:25:13 UTC (rev 6583)
+++ trunk/Catalyst-Plugin-I18N/t/lib/TestApp/I18N/fr.pm	2007-07-19 18:50:01 UTC (rev 6584)
@@ -1,12 +1,12 @@
-package TestApp::I18N::fr;
-
-use strict;
-use warnings;
-
-use base qw( TestApp::I18N );
-
-our %Lexicon = (
-    'Hello' => 'Bonjour'
-);
-
-1;
\ No newline at end of file
+package TestApp::I18N::fr;
+
+use strict;
+use warnings;
+
+use base qw( TestApp::I18N );
+
+our %Lexicon = (
+    'Hello' => 'Bonjour'
+);
+
+1;

Modified: trunk/Catalyst-Plugin-I18N/t/lib/TestApp.pm
===================================================================
--- trunk/Catalyst-Plugin-I18N/t/lib/TestApp.pm	2007-07-19 15:25:13 UTC (rev 6583)
+++ trunk/Catalyst-Plugin-I18N/t/lib/TestApp.pm	2007-07-19 18:50:01 UTC (rev 6584)
@@ -1,27 +1,27 @@
-package TestApp;
-
-use strict;
-use Catalyst qw/I18N/;
-
-our $VERSION = '0.01';
-
-TestApp->config( name => 'TestApp', root => '/some/dir' );
-
-TestApp->setup;
-
-sub maketext : Global {
-    my( $self, $c, $key ) = @_;
-    $c->res->body( $c->localize( $key ) );
-}
-
-sub current_language : Global {
-    my( $self, $c ) = @_;
-    $c->res->body( $c->language );
-}
+package TestApp;
 
+use strict;
+use Catalyst qw/I18N/;
+
+our $VERSION = '0.01';
+
+TestApp->config( name => 'TestApp', root => '/some/dir' );
+
+TestApp->setup;
+
+sub maketext : Global {
+    my( $self, $c, $key ) = @_;
+    $c->res->body( $c->localize( $key ) );
+}
+
+sub current_language : Global {
+    my( $self, $c ) = @_;
+    $c->res->body( $c->language );
+}
+
 sub current_language_tag : Global {
-    my( $self, $c ) = @_;
-    $c->res->body( $c->language_tag );
+    my( $self, $c ) = @_;
+    $c->res->body( $c->language_tag );
 }
-
+
 1;