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 chdir 't' if -d 't'; 12*0Sstevel@tonic-gate unshift @INC, '../lib'; 13*0Sstevel@tonic-gate unshift @INC, '../lib/bignum/t' if $ENV{PERL_CORE}; 14*0Sstevel@tonic-gate plan tests => 26; 15*0Sstevel@tonic-gate } 16*0Sstevel@tonic-gate 17*0Sstevel@tonic-gateuse bigrat; 18*0Sstevel@tonic-gate 19*0Sstevel@tonic-gatemy ($x); 20*0Sstevel@tonic-gate 21*0Sstevel@tonic-gaterequire "infnan.inc"; 22*0Sstevel@tonic-gate 23