Commit | Line | Data |
cb0af213 |
1 | |
2 | require 5; |
3 | use strict; |
4 | use Test; |
5 | |
6 | # use a BEGIN block so we print our plan before MyModule is loaded |
7 | BEGIN { plan tests => 3 } |
8 | |
9 | ok 1; |
10 | print "# Locale::Maketext version $Locale::Maketext::VERSION\n"; |
11 | |
12 | #sub Locale::Maketext::DEBUG () {10}; |
13 | use Locale::Maketext (); |
14 | { package Whunk::L10N; use vars qw(@ISA %Lexicon); @ISA = 'Locale::Maketext'; |
15 | %Lexicon = ("hello" => "SROBLR!"); |
16 | } |
17 | { package Whunk::L10N::en; use vars qw(@ISA %Lexicon); @ISA = 'Whunk::L10N'; |
18 | %Lexicon = ("hello" => "HI AND STUFF!"); |
19 | } |
20 | { package Whunk::L10N::zh_tw; use vars qw(@ISA %Lexicon); @ISA = 'Whunk::L10N'; |
21 | %Lexicon = ("hello" => "NIHAU JOE!"); |
22 | } |
23 | |
24 | $ENV{'REQUEST_METHOD'} = 'GET'; |
25 | $ENV{'HTTP_ACCEPT_LANGUAGE'} = 'en-US, zh-TW'; |
26 | |
27 | my $x = Whunk::L10N->get_handle; |
28 | print "# LH object: $x\n"; |
29 | ok $x->maketext('hello'), "HI AND STUFF!"; |
30 | print "# OK bye\n"; |
31 | ok 1; |