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