@@ -18,10 +18,10 @@ main = do
1818
1919testTutdImport :: Test
2020testTutdImport = TestCase $ do
21− withSystemTempFile "m.tutd" $ \path handle -> do
21+ withSystemTempFile "m.tutd" $ \tempPath handle -> do
2222 hPutStrLn handle "x:=relation{tuple{a 5,b \"spam\"}}"
2323 hClose handle
2424 let expectedExpr = MultipleExpr [Assign "x" (ExistingRelation (Relation expectedAttrs $ HS.singleton (RelationTuple expectedAttrs $ V.fromList [IntAtom 5, StringAtom "spam"])))]
2525 expectedAttrs = A.attributesFromList [Attribute "a" IntAtomType, Attribute "b" StringAtomType]
26− imported <- importTutorialD path DC.empty
26+ imported <- importTutorialD tempPath DC.empty
2727 assertEqual "import tutd" (Right expectedExpr) imported