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