02e6eec · project-m36 · git.iko.soy

git.iko.soy/project-m36

fix notification tests

commit02e6eec3d2ba53a1711e3d679e031dbdf87d9705 authorAgentM <agentm@themactionfaction.com> dateTue 26 Sep 2017, 23:05 (9 years ago) parent6590d3e

2 files changed+2−2

unifiedsplit

test/Server/Main.hs+1−1

@@ -188,7 +188,7 @@ testNotification :: MVar () -> SessionId -> Connection -> Test

188188testNotification mvar sess conn = TestCase $ do

189189 let relvarx = RelationVariable "x" ()

190190 executeDatabaseContextExpr sess conn (Assign "x" (ExistingRelation relationTrue)) >>= eitherFail

191− executeDatabaseContextExpr sess conn (AddNotification "test notification" relvarx relvarx) >>= eitherFail

191+ executeDatabaseContextExpr sess conn (AddNotification "test notification" relvarx relvarx relvarx) >>= eitherFail

192192 commit sess conn >>= eitherFail

193193 executeDatabaseContextExpr sess conn (Assign "x" (ExistingRelation relationFalse)) >>= eitherFail

194194 commit sess conn >>= eitherFail

test/TutorialD/Interpreter.hs+1−1

@@ -270,7 +270,7 @@ testNotification = TestCase $ do

270270 relvarx = RelationVariable "x" ()

271271 (sess, conn) <- dateExamplesConnection (notifCallback notifmvar)

272272 executeDatabaseContextExpr sess conn (Assign "x" (ExistingRelation relationTrue)) >>= eitherFail

273− executeDatabaseContextExpr sess conn (AddNotification "test notification" relvarx relvarx) >>= eitherFail

273+ executeDatabaseContextExpr sess conn (AddNotification "test notification" relvarx relvarx relvarx) >>= eitherFail

274274 commit sess conn >>= eitherFail

275275 executeDatabaseContextExpr sess conn (Assign "x" (ExistingRelation relationFalse)) >>= eitherFail

276276 commit sess conn >>= eitherFail