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-21 11:47:34 +02:00
parent 63bdbe688f
commit b1335209b6
1 changed files with 14 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
a6/src/SPC_Tests.hs
View File

@ -21,20 +21,24 @@ tests =
isRight w @?= True, isRight w @?= True,
testCase "workerAdd (2)" $ do testCase "workerAdd (2)" $ do
spc <- startSPC spc <- startSPC
_ <- workerAdd spc "MSE-6" w1 <- workerAdd spc "MSE-6"
w <- workerAdd spc "GNK" isRight w1 @?= True
isRight w @?= True, w2 <- workerAdd spc "GNK"
isRight w2 @?= True,
testCase "workerAdd (3)" $ do testCase "workerAdd (3)" $ do
spc <- startSPC spc <- startSPC
_ <- workerAdd spc "C-3PO" w1 <- workerAdd spc "C-3PO"
_ <- workerAdd spc "K-2SO" isRight w1 @?= True
w <- workerAdd spc "IG-88" w2 <- workerAdd spc "K-2SO"
isRight w @?= True, isRight w2 @?= True
w3 <- workerAdd spc "IG-88"
isRight w3 @?= True,
testCase "workerAdd (fail)" $ do testCase "workerAdd (fail)" $ do
spc <- startSPC spc <- startSPC
_ <- workerAdd spc "BD-1" w1 <- workerAdd spc "BD-1"
w <- workerAdd spc "BD-1" isRight w1 @?= True
isRight w @?= False, w2 <- workerAdd spc "BD-1"
isRight w2 @?= False,
testCase "Running a job" $ do testCase "Running a job" $ do
ref <- newIORef False ref <- newIORef False
spc <- startSPC spc <- startSPC