From d57412b454226e6dc25a06c46b9ad3cb95323e30 Mon Sep 17 00:00:00 2001
From: Nikolaj Gade <nikolaj@ingemanngade.net>
Date: Mon, 21 Oct 2024 18:35:54 +0200
Subject: [PATCH] :pencil: new test

---
 a6/src/SPC_Tests.hs | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

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