diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2005-04-03 12:43:10 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-04-05 10:40:35 +0000 |
| commit | 233f7bc03a8f0557d08657ec772040b570b403cd (patch) | |
| tree | 79d51b536240e85541715cab4dfd5099e0bd29b5 /lib/Math/BigInt/t/calling.t | |
| parent | 43e4f2c68f8de551ce4632b5fbfb077a650c967e (diff) | |
| download | perl-233f7bc03a8f0557d08657ec772040b570b403cd.tar.gz | |
[Patch] Math::BigInt v1.76, Math::BigRat v0.15, bignum v0.17
Message-Id: <200504031043.12273@bloodgate.com>
p4raw-id: //depot/perl@24155
Diffstat (limited to 'lib/Math/BigInt/t/calling.t')
| -rw-r--r-- | lib/Math/BigInt/t/calling.t | 17 |
1 files changed, 3 insertions, 14 deletions
diff --git a/lib/Math/BigInt/t/calling.t b/lib/Math/BigInt/t/calling.t index 71c6b48c97..7376bad0f5 100644 --- a/lib/Math/BigInt/t/calling.t +++ b/lib/Math/BigInt/t/calling.t @@ -55,11 +55,11 @@ use overload; package main; -use Math::BigInt; +use Math::BigInt lib => 'Calc'; use Math::BigFloat; my ($x,$y,$z,$u); -my $version = '1.61'; # adjust manually to match latest release +my $version = '1.76'; # adjust manually to match latest release ############################################################################### # check whether op's accept normal strings, even when inherited by subclasses @@ -106,7 +106,7 @@ $class = 'Math::BigInt'; $try = "use $class ($version,'lib','foo, bar , ');"; $try .= "$class\->config()->{lib};"; $ans = eval $try; -ok ( $ans, "Math::BigInt::Calc"); +ok ( $ans =~ /^Math::BigInt::(Fast)?Calc\z/, 1); # test whether constant works or not, also test for qw($version) # bgcd() is present in subclass, too @@ -125,17 +125,6 @@ $ans = eval $try; ok ( $ans, "1024"); # all done -############################################################################### -# Perl 5.005 does not like ok ($x,undef) - -sub ok_undef - { - my $x = shift; - - ok (1,1) and return if !defined $x; - ok ($x,'undef'); - } - __END__ &is_zero 1:0 |