This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Better test diagnostics for the numbers tests.
authorNicholas Clark <nick@ccl4.org>
Fri, 14 Jan 2005 19:56:42 +0000 (19:56 +0000)
committerNicholas Clark <nick@ccl4.org>
Fri, 14 Jan 2005 19:56:42 +0000 (19:56 +0000)
(Failure diagnostics were always good, but now the tests have names,
which show even when they pass)

p4raw-id: //depot/perl@23805

t/op/pack.t

index 2d4f6a3..72ac95b 100755 (executable)
@@ -476,8 +476,8 @@ sub numbers_with_total {
         skip "cannot pack '$format' on this perl", 2
           if is_valid_error($@);
 
-        is($@, '');
-        is($out, $_);
+        is($@, '', "no error");
+        is($out, $_, "unpack pack $format $_");
     }
   }
 
@@ -496,8 +496,8 @@ sub numbers_with_total {
       skip "cannot pack '$format' on this perl", 3
         if is_valid_error($@);
 
-      is($@, '');
-      ok(defined $sum);
+      is($@, '', "no error");
+      ok(defined $sum, "sum bits $_, format $format defined");
 
       my $len = $_; # Copy, so that we can reassign ''
       $len = 16 unless length $len;
@@ -544,7 +544,7 @@ sub numbers_with_total {
         }
 
         if ($calc_sum == $sum) { # HAS to be ==, not eq (so no is()).
-            ok ("unpack '%$_$format' gave $sum");
+            pass ("unpack '%$_$format' gave $sum");
         } else {
             my $delta = 1.000001;
             if ($format =~ tr /dDfF//
@@ -559,7 +559,7 @@ sub numbers_with_total {
             }
         }
       }
-    }   
+    }
   }
 }