1#! perl 2 3use strict; 4use warnings; 5use Test::More tests => 24; 6use_ok('Math::BaseCalc'); 7 8my $calc = new Math::BaseCalc(digits=>[0,1]); 9isa_ok($calc, "Math::BaseCalc"); 10 11 12my @calcs; 13push(@calcs, new Math::BaseCalc(digits => [ '0', '&' ])); 14push(@calcs, new Math::BaseCalc(digits => [ '0', '-' ])); 15 16for my $calcX ( @calcs ) { 17 for my $source (0..10) { 18 my $in_base_X = $calcX->to_base( $source ); 19 my $in_base_10 = $calcX->from_base( $in_base_X ); 20 21 is $in_base_10, $source, "from( to ( $source ) == $source "; 22 } 23} 24