[perl5.git] / dist / Math-BigInt / t / upgrade2.t

#!/usr/bin/perl -w

# Test 2 levels of upgrade classes. This used to cause a segv.

use Test::More tests => 1;

use Math::BigInt upgrade => 'Math::BigFloat';
use Math::BigFloat upgrade => 'Math::BigMouse';

no warnings 'once';
@Math::BigMouse::ISA = 'Math::BigFloat';

() = sqrt Math::BigInt->new(2);
pass('sqrt on a big int does not segv if there are 2 upgrade levels');
Commit	Line	Data
45029d2d FC	1	#!/usr/bin/perl -w
	2
	3	# Test 2 levels of upgrade classes. This used to cause a segv.
	4
	5	use Test::More tests => 1;
	6
	7	use Math::BigInt upgrade => 'Math::BigFloat';
	8	use Math::BigFloat upgrade => 'Math::BigMouse';
	9
	10	no warnings 'once';
	11	@Math::BigMouse::ISA = 'Math::BigFloat';
	12
	13	() = sqrt Math::BigInt->new(2);
	14	pass('sqrt on a big int does not segv if there are 2 upgrade levels');