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