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