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();