&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 (file)
--- 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';