#!/usr/bin/perl -w
-use Test;
use strict;
-
-BEGIN
- {
- $| = 1;
- # to locate the testing files
- my $location = $0; $location =~ s/bigratpm.t//i;
- if ($ENV{PERL_CORE})
- {
- # testing with the core distribution
- @INC = qw(../lib);
- }
- unshift @INC, '../lib';
- if (-d 't')
- {
- chdir 't';
- require File::Spec;
- unshift @INC, File::Spec->catdir(File::Spec->updir, $location);
- }
- else
- {
- unshift @INC, $location;
- }
- print "# INC = @INC\n";
-
- plan tests => 686;
- }
+use Test::More tests => 686;
use Math::BigRat lib => 'Calc';
$class = "Math::BigRat";
$CL = "Math::BigInt::Calc";
-require 'bigratpm.inc'; # all tests here for sharing
+require 't/bigratpm.inc'; # all tests here for sharing