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