This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Upgrade to Math::BigRat 0.11
[perl5.git] / lib / Math / BigRat / t / bigratpm.t
CommitLineData
184f15d5
JH
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/bigratpm.t//i;
11 if ($ENV{PERL_CORE})
12 {
13 # testing with the core distribution
14 @INC = qw(../lib);
15 }
16 unshift @INC, '../lib';
17 if (-d 't')
18 {
19 chdir 't';
20 require File::Spec;
21 unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
22 }
23 else
24 {
25 unshift @INC, $location;
26 }
27 print "# INC = @INC\n";
28
7afd7a91 29 plan tests => 636;
184f15d5
JH
30 }
31
184f15d5
JH
32use Math::BigRat;
33
34use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
35$class = "Math::BigRat";
36$CL = "Math::BigInt::Calc";
37
38require 'bigratpm.inc'; # all tests here for sharing