9 # to locate the testing files
10 my $location = $0; $location =~ s/isa.t//i;
13 # testing with the core distribution
16 unshift @INC, qw(../lib);
21 unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
25 unshift @INC, $location;
27 print "# INC = @INC\n";
32 use Math::BigInt::Subclass;
33 use Math::BigFloat::Subclass;
37 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
38 $class = "Math::BigInt::Subclass";
39 $CL = "Math::BigInt::Calc";
41 # Check that a subclass is still considered a BigInt
42 ok ($class->new(123)->isa('Math::BigInt'),1);
44 # ditto for plain Math::BigInt
45 ok (Math::BigInt->new(123)->isa('Math::BigInt'),1);
47 # But Math::BigFloats aren't
48 ok (Math::BigFloat->new(123)->isa('Math::BigInt') || 0,0);
50 # see what happens if we feed a Math::BigFloat into new()
51 $x = Math::BigInt->new(Math::BigFloat->new(123));
52 ok (ref($x),'Math::BigInt');
53 ok ($x->isa('Math::BigInt'),1);
56 $x = Math::BigInt->new(Math::BigFloat->new(123));
57 ok (ref($x),'Math::BigInt');
58 ok ($x->isa('Math::BigInt'),1);