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

#!/usr/bin/perl -w

###############################################################################
# Test no bignum;

use Test::More;
use strict;

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

use bignum;

isnt (ref(1), '', 'is in effect');
isnt (ref(2.0), '', 'is in effect');
isnt (ref(0x20), '', 'is in effect');

{
  no bignum;

  is (ref(1), '', 'is not in effect');
  is (ref(2.0), '', 'is not in effect');
  is (ref(0x20), '', 'is not in effect');
}
Commit	Line	Data
4440d13a	1	#!/usr/bin/perl -w
	2
	3	###############################################################################
	4	# Test no bignum;
	5
	6	use Test::More;
	7	use strict;
	8
	9	BEGIN
	10	{
	11	$\| = 1;
	12	chdir 't' if -d 't';
	13	unshift @INC, '../lib';
	14	plan tests => 6;
	15	}
	16
	17	use bignum;
	18
	19	isnt (ref(1), '', 'is in effect');
	20	isnt (ref(2.0), '', 'is in effect');
	21	isnt (ref(0x20), '', 'is in effect');
	22
	23	{
	24	no bignum;
	25
	26	is (ref(1), '', 'is not in effect');
	27	is (ref(2.0), '', 'is not in effect');
	28	is (ref(0x20), '', 'is not in effect');
	29	}
	30