NikolajDanger/2024B1-AP
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

✨

Browse Source
This commit is contained in:
Nikolaj
2024-10-18 10:14:00 +02:00
parent 7f0191098e
commit 5a9e4d675b
1 changed files with 9 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
a6/src/SPC_Tests.hs
View File

@ -17,30 +17,22 @@ tests =
[ [
testCase "worker-add" $ do testCase "worker-add" $ do
spc <- startSPC spc <- startSPC
w <- workerAdd spc "Nikolaj" w <- workerAdd spc "R2-D2"
isRight w @?= True, isRight w @?= True,
testCase "worker-add-2" $ do testCase "worker-add-2" $ do
spc <- startSPC spc <- startSPC
_ <- workerAdd spc "Nikolaj" _ <- workerAdd spc "MSE-6"
w <- workerAdd spc "Alba" w <- workerAdd spc "GNK"
isRight w @?= True, isRight w @?= True,
testCase "worker-add-3" $ do testCase "worker-add-3" $ do
spc <- startSPC spc <- startSPC
_ <- workerAdd spc "Nikolaj" _ <- workerAdd spc "C-3PO"
_ <- workerAdd spc "Alba" _ <- workerAdd spc "K-2SO"
w <- workerAdd spc "Sebastian" w <- workerAdd spc "IG-88"
isRight w @?= True, isRight w @?= True,
testCase "worker-add-2-fail" $ do testCase "worker-add-2-fail" $ do
spc <- startSPC spc <- startSPC
_ <- workerAdd spc "Nikolaj" _ <- workerAdd spc "BD-1"
w <- workerAdd spc "Nikolaj" w <- workerAdd spc "R5-D4"
isRight w @?= False, 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
] ]