This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade Math::BigInt from 1.999701 to 1.999704
[perl5.git] / cpan / Math-BigInt / t / sub_mbi.t
1 #!/usr/bin/perl -w
2
3 use strict;
4 use Test::More tests => 3701
5     + 5;        # +5 own tests
6
7 BEGIN { unshift @INC, 't'; }
8
9 use Math::BigInt::Subclass;
10
11 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
12 $class = "Math::BigInt::Subclass";
13 $CL = "Math::BigInt::Calc";
14
15 my $version = '0.02';   # for $VERSION tests, match current release (by hand!)
16
17 require 't/bigintpm.inc';       # perform same tests as bigintpm
18
19 ###############################################################################
20 # Now do custom tests for Subclass itself
21
22 my $ms = $class->new(23);
23 print "# Missing custom attribute \$ms->{_custom}" if !is (1, $ms->{_custom});
24
25 # Check that a subclass is still considered a BigInt
26 isa_ok ($ms, 'Math::BigInt');
27
28 use Math::BigInt;
29
30 my $bi = Math::BigInt->new(23);         # same as other
31 $ms += $bi;
32 print "# Tried: \$ms += \$bi, got $ms" if !is (46, $ms);
33 print "# Missing custom attribute \$ms->{_custom}" if !is (1, $ms->{_custom});
34 print "# Wrong class: ref(\$ms) was ".ref($ms) if !is ($class, ref($ms));