1# -*- mode: perl; -*- 2 3use strict; 4use warnings; 5 6use Test::More tests => 4; 7 8{ 9 use bignum p => "12"; 10 for my $class ("Math::BigInt", "Math::BigFloat") { 11 cmp_ok($class -> precision(), "==", 12, "$class precision = 12"); 12 } 13 14 bignum -> import(precision => "23"); 15 for my $class ("Math::BigInt", "Math::BigFloat") { 16 cmp_ok($class -> precision(), "==", 23, "$class precision = 23"); 17 } 18} 19