1#!/usr/bin/perl -w 2 3############################################################################### 4 5use Test; 6use strict; 7 8BEGIN 9 { 10 $| = 1; 11 my $location = $0; $location =~ s/biinfnan.t//i; 12 if ($ENV{PERL_CORE}) 13 { 14 @INC = qw(../lib ../lib/bignum/t); # testing with the core distribution 15 } 16 else 17 { 18 unshift @INC, '../lib'; # for testing manually 19 } 20 if (-d 't') 21 { 22 chdir 't'; 23 require File::Spec; 24 unshift @INC, File::Spec->catdir(File::Spec->updir, $location); 25 } 26 else 27 { 28 unshift @INC, $location; 29 } 30 print "# INC = @INC\n"; 31 plan tests => 26; 32 } 33 34use bignum; 35 36my ($x); 37 38require "infnan.inc"; 39 40