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    use vars qw(@ISA %Lexicon);
13    @ISA =  'Locale::Maketext';
14    %Lexicon = ('hello' => 'SROBLR!');
15}
16
17{
18    package Whunk::L10N::en;
19    use vars qw(@ISA %Lexicon);
20    @ISA =  'Whunk::L10N';
21    %Lexicon = ('hello' => 'HI AND STUFF!');
22}
23
24{
25    package Whunk::L10N::zh_tw;
26    use vars qw(@ISA %Lexicon);
27    @ISA =  'Whunk::L10N';
28    %Lexicon = ('hello' => 'NIHAU JOE!');
29}
30
31$ENV{'REQUEST_METHOD'} = 'GET';
32$ENV{'HTTP_ACCEPT_LANGUAGE'} = 'en-US, zh-TW';
33
34my $x = Whunk::L10N->get_handle;
35isa_ok( $x, 'Whunk::L10N::en' );
36print "# LH object: $x\n";
37is( $x->maketext('hello'), 'HI AND STUFF!' );
38