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!' );