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