9 # to locate the testing files
10 my $location = $0; $location =~ s/bare_mbi.t//i;
11 print "loc $location\n";
14 # testing with the core distribution
17 unshift @INC, qw(../lib); # to locate the modules
22 unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
26 unshift @INC, $location;
28 print "# INC = @INC\n";
33 use Math::BigInt lib => 'BareCalc';
35 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
36 $class = "Math::BigInt";
37 $CL = "Math::BigInt::BareCalc";
39 my $version = '1.48'; # for $VERSION tests, match current release (by hand!)
41 require 'bigintpm.inc'; # perform same tests as bigintpm