diff options
Diffstat (limited to 'dist/Math-BigInt/t/req_mbfa.t')
-rw-r--r-- | dist/Math-BigInt/t/req_mbfa.t | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/dist/Math-BigInt/t/req_mbfa.t b/dist/Math-BigInt/t/req_mbfa.t new file mode 100644 index 0000000000..2c2f9f2257 --- /dev/null +++ b/dist/Math-BigInt/t/req_mbfa.t @@ -0,0 +1,32 @@ +#!/usr/bin/perl -w + +# check that simple requiring BigFloat and then bnan() works + +use strict; +use Test; + +BEGIN + { + $| = 1; + # to locate the testing files + my $location = $0; $location =~ s/req_mbfa.t//i; + unshift @INC, qw(../lib); # to locate the modules + if (-d 't') + { + chdir 't'; + require File::Spec; + unshift @INC, File::Spec->catdir(File::Spec->updir, $location); + } + else + { + unshift @INC, $location; + } + print "# INC = @INC\n"; + + plan tests => 1; + } + +require Math::BigFloat; my $x = Math::BigFloat->bnan(1); ok ($x,'NaN'); + +# all tests done + |