@@ -25,8 +25,9 @@ main = do
2525
2626testList :: Test
2727testList = TestList [testBootstrapDB,
28− testDBSimplePersistence,
28+ testDBSimplePersistence,
2929 testFunctionPersistence]
30+
3031
3132stamp :: UTCTime
3233stamp = UTCTime (fromGregorian 1980 01 01) (secondsToDiffTime 1000)
@@ -74,7 +75,8 @@ testDBSimplePersistence = TestCase $ withSystemTempDirectory "m36testdb" $ \temp
7475
7576--only Haskell-scripted dbc and atom functions can be serialized
7677testFunctionPersistence :: Test
77−testFunctionPersistence = TestCase $ withSystemTempDirectory "m36testdb" $ \tempdir -> do
78+testFunctionPersistence = TestCase $ do
79+ withSystemTempDirectory "m36testdb" $ \tempdir -> do
7880 let dbdir = tempdir </> "dbdir"
7981 connInfo = InProcessConnectionInfo (MinimalPersistence dbdir) emptyNotificationCallback []
8082 conn <- assertIOEither $ connectProjectM36 connInfo
@@ -85,9 +87,8 @@ testFunctionPersistence = TestCase $ withSystemTempDirectory "m36testdb" $ \temp
8587 ADTypeConstructor "Either" [ADTypeConstructor "AtomFunctionError" [],
8688 intTCons]] "(\\(x:_) -> pure x) :: [Atom] -> Either AtomFunctionError Atom"
8789 _ <- assertIOEither $ executeDatabaseContextIOExpr sess conn addfunc
88−
8990 _ <- assertIOEither $ commit sess conn
90− close conn
91+ --close conn - pauses indefinitely on Windows
9192 --re-open the connection to reload the graph
9293 conn2 <- assertIOEither $ connectProjectM36 connInfo
9394 sess2 <- assertIOEither $ createSessionAtHead conn2 "master"