lib/Math/BigInt/t/sub_mbf.t

   1 #!/usr/bin/perl -w
   2
   3 BEGIN {
   4     $| = 1;
   5     my $location = $0;
   6     # to locate the testing files
   7     $location =~ s/sub_mbf.t//i;
   8     if ($ENV{PERL_CORE}) {
   9         # testing with the core distribution
  10         @INC = qw(../lib);
  11         if (-d 't') {
  12             chdir 't';
  13             require File::Spec;
  14             unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
  15         } else {
  16             unshift @INC, $location;
  17         }
  18     } else {
  19         # for running manually with the CPAN distribution
  20         unshift @INC, '../lib';
  21         $location =~ s/bigfltpm.t//;
  22     }
  23     print "# INC = @INC\n";
  24 }
  25
  26 use Test;
  27 use strict;
  28
  29 BEGIN
  30   {
  31   plan tests => 1277 + 4;       # + 4 own tests
  32   }
  33
  34 use Math::BigFloat::Subclass;
  35
  36 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup);
  37 $class = "Math::BigFloat::Subclass";
  38
  39 require 'bigfltpm.inc'; # perform same tests as bigfltpm
  40
  41 # Now do custom tests for Subclass itself
  42 my $ms = $class->new(23);
  43 print "# Missing custom attribute \$ms->{_custom}" if !ok (1, $ms->{_custom});
  44
  45 use Math::BigFloat;
  46
  47 my $bf = Math::BigFloat->new(23);               # same as other
  48 $ms += $bf;
  49 print "# Tried: \$ms += \$bf, got $ms" if !ok (46, $ms);
  50 print "# Missing custom attribute \$ms->{_custom}" if !ok (1, $ms->{_custom});
  51 print "# Wrong class: ref(\$ms) was ".ref($ms) if !ok ($class, ref($ms));