Respond to comments

idontgetoutmuch · Apr 29, 2020 · 8ca0d1e · 8ca0d1e
1 parent b72f1a5
commit 8ca0d1e
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/test/Spec.hs b/test/Spec.hs
@@ -72,14 +72,14 @@ main =
     -- , bitmaskSpec @Word64
     -- , bitmaskSpec @Word
     , runSpec
-    , unitTests
+    , floatTests
     ]
 
-unitTests :: TestTree
-unitTests = testGroup "Unit tests"
+floatTests :: TestTree
+floatTests = testGroup "(Float)"
   [ -- Check that https://github.com/haskell/random/issues/53 does not regress
 
-    testCase "Subnormal generation respects upper bound" $
+    testCase "Subnormal generation not above upper bound" $
     [] @?= (filter (>4.0e-45) $ take 100000 $ randomRs (0,(4.0e-45::Float)) $ mkStdGen 0)
 
   , testCase "Subnormal generation includes upper bound" $