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
1 #!/usr/bin/perl -w
2
3 use Test;
4 use strict;
5
6 BEGIN
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
29   plan tests => 636;
30   }
31
32 use Math::BigRat;
33
34 use vars qw ($class $try $x $y $f @args $ans $ans1 $ans1_str $setup $CL);
35 $class = "Math::BigRat";
36 $CL = "Math::BigInt::Calc";
37  
38 require 'bigratpm.inc'; # all tests here for sharing