diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-01-25 12:19:03 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-01-28 06:52:31 -0500 |
| commit | 1e9aa12fc5bed36eadfa398b85d0a5168b0bc635 (patch) | |
| tree | 08c59e09647ea7e4b25d430c24831a4b2714a8ef /t/op/infnan.t | |
| parent | fae4db12fe48a8d53b803281652815abd8bc98c0 (diff) | |
| download | perl-1e9aa12fc5bed36eadfa398b85d0a5168b0bc635.tar.gz | |
infnan: More elaborate nan parsing for C99-y nan(...)
Diffstat (limited to 't/op/infnan.t')
| -rw-r--r-- | t/op/infnan.t | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/t/op/infnan.t b/t/op/infnan.t index 97054cd9ec..83ec5f64e8 100644 --- a/t/op/infnan.t +++ b/t/op/infnan.t @@ -33,8 +33,7 @@ my @NInf = map { "-$_" } grep { ! /^\+/ } @PInf; my @NaN = ("NAN", "nan", "qnan", "SNAN", "NanQ", "NANS", "1.#QNAN", "+1#SNAN", "-1.#NAN", "1#IND", "1.#IND00", - "NaN123", "NAN(123)", "nan%", - "nanonano"); # RIP, Robin Williams. + "NAN(123)"); my @printf_fmt = qw(e f g a d u o i b x p); my @packi_fmt = qw(c C s S l L i I n N v V j J w W U); @@ -343,7 +342,6 @@ is eval { unpack "p", pack 'p', $NaN }, "NaN", "pack p +NaN"; is eval { unpack "P3", pack 'P', $NaN }, "NaN", "pack P +NaN"; for my $i (@NaN) { - local $^W = 0; # warning-ness tested later. cmp_ok($i + 0, '!=', $i + 0, "$i is NaN numerically (by not being NaN)"); is("@{[$i+0]}", "NaN", "$i value stringifies as NaN"); } |