Move Locale::Maketext from ext/ to dist/
[perl.git] / dist / Locale-Maketext / t / 60_super.t
1 #!/usr/bin/perl -Tw
2
3 use strict;
4 use Test::More tests => 3;
5
6 BEGIN {
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
34 my $x = Whunk::L10N->get_handle;
35 isa_ok( $x, 'Whunk::L10N::en' );
36 print "# LH object: $x\n";
37 is( $x->maketext('hello'), 'HI AND STUFF!' );