From 5a9e4d675be95befd48f8c01a2c37a93a5e94353 Mon Sep 17 00:00:00 2001 From: Nikolaj Date: Fri, 18 Oct 2024 10:14:00 +0200 Subject: [PATCH] :sparkles: --- a6/src/SPC_Tests.hs | 26 +++++++++----------------- 1 file changed, 9 insertions(+), 17 deletions(-) diff --git a/a6/src/SPC_Tests.hs b/a6/src/SPC_Tests.hs index 6969456..7976232 100644 --- a/a6/src/SPC_Tests.hs +++ b/a6/src/SPC_Tests.hs @@ -17,30 +17,22 @@ tests = [ testCase "worker-add" $ do spc <- startSPC - w <- workerAdd spc "Nikolaj" + w <- workerAdd spc "R2-D2" isRight w @?= True, testCase "worker-add-2" $ do spc <- startSPC - _ <- workerAdd spc "Nikolaj" - w <- workerAdd spc "Alba" + _ <- workerAdd spc "MSE-6" + w <- workerAdd spc "GNK" isRight w @?= True, testCase "worker-add-3" $ do spc <- startSPC - _ <- workerAdd spc "Nikolaj" - _ <- workerAdd spc "Alba" - w <- workerAdd spc "Sebastian" + _ <- workerAdd spc "C-3PO" + _ <- workerAdd spc "K-2SO" + w <- workerAdd spc "IG-88" isRight w @?= True, testCase "worker-add-2-fail" $ do spc <- startSPC - _ <- workerAdd spc "Nikolaj" - w <- workerAdd spc "Nikolaj" - isRight w @?= False, - testCase "worker-job" $ do - spc <- startSPC - w <- workerAdd spc "Nikolaj" - ref <- newIORef False - case spc of (SPC c) -> sendTo c (writeIORef ref True) 1 - isRight w @?= True - v <- readIORef ref - v @?= True + _ <- workerAdd spc "BD-1" + w <- workerAdd spc "R5-D4" + isRight w @?= False ]