1#!/usr/bin/perl -Tw
2
3use strict;
4use Test::More tests => 3;
5
6BEGIN {
7    use_ok( 'Locale::Maketext' );
8}
9
10{
11    package Whunk::L10N;
12    our @ISA =  'Locale::Maketext';
13    our %Lexicon = ('hello' => 'SROBLR!');
14}
15
16{
17    package Whunk::L10N::en;
18    our @ISA =  'Whunk::L10N';
19    our %Lexicon = ('hello' => 'HI AND STUFF!');
20}
21
22{
23    package Whunk::L10N::zh_tw;
24    our @ISA =  'Whunk::L10N';
25    our %Lexicon = ('hello' => 'NIHAU JOE!');
26}
27
28$ENV{'REQUEST_METHOD'} = 'GET';
29$ENV{'HTTP_ACCEPT_LANGUAGE'} = 'en-US, zh-TW';
30
31my $x = Whunk::L10N->get_handle;
32isa_ok( $x, 'Whunk::L10N::en' );
33print "# LH object: $x\n";
34is( $x->maketext('hello'), 'HI AND STUFF!' );
35