xref: /onnv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Math/BigInt/t/bigintpm.t (revision 0:68f95e015346) 
1#!/usr/bin/perl -w
2
3use Test;
4use strict;
5
6BEGIN
7  {
8  $| = 1;
9  unshift @INC, '../lib'; # for running manually
10  my $location = $0; $location =~ s/bigintpm.t//;
11  unshift @INC, $location; # to locate the testing files
12  chdir 't' if -d 't';
13  plan tests => 2832;
14  }
15
16use Math::BigInt;
17
18use vars qw ($scale $class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
19$class = "Math::BigInt";
20$CL = "Math::BigInt::Calc";
21
22require 'bigintpm.inc';	# all tests here for sharing
23