diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2016-08-14 10:16:55 -0400 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2017-08-09 13:24:00 +0100 |
| commit | dd93a6f33f343b17c49733047b4cc962d5c34929 (patch) | |
| tree | dd567e86223790a3d621493e8284b1fcd4b0829a | |
| parent | cf834f40206e0a0c50ba4259882478cb5e31276f (diff) | |
| download | perl-dd93a6f33f343b17c49733047b4cc962d5c34929.tar.gz | |
Follow-up on a149d118.
The added tests were meant only for x86-80-bit long doubles,
but were accidentally run also on 128-bit doubles (quadmath,
or probably also on true IEEE 754 quadruples).
(cherry picked from commit 7301378635b35757b228e07c14276afaf06a4728)
| -rw-r--r-- | t/op/hexfp.t | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/t/op/hexfp.t b/t/op/hexfp.t index d6c0482886..c4c08cc3f0 100644 --- a/t/op/hexfp.t +++ b/t/op/hexfp.t @@ -245,8 +245,11 @@ SKIP: # [perl #128919] limited exponent range in hex fp literal with long double SKIP: { - skip("nv_preserves_uv_bits is $Config{nv_preserves_uv_bits} not 64", 4) - unless ($Config{nv_preserves_uv_bits} == 64); + skip("non-80-bit-long-double", 4) + unless ($Config{uselongdouble} && + ($Config{nvsize} == 16 || $Config{nvsize} == 12) && + ($Config{longdblkind} == 3 || + $Config{longdblkind} == 4)); is(0x1p-1074, 4.94065645841246544e-324); is(0x1p-1075, 2.47032822920623272e-324, '[perl #128919]'); is(0x1p-1076, 1.23516411460311636e-324); |