gnu/usr.bin/perl/cpan/bignum/t/option_p.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

#!perl

use strict;
use warnings;

use Test::More tests => 4;

my @CLASSES = qw/Math::BigInt Math::BigFloat/;

use bignum p => '12';

foreach my $class (@CLASSES) {
    is($class->precision(), 12, "$class precision = 12");
}

bignum->import(p => '42');

foreach my $class (@CLASSES) {
    is($class->precision(), 42, "$class precision = 42");
}