From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Sat, 18 May 2002 18:43:35 +0000 (+0000)
Subject: Prettyprinting.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6bc70b07c300bf1e4bf8c9a1206ec07c98536b57;p=p5sagit%2Fp5-mst-13.2.git

Prettyprinting.

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

diff --git a/t/op/recurse.t b/t/op/recurse.t
index a86744e..374813c 100755
--- a/t/op/recurse.t
+++ b/t/op/recurse.t
@@ -49,24 +49,24 @@ sub takeuchi {
 	    : $_[2];
 }
 
-is(gcd(1147, 1271), 31, "gcd(1147, 1271)");
+is(gcd(1147, 1271), 31, "gcd(1147, 1271) == 31");
 
-is(gcd(1908, 2016), 36, "gcd(1908, 2016)");
+is(gcd(1908, 2016), 36, "gcd(1908, 2016) == 36");
 
-is(factorial(10), 3628800, "factorial(10)");
+is(factorial(10), 3628800, "factorial(10) == 3628800");
 
-is(factorial(factorial(3)), 720, "factorial(factorial(3))");
+is(factorial(factorial(3)), 720, "factorial(factorial(3)) == 720");
 
-is(fibonacci(10), 89, "fibonacci(10)");
+is(fibonacci(10), 89, "fibonacci(10) == 89");
 
-is(fibonacci(fibonacci(7)), 17711, "fibonacci(fibonacci(7))");
+is(fibonacci(fibonacci(7)), 17711, "fibonacci(fibonacci(7)) == 17711");
 
 my @ack = qw(1 2 3 4 2 3 4 5 3 5 7 9 5 13 29 61);
 
 for my $x (0..3) { 
     for my $y (0..3) {
 	my $a = ackermann($x, $y);
-	is($a, shift(@ack), "ackermann($x, y)");
+	is($a, shift(@ack), "ackermann($x, $y) == $a");
     }
 }