xref: /openbsd-src/gnu/usr.bin/perl/cpan/bignum/t/option_p.t (revision eac174f2741a08d8deb8aae59a7f778ef9b5d770)
1# -*- mode: perl; -*-
2
3use strict;
4use warnings;
5
6use Test::More tests => 6;
7
8{
9    my $class = "Math::BigInt";
10
11    use bigint p => "12";
12    cmp_ok($class -> precision(), "==", 12, "$class precision = 12");
13
14    bigint -> import(precision => "23");
15    cmp_ok($class -> precision(), "==", 23, "$class precision = 23");
16}
17
18{
19    my $class = "Math::BigFloat";
20
21    use bigfloat p => "13";
22    cmp_ok($class -> precision(), "==", 13, "$class precision = 12");
23
24    bigfloat -> import(precision => "24");
25    cmp_ok($class -> precision(), "==", 24, "$class precision = 23");
26}
27
28{
29    my $class = "Math::BigRat";
30
31    use bigrat p => "14";
32    cmp_ok($class -> precision(), "==", 14, "$class precision = 12");
33
34    bigrat -> import(precision => "25");
35    cmp_ok($class -> precision(), "==", 25, "$class precision = 23");
36}
37