From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 3 May 2005 06:30:47 +0000 (+0000)
Subject: Convert to test.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=c057f5bc3ae09d10fe8e5f8cc5afe4cca331e177;p=p5sagit%2Fp5-mst-13.2.git

Convert to test.pl

p4raw-id: //depot/perl@24370
---

diff --git a/t/op/exp.t b/t/op/exp.t
index 5efc9ba..689f367 100755
--- a/t/op/exp.t
+++ b/t/op/exp.t
@@ -1,27 +1,31 @@
 #!./perl
 
-# $RCSfile: exp.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:50 $
+BEGIN {
+    chdir 't' if -d 't';
+    @INC = '../lib';
+    require './test.pl';
+}
 
-print "1..6\n";
+plan tests => 6;
 
 # compile time evaluation
 
 $s = sqrt(2);
-if (substr($s,0,5) eq '1.414') {print "ok 1\n";} else {print "not ok 1\n";}
+is(substr($s,0,5), '1.414');
 
 $s = exp(1);
-if (substr($s,0,7) eq '2.71828') {print "ok 2\n";} else {print "not ok 2\n";}
+is(substr($s,0,7), '2.71828');
 
-if (exp(log(1)) == 1) {print "ok 3\n";} else {print "not ok 3\n";}
+ok(exp(log(1)) == 1);
 
 # run time evaluation
 
 $x1 = 1;
 $x2 = 2;
 $s = sqrt($x2);
-if (substr($s,0,5) eq '1.414') {print "ok 4\n";} else {print "not ok 4\n";}
+is(substr($s,0,5), '1.414');
 
 $s = exp($x1);
-if (substr($s,0,7) eq '2.71828') {print "ok 5\n";} else {print "not ok 5\n";}
+is(substr($s,0,7), '2.71828');
 
-if (exp(log($x1)) == 1) {print "ok 6\n";} else {print "not ok 6\n";}
+ok(exp(log($x1)) == 1);