@@ -14,7 +14,7 @@ main = do
1414 counts <- runTestTT (TestList tests)
1515 if errors counts + failures counts > 0 then exitFailure else exitSuccess
1616 where
17− tests = map (\(tutd, expected) -> TestCase $ assertTutdEqual basicDatabaseContext tutd expected) simpleRelTests ++ map (\(tutd, expected) -> TestCase $ assertTutdEqual dateExamples tutd expected) dateExampleRelTests
17+ tests = map (\(tutd, expected) -> TestCase $ assertTutdEqual basicDatabaseContext tutd expected) simpleRelTests ++ map (\(tutd, expected) -> TestCase $ assertTutdEqual dateExamples tutd expected) dateExampleRelTests ++ [transactionGraphTest1]
1818 simpleRelTests = [("x:=true", Right relationTrue),
1919 ("x:=false", Right relationFalse),
2020 ("x:=true union false", Right relationTrue),
@@ -57,8 +57,6 @@ transactionGraphTest1 = TestCase $ do
5757 (discon, graph) <- dateExamplesGraph
5858 assertEqual "validate bootstrapped graph" (validateGraph graph) Nothing
5959
60−
61−
6260dateExamplesGraph :: IO (DisconnectedTransaction, TransactionGraph)
6361dateExamplesGraph = do
6462 firstTransactionUUID <- nextRandom