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