This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Revert "From: Todd Rinaldo <toddr@cpanel.net>"
[perl5.git] / dist / Locale-Maketext / t / 30_local.t
1 #!/usr/bin/perl -Tw
2
3 use strict;
4
5 use Test::More tests => 4;
6 use Locale::Maketext;
7 print "# Hi there...\n";
8 pass();
9
10 print "# --- Making sure that Perl globals are localized ---\n";
11
12 # declare a class...
13 {
14   package Woozle;
15   our @ISA = ('Locale::Maketext');
16   our %Lexicon = (
17     _AUTO => 1
18   );
19   keys %Lexicon; # dodges the 'used only once' warning
20 }
21
22 my $lh = Woozle->new();
23 ok(ref $lh, 'Basic sanity');
24
25 $@ = 'foo';
26 is($lh->maketext('Eval error: [_1]', $@), 'Eval error: foo',
27   'Make sure $@ is localized');
28
29 print "# Byebye!\n";
30 pass();