diff -ur Catalyst-Plugin-I18N-0.08.original/t/04live.t Catalyst-Plugin-I18N-0.08/t/04live.t --- Catalyst-Plugin-I18N-0.08.original/t/04live.t 2008-06-12 13:23:21.000000000 +0000 +++ Catalyst-Plugin-I18N-0.08/t/04live.t 2009-07-05 07:25:31.882026833 +0000 @@ -6,7 +6,7 @@ use FindBin; use lib "$FindBin::Bin/lib"; -use Test::More tests => 24; +use Test::More tests => 32; use Catalyst::Test 'TestApp'; BEGIN { @@ -116,4 +116,34 @@ is( $response->content, $expected, 'Content OK' ); } + # test fallback to i_default + { + my $expected = 'Hello - default'; + my $request = + HTTP::Request->new( GET => 'http://localhost:3000/maketext/messages.hello' ); + + $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 AUTO in i_default + { + my $expected = 'no.key'; + my $request = + HTTP::Request->new( GET => 'http://localhost:3000/maketext/no.key' ); + + $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' ); + } + } Only in Catalyst-Plugin-I18N-0.08.original/t: .04live.t.swp Only in Catalyst-Plugin-I18N-0.08/t/lib/TestApp/I18N: i_default.po