From: Nicholas Clark <nick@ccl4.org>
Date: Wed, 1 Dec 2004 16:52:45 +0000 (+0000)
Subject: &test in constant.t is vestigial, so amputate it.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8c31f2f2bdae21a003f2d57f25c1b984e764a986;p=p5sagit%2Fp5-mst-13.2.git

&test in constant.t is vestigial, so amputate it.

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

diff --git a/lib/constant.t b/lib/constant.t
index 826a8de..1f1d0be 100644
--- a/lib/constant.t
+++ b/lib/constant.t
@@ -19,18 +19,6 @@ my $TB = Test::More->builder;
 
 BEGIN { use_ok('constant'); }
 
-sub test ($$;$) {
-    my($num, $bool, $diag) = @_;
-    if ($bool) {
-	print "ok $num\n";
-	return;
-    }
-    print "not ok $num\n";
-    return unless defined $diag;
-    $diag =~ s/\Z\n?/\n/;			# unchomp
-    print map "# $num : $_", split m/^/m, $diag;
-}
-
 use constant PI		=> 4 * atan2 1, 1;
 
 ok defined PI,                          'basic scalar constant';