1N/A#!/usr/bin/perl -w
1N/A
1N/Ause Test;
1N/Ause strict;
1N/A
1N/ABEGIN
1N/A {
1N/A $| = 1;
1N/A # to locate the testing files
1N/A my $location = $0; $location =~ s/isa.t//i;
1N/A if ($ENV{PERL_CORE})
1N/A {
1N/A # testing with the core distribution
1N/A @INC = qw(../t/lib);
1N/A }
1N/A unshift @INC, qw(../lib);
1N/A if (-d 't')
1N/A {
1N/A chdir 't';
1N/A require File::Spec;
1N/A unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
1N/A }
1N/A else
1N/A {
1N/A unshift @INC, $location;
1N/A }
1N/A print "# INC = @INC\n";
1N/A
1N/A plan tests => 7;
1N/A }
1N/A
1N/Ause Math::BigInt::Subclass;
1N/Ause Math::BigFloat::Subclass;
1N/Ause Math::BigInt;
1N/Ause Math::BigFloat;
1N/A
1N/Ause vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
1N/A$class = "Math::BigInt::Subclass";
1N/A$CL = "Math::BigInt::Calc";
1N/A
1N/A# Check that a subclass is still considered a BigInt
1N/Aok ($class->new(123)->isa('Math::BigInt'),1);
1N/A
1N/A# ditto for plain Math::BigInt
1N/Aok (Math::BigInt->new(123)->isa('Math::BigInt'),1);
1N/A
1N/A# But Math::BigFloats aren't
1N/Aok (Math::BigFloat->new(123)->isa('Math::BigInt') || 0,0);
1N/A
1N/A# see what happens if we feed a Math::BigFloat into new()
1N/A$x = Math::BigInt->new(Math::BigFloat->new(123));
1N/Aok (ref($x),'Math::BigInt');
1N/Aok ($x->isa('Math::BigInt'),1);
1N/A
1N/A# ditto for subclass
1N/A$x = Math::BigInt->new(Math::BigFloat->new(123));
1N/Aok (ref($x),'Math::BigInt');
1N/Aok ($x->isa('Math::BigInt'),1);
1N/A