cpan/Math-BigInt/t/alias.inc

   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');
   9 is (ref($x->as_int()), 'Math::BigInt', "as_int(123) is of class Math::BigInt");
  10 $x->bneg();
  11 is ($x->is_pos(), 0, '-123 is not positive');
  12 is ($x->is_neg(), 1, '-123 is negative');