Change 20932 by [EMAIL PROTECTED] on 2003/08/29 13:06:06
Better skip() explicit number of tests, test counts getting
out of sync less likely that way.
Affected files ...
... //depot/perl/t/op/pack.t#86 edit
Differences ...
==== //depot/perl/t/op/pack.t#86 (xtext) ====
Index: perl/t/op/pack.t
--- perl/t/op/pack.t#85~20931~ Fri Aug 29 05:59:32 2003
+++ perl/t/op/pack.t Fri Aug 29 06:06:06 2003
@@ -180,15 +180,15 @@
SKIP: {
# Is this a stupid thing to do on VMS, VOS and other unusual platforms?
- skip "-- the IEEE infinity model is unavailable in this configuration."
+ skip("-- the IEEE infinity model is unavailable in this configuration.", 1)
if (($^O eq 'VMS') && !defined($Config{useieee}));
- skip "-- $^O has serious fp indigestion on w-packed infinities"
+ skip("-- $^O has serious fp indigestion on w-packed infinities", 1)
if (($^O eq 'mpeix') || ($^O eq 'ultrix'));
my $inf = eval '2**10000';
- skip "Couldn't generate infinity - got error '$@'"
+ skip("Couldn't generate infinity - got error '$@'", 1)
unless defined $inf and $inf == $inf / 2 and $inf + 1 == $inf;
local our $TODO;
@@ -201,16 +201,16 @@
SKIP: {
- skip "-- the full range of an IEEE double may not be available in this
configuration."
+ skip("-- the full range of an IEEE double may not be available in this
configuration.", 3)
if (($^O eq 'VMS') && !defined($Config{useieee}));
- skip "-- $^O does not like 2**1023"
+ skip("-- $^O does not like 2**1023", 3)
if (($^O eq 'ultrix'));
# This should be about the biggest thing possible on an IEEE double
my $big = eval '2**1023';
- skip "Couldn't generate 2**1023 - got error '$@'", 3
+ skip("Couldn't generate 2**1023 - got error '$@'", 3)
unless defined $big and $big != $big / 2;
eval { $x = pack 'w', $big };
End of Patch.
