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