1#!/usr/bin/perl -w 2 3# test rounding, accuracy, precicion and fallback, round_mode and mixing 4# of classes under BareCalc 5 6use strict; 7use Test; 8 9BEGIN 10 { 11 $| = 1; 12 # to locate the testing files 13 my $location = $0; $location =~ s/bare_mif.t//i; 14 if ($ENV{PERL_CORE}) 15 { 16 @INC = qw(../t/lib); # testing with the core distribution 17 } 18 unshift @INC, '../lib'; # for testing manually 19 if (-d 't') 20 { 21 chdir 't'; 22 require File::Spec; 23 unshift @INC, File::Spec->catdir(File::Spec->updir, $location); 24 } 25 else 26 { 27 unshift @INC, $location; 28 } 29 print "# INC = @INC\n"; 30 31 plan tests => 684 32 + 1; # our own tests 33 } 34 35print "# ",Math::BigInt->config()->{lib},"\n"; 36 37use Math::BigInt lib => 'BareCalc'; 38use Math::BigFloat lib => 'BareCalc'; 39 40use vars qw/$mbi $mbf/; 41 42$mbi = 'Math::BigInt'; 43$mbf = 'Math::BigFloat'; 44 45ok (Math::BigInt->config()->{lib},'Math::BigInt::BareCalc'); 46 47require 'mbimbf.inc'; 48 49