Commit | Line | Data |
---|---|---|
f666394a | 1 | #!/usr/bin/perl -Tw |
2 | ||
3 | use strict; | |
5350a4e5 | 4 | |
b6703958 | 5 | use Test::More tests => 4; |
5350a4e5 | 6 | use Locale::Maketext; |
7 | print "# Hi there...\n"; | |
b6703958 | 8 | pass(); |
5350a4e5 | 9 | |
10 | print "# --- Making sure that Perl globals are localized ---\n"; | |
11 | ||
12 | # declare a class... | |
13 | { | |
14 | package Woozle; | |
f666394a | 15 | our @ISA = ('Locale::Maketext'); |
16 | our %Lexicon = ( | |
5350a4e5 | 17 | _AUTO => 1 |
18 | ); | |
19 | keys %Lexicon; # dodges the 'used only once' warning | |
20 | } | |
21 | ||
b6703958 | 22 | my $lh = Woozle->new(); |
23 | ok(ref $lh, 'Basic sanity'); | |
5350a4e5 | 24 | |
5350a4e5 | 25 | $@ = 'foo'; |
b6703958 | 26 | is($lh->maketext('Eval error: [_1]', $@), 'Eval error: foo', |
27 | 'Make sure $@ is localized'); | |
5350a4e5 | 28 | |
29 | print "# Byebye!\n"; | |
b6703958 | 30 | pass(); |