Commit | Line | Data |
---|---|---|
b282a552 | 1 | |
2 | # alias subroutine testing, included by sub_ali.t and mbi_ali.t | |
3 | ||
4 | my $x = $CL->new(123); | |
5 | ||
6 | is ($x->is_pos(), 1, '123 is positive'); | |
7 | is ($x->is_neg(), 0, '123 is not negative'); | |
8 | is ($x->as_int(), 123, '123 is 123 as int'); | |
7b29e1e6 | 9 | is (ref($x->as_int()), 'Math::BigInt', "as_int(123) is of class Math::BigInt"); |
b282a552 | 10 | $x->bneg(); |
11 | is ($x->is_pos(), 0, '-123 is not positive'); | |
12 | is ($x->is_neg(), 1, '-123 is negative'); |