diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2015-01-25 09:42:19 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2015-01-28 06:52:31 -0500 |
| commit | fae4db12fe48a8d53b803281652815abd8bc98c0 (patch) | |
| tree | b0b229295fd2d300e98d7899beabdd2c95990331 /t/op/infnan.t | |
| parent | 0c5a1073d3e8debefdaa5b534337acb1b0c060ef (diff) | |
| download | perl-fae4db12fe48a8d53b803281652815abd8bc98c0.tar.gz | |
infnan: Allow 1.#INF00 and 1.#IND00
Windowese for inf and nan. The exact number of trailing zeros seems
to vary, maybe controlled by printf precision? Or RTL dependent?
Diffstat (limited to 't/op/infnan.t')
| -rw-r--r-- | t/op/infnan.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/op/infnan.t b/t/op/infnan.t index ef8ee4b69e..97054cd9ec 100644 --- a/t/op/infnan.t +++ b/t/op/infnan.t @@ -28,11 +28,11 @@ my $NaN; my @PInf = ("Inf", "inf", "INF", "+Inf", "Infinity", "INFINITE", - "1.#INF", "1#INF"); + "1.#INF", "1#INF", "1.#INF00"); my @NInf = map { "-$_" } grep { ! /^\+/ } @PInf; my @NaN = ("NAN", "nan", "qnan", "SNAN", "NanQ", "NANS", - "1.#QNAN", "+1#SNAN", "-1.#NAN", "1#IND", + "1.#QNAN", "+1#SNAN", "-1.#NAN", "1#IND", "1.#IND00", "NaN123", "NAN(123)", "nan%", "nanonano"); # RIP, Robin Williams. |