This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Scalar-List-Utils: netbsd-vax: no inf/nan
authorJarkko Hietaniemi <jhi@iki.fi>
Sat, 22 Oct 2016 12:42:00 +0000 (08:42 -0400)
committerJarkko Hietaniemi <jhi@iki.fi>
Sat, 22 Oct 2016 19:51:18 +0000 (15:51 -0400)
cpan/Scalar-List-Utils/t/uniq.t

index 5a6925d..e47b407 100644 (file)
@@ -70,6 +70,10 @@ is_deeply( [ uniqnum qw( 1 1.1 1.2 1.3 ) ],
            [ 1, 1.1, 1.2, 1.3 ],
            'uniqnum distinguishes floats' );
 
+SKIP: {
+my $vax_float = (pack("d",1) =~ /^[\x80\x10]\x40/);
+skip("VAX does not have inf/nan", 1) if $vax_float;
+
 # Hard to know for sure what an Inf is going to be. Lets make one
 my $Inf = 0 + 1E1000;
 my $NaN;
@@ -78,6 +82,7 @@ $Inf **= 1000 while ( $NaN = $Inf - $Inf ) == $NaN;
 is_deeply( [ uniqnum 0, 1, 12345, $Inf, -$Inf, $NaN, 0, $Inf, $NaN ],
            [ 0, 1, 12345, $Inf, -$Inf, $NaN ],
            'uniqnum preserves the special values of +-Inf and Nan' );
+}
 
 {
     my $maxint = ~0;