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