xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/bare_mbf.t (revision 0:68f95e015346)
1#!/usr/bin/perl -w
2
3use Test;
4use strict;
5
6BEGIN
7  {
8  $| = 1;
9  # to locate the testing files
10  my $location = $0; $location =~ s/bare_mbf.t//i;
11  print "$0\n";
12  if ($ENV{PERL_CORE})
13    {
14    # testing with the core distribution
15    @INC = qw(../t/lib);
16    }
17  unshift @INC, '../lib';
18  if (-d 't')
19    {
20    chdir 't';
21    require File::Spec;
22    unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
23    }
24  else
25    {
26    unshift @INC, $location;
27    }
28  print "# INC = @INC\n";
29
30  plan tests => 1815;
31  }
32
33use Math::BigFloat lib => 'BareCalc';
34
35use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
36$class = "Math::BigFloat";
37$CL = "Math::BigInt::BareCalc";
38
39require 'bigfltpm.inc';	# all tests here for sharing
40