9c88827 · project-m36 · git.iko.soy

git.iko.soy/project-m36

fix test warnings

commit9c8882759e74d6f9eb5b06749d3417bca072a53f authorAgentM <agentm@themactionfaction.com> dateTue 20 Jun 2017, 16:01 (9 years ago) parent261654c

2 files changed+8−9

compare with master

unifiedsplit

test/Relation/Basic.hs−1 test/TutorialD/Interpreter.hs+8−8

test/Relation/Basic.hs−1

@@ -7,7 +7,6 @@ import ProjectM36.DataTypes.Primitive

77import ProjectM36.RelationalExpression

88import ProjectM36.Tuple

99import qualified ProjectM36.DatabaseContext as DBC

10−import Control.Monad.State

1110import Control.Monad.Trans.Reader

1211import qualified ProjectM36.Attribute as A

1312import qualified Data.Map as M

test/TutorialD/Interpreter.hs+8−8

@@ -402,19 +402,19 @@ testFunctionalDependencies = TestCase $ do

402402testEmptyCommits :: Test

403403testEmptyCommits = TestCase $ do

404404 (sessionId, dbconn) <- dateExamplesConnection emptyNotificationCallback

405− err <- executeGraphExpr sessionId dbconn Commit

406− assertEqual "no updates empty commit" (Just EmptyCommitError) err

405+ err1 <- executeGraphExpr sessionId dbconn Commit

406+ assertEqual "no updates empty commit" (Just EmptyCommitError) err1

407407 --insert no tuples

408408 Nothing <- executeDatabaseContextExpr sessionId dbconn (Insert "s" (RelationVariable "s" ()))

409− err <- executeGraphExpr sessionId dbconn Commit

410− assertEqual "empty insert empty commit" (Just EmptyCommitError) err

409+ err2 <- executeGraphExpr sessionId dbconn Commit

410+ assertEqual "empty insert empty commit" (Just EmptyCommitError) err2

411411 --update no tuples

412412 Nothing <- executeDatabaseContextExpr sessionId dbconn (Update "s" (M.singleton "sname" (NakedAtomExpr (TextAtom "Bob"))) (AttributeEqualityPredicate "sname" (NakedAtomExpr (TextAtom "Mike"))))

413− err <- executeGraphExpr sessionId dbconn Commit

414− assertEqual "empty update empty commit" (Just EmptyCommitError) err

413+ err3 <- executeGraphExpr sessionId dbconn Commit

414+ assertEqual "empty update empty commit" (Just EmptyCommitError) err3

415415 --delete no tuples

416416 Nothing <- executeDatabaseContextExpr sessionId dbconn (Delete "s" (AttributeEqualityPredicate "sname" (NakedAtomExpr (TextAtom "Mike"))))

417− err <- executeGraphExpr sessionId dbconn Commit

418− assertEqual "empty delete empty commit" (Just EmptyCommitError) err

417+ err4 <- executeGraphExpr sessionId dbconn Commit

418+ assertEqual "empty delete empty commit" (Just EmptyCommitError) err4

419419

420420