diff --git a/a6/src/SPC_Tests.hs b/a6/src/SPC_Tests.hs
index 1c20cbd..c7b966d 100644
--- a/a6/src/SPC_Tests.hs
+++ b/a6/src/SPC_Tests.hs
@@ -45,6 +45,20 @@ tests =
           r <- jobWait spc j
           r @?= Done
 
+          x <- readIORef ref
+          x @?= True,
+        testCase "Adding job before worker" $ do
+          ref <- newIORef False
+          spc <- startSPC
+
+          j <- jobAdd spc $ Job (writeIORef ref True) 1
+
+          w <- workerAdd spc "R5-D4"
+          isRight w @?= True
+
+          r <- jobWait spc j
+          r @?= Done
+
           x <- readIORef ref
           x @?= True,
         testCase "Running two jobs" $ do