1 files changed, 11 insertions, 3 deletions
diff --git a/cpan/Unicode-Collate/t/trailwt.t b/cpan/Unicode-Collate/t/trailwt.t
index de2d92cd1f..1a6966e5a6 100644
--- a/cpan/Unicode-Collate/t/trailwt.t
+++ b/cpan/Unicode-Collate/t/trailwt.t
@@ -11,11 +11,19 @@ BEGIN {
     }
 }
 
-use Test;
-BEGIN { plan tests => 58 };
-
 use strict;
 use warnings;
+BEGIN { $| = 1; print "1..58\n"; }
+my $count = 0;
+sub ok ($;$) {
+    my $p = my $r = shift;
+    if (@_) {
+	my $x = shift;
+	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
+    }
+    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
+}
+
 use Unicode::Collate;
 
 ok(1);