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

#!/usr/bin/perl -w

use strict;
use Test;

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

my ($try,$ans,$x);

require Math::BigInt; $x = Math::BigInt->new(1); ++$x;

#$try = 'require Math::BigInt; $x = Math::BigInt->new(1); ++$x;';
#$ans = eval $try || 'undef';
#print "# For '$try'\n" if (!ok "$ans" , '2' ); 

ok ($x||'undef',2);

# all tests done
Commit	Line	Data
61f5c3f5	1	#!/usr/bin/perl -w
	2
	3	use strict;
	4	use Test;
	5
	6	BEGIN
	7	{
	8	$\| = 1;
	9	chdir 't' if -d 't';
	10	unshift @INC, '../lib'; # for running manually
	11	plan tests => 1;
	12	}
	13
	14	my ($try,$ans,$x);
	15
	16	require Math::BigInt; $x = Math::BigInt->new(1); ++$x;
	17
	18	#$try = 'require Math::BigInt; $x = Math::BigInt->new(1); ++$x;';
	19	#$ans = eval $try \|\| 'undef';
	20	#print "# For '$try'\n" if (!ok "$ans" , '2' );
	21
	22	ok ($x\|\|'undef',2);
	23
	24	# all tests done
	25