xref: /openbsd/gnu/usr.bin/perl/cpan/bignum/t/option_a.t (revision eac174f2) 
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 a => "12";
12    cmp_ok($class -> accuracy(), "==", 12, "$class accuracy = 12");
13
14    bigint -> import(accuracy => "23");
15    cmp_ok($class -> accuracy(), "==", 23, "$class accuracy = 23");
16}
17
18{
19    my $class = "Math::BigFloat";
20
21    use bigfloat a => "13";
22    cmp_ok($class -> accuracy(), "==", 13, "$class accuracy = 12");
23
24    bigfloat -> import(accuracy => "24");
25    cmp_ok($class -> accuracy(), "==", 24, "$class accuracy = 23");
26}
27
28{
29    my $class = "Math::BigRat";
30
31    use bigrat a => "14";
32    cmp_ok($class -> accuracy(), "==", 14, "$class accuracy = 12");
33
34    bigrat -> import(accuracy => "25");
35    cmp_ok($class -> accuracy(), "==", 25, "$class accuracy = 23");
36}
37