Fix test file

Author: meatball133

exercises/concept/lucians-luscious-lasagna/src/LuciansLusciousLasagna.hs

@@ -2,7 +2,7 @@ module LuciansLusciousLasagna (totalTimeInMinutes, remainingMinutesInOven, expec
 
 -- TODO: define the expectedMinutesInOven constant
 
--- TODO: remainingMinutesInOven function
+-- TODO: define the remainingMinutesInOven function
 
 -- TODO: define the preparationTimeInMinutes function
 

exercises/concept/lucians-luscious-lasagna/test/Tests.hs

@@ -3,11 +3,27 @@ import LuciansLusciousLasagna (elapsedTimeInMinutes, expectedMinutesInOven, prep
 
 main :: IO ()
 main = hspec $ do
-    it "expectedMinutesInOven" $ do
+    it "expected minutes in oven" $ do
         expectedMinutesInOven `shouldBe` 40
 
-    it "preparationTimeInMinutes" $
-        preparationTimeInMinutes 5 `shouldBe` 10
+    it "remaining minutes in oven"  $
+        remainingMinutesInOven 25 `shouldBe` 15
 
-    it "elapsedTimeInMinutes" $ do
-        elapsedTimeInMinutes 3 20 `shouldBe` 26
+    it "remaining minutes in oven, a few minutes later" $ 
+        remainingMinutesInOven 30 `shouldBe` 10
+
+    it  "preparation time in minutes for one layer" $
+        preparationTimeInMinutes 1 `shouldBe` 2
+
+    it "preparation time in minutes for multiple layers" $
+        preparationTimeInMinutes 4 `shouldBe` 8
+
+    it "total time in minutes for one layer" $
+        totalTimeInMinutes 1 30 `shouldBe` 32
+
+    it "total time in minutes for multiple layers" $
+        totalTimeInMinutes 4 8 `shouldBe` 16
+
+    it "notification message" $
+        alarm `shouldBe` "Ding!"
+