From: Vincent Pit <vince@profvince.com>
Date: Tue, 10 Nov 2009 21:32:48 +0000 (+0100)
Subject: Port t/op/reverse.t to test.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a8136c1e0af23b491813e1678a650261d9a5017f;p=p5sagit%2Fp5-mst-13.2.git

Port t/op/reverse.t to test.pl
---

diff --git a/t/op/reverse.t b/t/op/reverse.t
index bb7b9b7..7afaac7 100644
--- a/t/op/reverse.t
+++ b/t/op/reverse.t
@@ -3,23 +3,22 @@
 BEGIN {
     chdir 't' if -d 't';
     @INC = '../lib';
+    require './test.pl';
 }
 
-print "1..4\n";
+plan tests => 5;
 
-print "not " unless reverse("abc")    eq "cba";
-print "ok 1\n";
+is(reverse("abc"), "cba");
 
 $_ = "foobar";
-print "not " unless reverse()         eq "raboof";
-print "ok 2\n";
+is(reverse(), "raboof");
 
 {
     my @a = ("foo", "bar");
     my @b = reverse @a;
 
-    print "not " unless $b[0] eq $a[1] && $b[1] eq $a[0];
-    print "ok 3\n";
+    is($b[0], $a[1]);
+    is($b[1], $a[0]);
 }
 
 {
@@ -28,6 +27,5 @@ print "ok 2\n";
     my $a = "\x{263A}\x{263A}x\x{263A}y\x{263A}";
     my $b = scalar reverse($a);
     my $c = scalar reverse($b);
-    print "not " unless $a eq $c;
-    print "ok 4\n";
+    is($a, $c);
 }