diff options
Diffstat (limited to 't/op/numconvert.t')
| -rw-r--r-- | t/op/numconvert.t | 15 |
1 files changed, 5 insertions, 10 deletions
diff --git a/t/op/numconvert.t b/t/op/numconvert.t index 73a35864cb..758369e563 100644 --- a/t/op/numconvert.t +++ b/t/op/numconvert.t @@ -54,18 +54,13 @@ my $max_uv_less3 = $max_uv1 - 3; print "# max_uv1 = $max_uv1, max_uv2 = $max_uv2, big_iv = $big_iv\n"; print "# max_uv_less3 = $max_uv_less3\n"; if ($max_uv1 ne $max_uv2 or $big_iv > $max_uv1 or $max_uv1 == $max_uv_less3) { - print "1..0 # skipped: unsigned perl arithmetic is not sane"; - eval { require Config; import Config }; - use vars qw(%Config); - if ($Config{d_quad} eq 'define') { - print " (common in 64-bit platforms)"; - } - print "\n"; - exit 0; + eval { require Config; }; + my $message = 'unsigned perl arithmetic is not sane'; + $message .= " (common in 64-bit platforms)" if $Config::Config{d_quad}; + skip_all($message); } if ($max_uv_less3 =~ tr/0-9//c) { - print "1..0 # skipped: this perl stringifies large unsigned integers using E notation\n"; - exit 0; + skip_all('this perl stringifies large unsigned integers using E notation'); } my $st_t = 4*4; # We try 4 initializers and 4 reporters |