Convert the odd Locale::Maketext test out from Test to Test::More.
Nicholas Clark [Fri, 23 Oct 2009 19:44:42 +0000 (20:44 +0100)]
All the others were using Test::More already.

dist/Locale-Maketext/t/30_local.t

index 379197e..8b89777 100644 (file)
@@ -2,11 +2,10 @@
 
 use strict;
 
-use Test;
-BEGIN { plan tests => 4; }
+use Test::More tests => 4;
 use Locale::Maketext;
 print "# Hi there...\n";
-ok 1;
+pass();
 
 print "# --- Making sure that Perl globals are localized ---\n";
 
@@ -20,13 +19,12 @@ print "# --- Making sure that Perl globals are localized ---\n";
   keys %Lexicon; # dodges the 'used only once' warning
 }
 
-my $lh;
-print "# Basic sanity:\n";
-ok defined( $lh = Woozle->new() ) && ref($lh);
+my $lh = Woozle->new();
+ok(ref $lh, 'Basic sanity');
 
-print "# Make sure \$@ is localized...\n";
 $@ = 'foo';
-ok $lh && $lh->maketext('Eval error: [_1]', $@), 'Eval error: foo';
+is($lh->maketext('Eval error: [_1]', $@), 'Eval error: foo',
+  'Make sure $@ is localized');
 
 print "# Byebye!\n";
-ok 1;
+pass();