cpan/bignum/t/bninfnan.t

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