1#!/usr/bin/perl -w 2 3# test rounding, accuracy, precicion and fallback, round_mode and mixing 4# of classes 5 6use strict; 7use Test; 8 9BEGIN 10 { 11 $| = 1; 12 # to locate the testing files 13 my $location = $0; $location =~ s/sub_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 } 33 34use Math::BigInt::Subclass; 35use Math::BigFloat::Subclass; 36 37use vars qw/$mbi $mbf/; 38 39$mbi = 'Math::BigInt::Subclass'; 40$mbf = 'Math::BigFloat::Subclass'; 41 42require 'mbimbf.inc'; 43 44