[p5sagit/p5-mst-13.2.git] / lib / Math / BigInt / t / alias.inc


# alias subroutine testing, included by sub_ali.t and mbi_ali.t

my $x = $CL->new(123);

is ($x->is_pos(), 1, '123 is positive');
is ($x->is_neg(), 0, '123 is not negative');
is ($x->as_int(), 123, '123 is 123 as int');
is (ref($x->as_int()), $CL, "as_int(123) is of class '$CL'");
$x->bneg();
is ($x->is_pos(), 0, '-123 is not positive');
is ($x->is_neg(), 1, '-123 is negative');
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');
3a427a11	9	is (ref($x->as_int()), $CL, "as_int(123) is of class '$CL'");
b282a552	10	$x->bneg();
	11	is ($x->is_pos(), 0, '-123 is not positive');
	12	is ($x->is_neg(), 1, '-123 is negative');