view release on metacpan or  search on metacpan

t/plugin_i18n.t  view on Meta::CPAN

use FindBin;
use lib "$FindBin::Bin/plugin_i18n/lib";

use Ark::Test 'TestApp';

# test Lexicon
{
    my $expected = 'Bonjour';
    my $request  =
        HTTP::Request->new( GET => '/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 => '/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 => '/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 fallback (i.e. fr-ca => fr)
{
    my $expected = 'fr';
    my $request  =
        HTTP::Request->new( GET => '/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' );
}
done_testing;

t/plugin_i18n_bug.t  view on Meta::CPAN

use strict;
use warnings;
use Test::More;
use Test::Requires 'Locale::Maketext::Lexicon', 'Locale::Maketext::Simple';

use FindBin;
use lib "$FindBin::Bin/plugin_i18n/lib";

use Ark::Test 'TestApp::SubApp';
use HTTP::Request::Common;

my $req = GET '/hello';
$req->header('Accept-Language' => 'ja' );

my $res = request $req;

is $res->code, '200';
is $res->content, 'こんにちは';

done_testing;

t/plugin_i18n_utf8.t  view on Meta::CPAN

use FindBin;
use lib "$FindBin::Bin/plugin_i18n/lib";

use Ark::Test 'TestApp';
use Encode;

# test Lexicon
{
    my $expected = 'Bonjour';
    my $request  =
        HTTP::Request->new( GET => '/maketext/Hello' );

    $request->header( 'Accept-Language' => 'ja' );

    ok( my ($response, $c) = ctx_request($request), 'Request' );
    ok( $response->is_success, 'Response Successful 2xx' );
    is( $response->code, 200, 'Response Code' );
    is( $response->content, encode_utf8('こんにちは'), 'response encoded ok');

    is(utf8::is_utf8($c->stash->{body}), 1, 'utf-8 flagged ok');