blob: e437ca116bbff7025523d5117f3f64c9b98e6757 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
#!perl
use strict;
use warnings;
use Test::More tests => 66;
use bignum;
#require "t/infnan.inc";
# The 'bigint'/'bignum'/'bigrat' pragma is lexical, so we can't 'require' or
# 'do' the included file. Slurp the whole thing and 'eval' it.
my $file = "t/infnan.inc";
open FILE, $file or die "$file: can't open file for reading: $!";
my $data = do { local $/; <FILE> };
close FILE or die "$file: can't close file after reading: $!";
eval $data;
die $@ if $@;
|