1#!perl 2 3############################################################################### 4 5use strict; 6use warnings; 7 8use Test::More tests => 4; 9 10use bignum a => '12'; 11 12my @CLASSES = qw/Math::BigInt Math::BigFloat/; 13 14foreach my $class (@CLASSES) { 15 is($class->accuracy(),12, "$class accuracy = 12"); 16} 17 18bignum->import(accuracy => '23'); 19 20foreach my $class (@CLASSES) { 21 is($class->accuracy(), 23, "$class accuracy = 23"); 22} 23