blob: 2ab00bb07414d907a66cfe7a0ad851502c4d8437 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!/usr/bin/perl -w
###############################################################################
use Test;
use strict;
BEGIN
{
$| = 1;
chdir 't' if -d 't';
unshift @INC, '../lib';
plan tests => 4;
}
use bignum a => '12';
ok (Math::BigInt->accuracy(),12);
ok (Math::BigFloat->accuracy(),12);
bignum->import( accuracy => '23');
ok (Math::BigInt->accuracy(),23);
ok (Math::BigFloat->accuracy(),23);
|
