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
index 23fa2ac..8b89777 100644 (file)
@@ -2,8 +2,12 @@
 
 use strict;
 
-use Test::More tests => 3;
+use Test::More tests => 4;
 use Locale::Maketext;
+print "# Hi there...\n";
+pass();
+
+print "# --- Making sure that Perl globals are localized ---\n";
 
 # declare a class...
 {
@@ -16,8 +20,11 @@ use Locale::Maketext;
 }
 
 my $lh = Woozle->new();
-isa_ok($lh, 'Woozle');
+ok(ref $lh, 'Basic sanity');
 
 $@ = 'foo';
-is($lh->maketext('Eval error: [_1]', $@), 'Eval error: foo', "Make sure \$@ is localized when passed to maketext");
-is($@, 'foo', "\$@ wasn't modified during call");
+is($lh->maketext('Eval error: [_1]', $@), 'Eval error: foo',
+  'Make sure $@ is localized');
+
+print "# Byebye!\n";
+pass();