diff options
| author | Tels <nospam-abuse@bloodgate.com> | 2005-01-01 19:59:51 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-01-04 08:36:50 +0000 |
| commit | b68b7ab1e328997a801e104fc190aa117fc75775 (patch) | |
| tree | 40601ec203bce143a7c0b70593e8f236f7972227 /lib/bignum/t/option_p.t | |
| parent | 755db5d606be076ff7c6dcb6af89e15fb080c85e (diff) | |
| download | perl-b68b7ab1e328997a801e104fc190aa117fc75775.tar.gz | |
Math::BigInt v1.74, Math::BigRat v0.14, bignum v0.16
Message-Id: <200501011859.52858@bloodgate.com>
p4raw-id: //depot/perl@23739
Diffstat (limited to 'lib/bignum/t/option_p.t')
| -rwxr-xr-x | lib/bignum/t/option_p.t | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/lib/bignum/t/option_p.t b/lib/bignum/t/option_p.t index c6df4ad1f4..b84883be4b 100755 --- a/lib/bignum/t/option_p.t +++ b/lib/bignum/t/option_p.t @@ -1,8 +1,6 @@ #!/usr/bin/perl -w -############################################################################### - -use Test; +use Test::More; use strict; BEGIN @@ -10,11 +8,22 @@ BEGIN $| = 1; chdir 't' if -d 't'; unshift @INC, '../lib'; - plan tests => 2; + plan tests => 4; } +my @C = qw/Math::BigInt Math::BigFloat/; + use bignum p => '12'; -ok (Math::BigInt->precision(),12); -ok (Math::BigFloat->precision(),12); +foreach my $c (@C) + { + is ($c->precision(),12, "$c precision = 12"); + } + +bignum->import( p => '42' ); + +foreach my $c (@C) + { + is ($c->precision(),42, "$c precision = 42"); + } |