1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
From 3edbf622f5e6dbacb18a5754e1fbb749c5f22581 Mon Sep 17 00:00:00 2001
From: Adrian Bunk <bunk@debian.org>
Date: Sat, 28 Oct 2023 19:23:09 +0300
Subject: Revert "Add unit tests for #22"
This reverts commit 1071631f1360838707ed2014f967f6cfde0bcf40.
---
tests/RunUnitTests.hs | 11 ++---------
1 file changed, 2 insertions(+), 9 deletions(-)
--- a/tests/RunUnitTests.hs
+++ b/tests/RunUnitTests.hs
@@ -31,9 +31,6 @@ main =
, testGroup "bfDiv"
[ dblTestCase "/" (/) (bfDiv (float64 NearEven)) 1 0
]
- , testGroup "bfIsSubnormal (float32 NearEven)"
- (map (\bf -> bfSubnormalTestCase bf False)
- [bfPosZero, bfFromInt 1, bfFromInt 0, bfNaN, bfNegInf, bfPosInf])
, testGroup "IEEE 754 compare"
[ testGroup "Comparisons with NaN should always return False"
[ testCase "NaN > 0" $ False @=? bfNaN > bfPosZero
@@ -75,10 +72,3 @@ dblTestCase op opD opBF x y =
case bfToDouble NearEven res of
(res1,Ok) -> Right res1
(_, s) -> Left ("result: " ++ show s)
-
--- Check that calling bfIsSubnormal on a BigFloat value returns the expected
--- result.
-bfSubnormalTestCase :: BigFloat -> Bool -> TestTree
-bfSubnormalTestCase bf expected =
- testCase (show bf) $
- expected @=? bfIsSubnormal (float32 NearEven) bf
|
