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

#!/usr/bin/perl -w

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

use Test;
use strict;

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

BEGIN
  {
  print "# ";					# for testsuite
  }
use bignum qw/ trace /;

###############################################################################
# general tests

my $x = 5; 
print "\n";
ok (ref($x),'Math::BigInt::Trace');		# :constant via trace

###############################################################################
###############################################################################
# Perl 5.005 does not like ok ($x,undef)

sub ok_undef
  {
  my $x = shift;

  ok (1,1) and return if !defined $x;
  ok ($x,'undef');
  }
Commit	Line	Data
126f3c5f	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	BEGIN
	17	{
	18	print "# "; # for testsuite
	19	}
	20	use bignum qw/ trace /;
	21
	22	###############################################################################
	23	# general tests
	24
	25	my $x = 5;
	26	print "\n";
	27	ok (ref($x),'Math::BigInt::Trace'); # :constant via trace
	28
	29	###############################################################################
	30	###############################################################################
	31	# Perl 5.005 does not like ok ($x,undef)
	32
	33	sub ok_undef
	34	{
	35	my $x = shift;
	36
	37	ok (1,1) and return if !defined $x;
	38	ok ($x,'undef');
	39	}