1#!/usr/bin/perl -w
2
3use Test;
4use strict;
5
6BEGIN
7  {
8  $| = 1;
9  # to locate the testing files
10  my $location = $0; $location =~ s/sub_mbf.t//i;
11  if ($ENV{PERL_CORE})
12    {
13    # testing with the core distribution
14    @INC = qw(../t/lib);
15    }
16  unshift @INC, '../lib';
17  if (-d 't')
18    {
19    chdir 't';
20    require File::Spec;
21    unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
22    }
23  else
24    {
25    unshift @INC, $location;
26    }
27  print "# INC = @INC\n";
28
29  plan tests => 2308
30    + 6;	# + our own tests
31  }
32
33use Math::BigFloat::Subclass;
34
35use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
36$class = "Math::BigFloat::Subclass";
37$CL = Math::BigFloat->config()->{lib}; # "Math::BigInt::Calc"; or FastCalc
38
39require 'bigfltpm.inc';	# perform same tests as bigfltpm
40
41###############################################################################
42# Now do custom tests for Subclass itself
43my $ms = $class->new(23);
44print "# Missing custom attribute \$ms->{_custom}" if !ok (1, $ms->{_custom});
45
46# Check that subclass is a Math::BigFloat, but not a Math::Bigint
47ok ($ms->isa('Math::BigFloat'),1);
48ok ($ms->isa('Math::BigInt') || 0,0);
49
50use Math::BigFloat;
51
52my $bf = Math::BigFloat->new(23);		# same as other
53$ms += $bf;
54print "# Tried: \$ms += \$bf, got $ms" if !ok (46, $ms);
55print "# Missing custom attribute \$ms->{_custom}" if !ok (1, $ms->{_custom});
56print "# Wrong class: ref(\$ms) was ".ref($ms) if !ok ($class, ref($ms));
57