Tests: Improve tests titles (kowainik#141)

* Test: Improve tests titles
Add a make command to run all tests

* Typo

* Remove redunant do

* Remove unnecessary test run

Author: pro2s

Makefile

@@ -45,3 +45,7 @@ test-chapter4:
 test-chapter4-basic:
 	cabal test doctest-chapter4 --enable-tests --test-show-details=direct
 	cabal run learn4haskell-test --enable-tests -- -m "Chapter4Normal"
+
+.PHONY: test-all
+test-all:
+	cabal test all --enable-tests --test-show-details=direct

test/Test/Chapter1.hs

@@ -70,12 +70,13 @@ chapter1normal = describe "Chapter1Normal" $ do
             (firstDigit x :: Int) === (lastDigit (reverseInt x) :: Int)
 
 chapter1advanced :: Spec
-chapter1advanced = describe "Chapter1Advanced" $ do
-    it "first digit 0" $ firstDigit 0 `shouldBe` 0
-    it "first digit 0 < 10" $ firstDigit 9 `shouldBe` 9
-    it "first digit 10 < 100" $ firstDigit 58 `shouldBe` 5
-    it "first digit 100 < 1000" $ firstDigit 158 `shouldBe` 1
-    it "first digit big" $ firstDigit 467321 `shouldBe` 4
-    it "first digit 0 > -10" $ firstDigit (-9) `shouldBe` 9
-    it "first digit -10 > -100" $ firstDigit (-58) `shouldBe` 5
-    it "first digit -100 > -1000" $ firstDigit (-158) `shouldBe` 1
+chapter1advanced = describe "Chapter1Advanced" $
+    describe "Task 10*" $ do
+        it "first digit 0" $ firstDigit 0 `shouldBe` 0
+        it "first digit 0 < 10" $ firstDigit 9 `shouldBe` 9
+        it "first digit 10 < 100" $ firstDigit 58 `shouldBe` 5
+        it "first digit 100 < 1000" $ firstDigit 158 `shouldBe` 1
+        it "first digit big" $ firstDigit 467321 `shouldBe` 4
+        it "first digit 0 > -10" $ firstDigit (-9) `shouldBe` 9
+        it "first digit -10 > -100" $ firstDigit (-58) `shouldBe` 5
+        it "first digit -100 > -1000" $ firstDigit (-158) `shouldBe` 1

test/Test/Chapter2.hs

@@ -69,11 +69,12 @@ chapter2normal = describe "Chapter2Normal" $ do
         it "empty on negative" $ rotate (-5) [1..5] `shouldBe` emptyInts
 
 chapter2advanced :: Spec
-chapter2advanced = describe "Chapter2Advanced" $ describe "Task12*: rewind" $ do
-    it "empty" $ rewind emptyInts `shouldBe` emptyInts
-    it "one elem" $ rewind [1] `shouldBe` [1]
-    it "many elems" $ rewind [1..10] `shouldBe` [10,9..1]
-    it "many elems random" $ rewind [5,1,9,56,32,7,11] `shouldBe` [11,7,32,56,9,1,5]
+chapter2advanced = describe "Chapter2Advanced" $
+    describe "Task12*: rewind" $ do
+        it "empty" $ rewind emptyInts `shouldBe` emptyInts
+        it "one elem" $ rewind [1] `shouldBe` [1]
+        it "many elems" $ rewind [1..10] `shouldBe` [10,9..1]
+        it "many elems random" $ rewind [5,1,9,56,32,7,11] `shouldBe` [11,7,32,56,9,1,5]
 
 emptyInts :: [Int]
 emptyInts = []

test/Test/Chapter4.hs

@@ -52,7 +52,7 @@ chapter4normal = describe "Chapter4Normal" $ do
 
 chapter4advanced :: Spec
 chapter4advanced = describe "Chapter4Advanced" $
-    describe "andM" $ do
+    describe "Task 8*: Before the Final Boss" $ do
         it "Nothing - Nothing" $ andM Nothing Nothing `shouldBe` Nothing
         it "Nothing - Just" $ andM Nothing (Just True) `shouldBe` Nothing
         it "Just True - Nothing" $ andM (Just True) Nothing `shouldBe` Nothing