lib/bignum/t/trace.t

   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   }