--- ../Font-AFM-1.19.orig/t/afm.t	1999-02-22 18:52:21.000000000 +0000
+++ t/afm.t	2007-11-25 16:45:41.000000000 +0000
@@ -5,13 +5,12 @@
 };
 if ($@) {
    if ($@ =~ /Can't find the AFM file for/) {
-	print "1..0\n";
-	print $@;
-	print "ok 1\n";
+	print "1..0 # Can't find required font\n";
+	warn "# $@";
    } else {
 	print "1..1\n";
-	print $@;
-	print "not ok 1\n";
+	warn "# $@";
+	print "not ok 1 Found font OK\n";
    }
    exit;
 }
@@ -20,10 +19,8 @@
 $sw = $font->stringwidth("Gisle Aas");
 
 if ($sw == 4279) {
-    print "Stringwith for Helvetica seems to work\n";
-    print "ok 1\n";
+    print "ok 1 Stringwith for Helvetica seems to work\n";
 } else {
-    print "not ok 1\n";
-    print "The stringwidth of 'Gisle Aas' should be 4279 (is was $sw)\n";
+    print "not ok 1 The stringwidth of 'Gisle Aas' should be 4279 (is was $sw)\n";
 }