blob: 97bcdee397e15193bae4b303ab6b7a720f2bed2c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 4038 # tests in require'd file
+ 5; # tests in this file
use lib 't';
use Math::BigInt::Subclass;
our ($CLASS, $LIB);
$CLASS = "Math::BigInt::Subclass";
$LIB = "Math::BigInt::Calc"; # backend
require './t/bigintpm.inc'; # perform same tests as bigintpm
###############################################################################
# Now do custom tests for Subclass itself
my $ms = $CLASS->new(23);
is($ms->{_custom}, 1, '$ms has custom attribute \$ms->{_custom}');
# Check that a subclass is still considered a Math::BigInt
isa_ok($ms, 'Math::BigInt');
use Math::BigInt;
my $bi = Math::BigInt->new(23); # same as other
$ms += $bi;
is($ms, 46, '$ms is 46');
is($ms->{_custom}, 1, '$ms has custom attribute $ms->{_custom}');
is(ref($ms), $CLASS, "\$ms is not an object of class '$CLASS'");
|
