From: Nicholas Clark <nick@ccl4.org>
Date: Fri, 23 Oct 2009 19:44:42 +0000 (+0100)
Subject: Convert the odd Locale::Maketext test out from Test to Test::More.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b6703958fc5a9cc56804c26040a6a8aaa7c26dfb;p=p5sagit%2Fp5-mst-13.2.git

Convert the odd Locale::Maketext test out from Test to Test::More.

All the others were using Test::More already.
---

diff --git a/dist/Locale-Maketext/t/30_local.t b/dist/Locale-Maketext/t/30_local.t
index 379197e..8b89777 100644
--- a/dist/Locale-Maketext/t/30_local.t
+++ b/dist/Locale-Maketext/t/30_local.t
@@ -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();