This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Math-BigInt: netbsd-vax: different float range
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 22 Oct 2016 12:58:30 +0000 (08:58 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 22 Oct 2016 19:51:14 +0000 (15:51 -0400)
cpan/Math-BigInt/t/bigintpm.inc

index e996c69..d793ce1 100644 (file)
@@ -564,9 +564,13 @@ is($x->bsstr(), '105e+13', # not 1.05e+15
 $z = 1e+129;                   # definitely a float (may fail on UTS)
 # don't compare to $z, since some Perl versions stringify $z into something
 # like '1.e+129' or something equally ugly
+SKIP:{
+my $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/);
+skip("vax float range smaller", 1) if $vax_float;
 $x = $CLASS->new($z);
 is($x->bsstr(), '1e+129',
    qq|\$x = $CLASS->new($z); \$x->bsstr() = "1e+129"|);
+}
 
 ###############################################################################
 # test for whitespace including newlines to be handled correctly