diff --git a/a6/src/SPC_Tests.hs b/a6/src/SPC_Tests.hs
index 6aa3b96..8b94779 100644
--- a/a6/src/SPC_Tests.hs
+++ b/a6/src/SPC_Tests.hs
@@ -21,20 +21,24 @@ tests =
           isRight w @?= True,
         testCase "workerAdd (2)" $ do
           spc <- startSPC
-          _ <- workerAdd spc "MSE-6"
-          w <- workerAdd spc "GNK"
-          isRight w @?= True,
+          w1 <- workerAdd spc "MSE-6"
+          isRight w1 @?= True
+          w2 <- workerAdd spc "GNK"
+          isRight w2 @?= True,
         testCase "workerAdd (3)" $ do
           spc <- startSPC
-          _ <- workerAdd spc "C-3PO"
-          _ <- workerAdd spc "K-2SO"
-          w <- workerAdd spc "IG-88"
-          isRight w @?= True,
+          w1 <- workerAdd spc "C-3PO"
+          isRight w1 @?= True
+          w2 <- workerAdd spc "K-2SO"
+          isRight w2 @?= True
+          w3 <- workerAdd spc "IG-88"
+          isRight w3 @?= True,
         testCase "workerAdd (fail)" $ do
           spc <- startSPC
-          _ <- workerAdd spc "BD-1"
-          w <- workerAdd spc "BD-1"
-          isRight w @?= False,
+          w1 <- workerAdd spc "BD-1"
+          isRight w1 @?= True
+          w2 <- workerAdd spc "BD-1"
+          isRight w2 @?= False,
         testCase "Running a job" $ do
           ref <- newIORef False
           spc <- startSPC