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