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

p4raw-id: //depot/perl@23588

1 files changed, 0 insertions, 12 deletions

diff --git a/lib/constant.t b/lib/constant.t
index 826a8de495..1f1d0be3d9 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';