1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
# -*- mode: perl; -*-
use strict;
use warnings;
our $CLASS;
# alias subroutine testing, included by sub_ali.t, mbi_ali.t, and mbf_ali.t
our $x = $CLASS->new(123);
is($x->is_pos(), 1, "$CLASS -> new(123) -> is_pos()");
is($x->is_neg(), 0, "$CLASS -> new(123) -> is_neg()");
is($x->as_int(), 123, "$CLASS -> new(123) -> as_int()");
isa_ok($x->as_int(), 'Math::BigInt', "$CLASS -> new(123) -> as_int() isa Math::BigInt");
$x->bneg();
is($x->is_pos(), 0, "$CLASS -> new(123) -> bneg() -> is_pos()");
is($x->is_neg(), 1, "$CLASS -> new(123) -> bneg() -> is_neg()");
|
