Spread assertions across different tests

Author: RyanGlScott

test/Numeric/CompatSpec.hs

@@ -8,13 +8,17 @@ main = hspec spec
 
 spec :: Spec
 spec = do
-  describe "showFFloatAlt" $
-    it "shows a RealFloat value, always using decimal notation" $ do
+  describe "showFFloatAlt" $ do
+    it "shows a RealFloat value, always using decimal notation" $
       showFFloatAlt Nothing  (12 :: Double) "" `shouldBe` "12.0"
+    it "allows to specify the number of decimal places" $
       showFFloatAlt (Just 4) (12 :: Double) "" `shouldBe` "12.0000"
-  describe "showGFloatAlt" $
-    it "shows a RealFloat value, using decimal or scientific notation depending on the value" $ do
+  describe "showGFloatAlt" $ do
+    it "shows a RealFloat value, using decimal notation if the absolute value lies between 0.1 and 9,999,999" $
       showGFloatAlt Nothing  (12 :: Double) ""         `shouldBe` "12.0"
+    it "shows a RealFloat value, using decimal notation and specifying the number of decimal places" $
       showGFloatAlt (Just 4) (12 :: Double) ""         `shouldBe` "12.0000"
+    it "shows a RealFloat value, using scientific notation if the absolute value falls outside of the range" $
       showGFloatAlt Nothing  (1234567890 :: Double) "" `shouldBe` "1.23456789e9"
+    it "shows a RealFloat value, using scientific notation and specifying the number of decimal places" $
       showGFloatAlt (Just 4) (1234567890 :: Double) "" `shouldBe` "1.2346e9"