@@ -1,5 +1,5 @@
# -*- perl -*-
-BEGIN { require 5.008; } # allow CPAN testers to get the point
+BEGIN { require 5.006; } # allow CPAN testers to get the point
use strict;
use warnings;
use Config;
Makefile.PL
@@ -42,9 +42,12 @@ $var = dualvar($numstr, "");
ok( $var == $numstr, 'NV');
-$var = dualvar(1<<31, "");
-ok( $var == (1<<31), 'UV 1');
-ok( $var > 0, 'UV 2');
+SKIP: {
+ skip("dualvar with UV value known to fail with $]",2) if $] < 5.006_001;
+ $var = dualvar(1<<31, "");
+ ok( $var == (1<<31), 'UV 1');
+ ok( $var > 0, 'UV 2');
+}
tie my $tied, 'Tied';
$var = dualvar($tied, "ok");
t/dualvar.t
@@ -58,11 +58,12 @@ use overload
}
}
-use bignum;
-
-my $v1 = 2**65;
-my $v2 = $v1 - 1;
-my $v3 = $v2 - 1;
-$v = max($v1,$v2,$v1,$v3,$v1);
-is($v, $v1, 'bigint');
-
+SKIP: {
+ eval { require bignum; } or skip("Need bignum for testing overloading",1);
+
+ my $v1 = 2**65;
+ my $v2 = $v1 - 1;
+ my $v3 = $v2 - 1;
+ $v = max($v1,$v2,$v1,$v3,$v1);
+ is($v, $v1, 'bigint');
+}
t/max.t
@@ -58,11 +58,12 @@ use overload
}
}
-use bignum;
-
-my $v1 = 2**65;
-my $v2 = $v1 - 1;
-my $v3 = $v2 - 1;
-$v = min($v1,$v2,$v1,$v3,$v1);
-is($v, $v3, 'bigint');
-
+SKIP: {
+ eval { require bignum; } or skip("Need bignum for testing overloading",1);
+
+ my $v1 = 2**65;
+ my $v2 = $v1 - 1;
+ my $v3 = $v2 - 1;
+ $v = min($v1,$v2,$v1,$v3,$v1);
+ is($v, $v3, 'bigint');
+}
t/min.t
@@ -71,7 +71,9 @@ ok(openhandle(*DATA{IO}), "works for *DATA{IO}");
ok(!openhandle(IO::File->new), "unopened IO::File" );
}
-{
+SKIP: {
+ skip( "Tied handles only on 5.8 or later", 1) if $]<5.008;
+
use vars qw(*H);
package My::Tie;
t/openhan.t
@@ -11,7 +11,7 @@ BEGIN {
exit 0;
}
}
- if ($] eq "5.008009" or $] eq "5.010000") {
+ if ($] eq "5.008009" or $] eq "5.010000" or $] le "5.006002") {
print "1..0 # Skip: known to fail on $]\n";
exit 0;
}
t/stack-corruption.t
@@ -58,10 +58,12 @@ use overload
}
}
-use bignum;
-
-my $v1 = 2**65;
-my $v2 = 2**65;
-my $v3 = $v1 + $v2;
-$v = sum($v1,$v2);
-is($v, $v3, 'bignum');
+SKIP: {
+ eval { require bignum; } or skip("Need bignum for testing overloading",1);
+
+ my $v1 = 2**65;
+ my $v2 = 2**65;
+ my $v3 = $v1 + $v2;
+ $v = sum($v1,$v2);
+ is($v, $v3, 'bignum');
+}
t/sum.t
eddddcccda4fe0e3484378850b345c60fbcab010
Graham Barr
gbarr@pobox.com
http://github.com/gbarr/Scalar-List-Utils/commit/8ce1f4f337d327717683b2b2b82ca4c35f542066
8ce1f4f337d327717683b2b2b82ca4c35f542066
2009-05-13T14:41:55-07:00
2009-05-13T14:40:00-07:00
Revert minimum version needed to 5.6
add SKIP blocks to tests so known failures do not arise on
older versions of perl
26f82fb78ea2e9a8f641dd07455952b46ea309e8
Graham Barr
gbarr@pobox.com