4 BEGIN { plan tests => 11; }
5 use Locale::Maketext 1.01;
6 print "# Hi there...\n";
9 print "# --- Making sure that get_handle works ---\n";
11 # declare some classes...
14 @ISA = ('Locale::Maketext');
15 sub dubbil { return $_[1] * 2 }
16 sub numerate { return $_[2] . 'en' }
19 package Woozle::eu_mt;
22 'd2' => 'hum [dubbil,_1]',
23 'd3' => 'hoo [quant,_1,zaz]',
24 'd4' => 'hoo [*,_1,zaz]',
26 keys %Lexicon; # dodges the 'used only once' warning
30 print "# Basic sanity:\n";
31 ok defined( $lh = Woozle->get_handle('eu-mt') ) && ref($lh);
32 ok $lh && $lh->maketext('d2', 7), "hum 14" ;
36 print "# Make sure we can assign to ENV entries\n",
37 "# (Otherwise we can't run the subsequent tests)...\n";
38 $ENV{'MYORP'} = 'Zing';
39 ok $ENV{'MYORP'}, 'Zing';
40 $ENV{'SWUZ'} = 'KLORTHO HOOBOY';
41 ok $ENV{'SWUZ'}, 'KLORTHO HOOBOY';
46 print "# Test LANG...\n";
47 $ENV{'REQUEST_METHOD'} = '';
48 $ENV{'LANG'} = 'Eu_MT';
49 $ENV{'LANGUAGE'} = '';
50 ok defined( $lh = Woozle->get_handle() ) && ref($lh);
52 print "# Test LANGUAGE...\n";
54 $ENV{'LANGUAGE'} = 'Eu-MT';
55 ok defined( $lh = Woozle->get_handle() ) && ref($lh);
57 print "# Test HTTP_ACCEPT_LANGUAGE...\n";
58 $ENV{'REQUEST_METHOD'} = 'GET';
59 $ENV{'HTTP_ACCEPT_LANGUAGE'} = 'eu-MT';
60 ok defined( $lh = Woozle->get_handle() ) && ref($lh);
61 $ENV{'HTTP_ACCEPT_LANGUAGE'} = 'x-plorp, zaz, eu-MT, i-klung';
62 ok defined( $lh = Woozle->get_handle() ) && ref($lh);
63 $ENV{'HTTP_ACCEPT_LANGUAGE'} = 'x-plorp, zaz, eU-Mt, i-klung';
64 ok defined( $lh = Woozle->get_handle() ) && ref($lh);