30_local.t

来自「source of perl for linux application,」· T 代码 · 共 33 行

#!/usr/bin/perl -Tw

use strict;

use Test;
BEGIN { plan tests => 4; }
use Locale::Maketext;
print "# Hi there...\n";
ok 1;

print "# --- Making sure that Perl globals are localized ---\n";

# declare a class...
{
  package Woozle;
  our @ISA = ('Locale::Maketext');
  our %Lexicon = (
    _AUTO => 1
  );
  keys %Lexicon; # dodges the 'used only once' warning
}

my $lh;
print "# Basic sanity:\n";
ok defined( $lh = Woozle->new() ) && ref($lh);

print "# Make sure \$@ is localized...\n";
$@ = 'foo';
ok $lh && $lh->maketext('Eval error: [_1]', $@), 'Eval error: foo';

print "# Byebye!\n";
ok 1;