1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
#!/usr/bin/perl -w ############################################################################### use Test; use strict; BEGIN { $| = 1; chdir 't' if -d 't'; unshift @INC, '../lib'; plan tests => 26; } use bignum; my ($x); require "infnan.inc";