[p5sagit/p5-mst-13.2.git] / lib / bignum / t / br_lite.t

#!/usr/bin/perl -w

###############################################################################

use Test;
use strict;

BEGIN
  {
  $| = 1;
  chdir 't' if -d 't';
  unshift @INC, '../lib';
  plan tests => 1;
  }

eval 'require Math::BigInt::Lite;';
if ($@ eq '')
  {
  # can use Lite, so let bignum try it
  require bigrat; bigrat->import();
  # can't get to work a ref(1+1) here, presumable because :constant phase
  # already done
  ok ($bigrat::_lite,1);
  }
else
  {
  print "ok 1 # skipped, no Math::BigInt::Lite\n";
  }
Commit	Line	Data
b4bc5691	1	#!/usr/bin/perl -w
	2
	3	###############################################################################
	4
	5	use Test;
	6	use strict;
	7
	8	BEGIN
	9	{
	10	$\| = 1;
	11	chdir 't' if -d 't';
	12	unshift @INC, '../lib';
	13	plan tests => 1;
	14	}
	15
	16	eval 'require Math::BigInt::Lite;';
	17	if ($@ eq '')
	18	{
	19	# can use Lite, so let bignum try it
	20	require bigrat; bigrat->import();
	21	# can't get to work a ref(1+1) here, presumable because :constant phase
	22	# already done
	23	ok ($bigrat::_lite,1);
	24	}
	25	else
	26	{
	27	print "ok 1 # skipped, no Math::BigInt::Lite\n";
	28	}
	29
	30