@@ -6,11 +6,9 @@ import qualified ProjectM36.Attribute as A
66import TutorialD.Interpreter.Import.TutorialD
77import System.Exit
88import System.IO.Temp
9−import qualified ProjectM36.DatabaseContext as DC
109import qualified Data.Vector as V
1110import System.IO
1211
13−
1412main :: IO ()
1513main = do
1614 tcounts <- runTestTT $ TestList [testTutdImport]
@@ -23,5 +21,5 @@ testTutdImport = TestCase $ do
2321 hClose handle
2422 let expectedExpr = MultipleExpr [Assign "x" (ExistingRelation (Relation expectedAttrs $ RelationTupleSet [RelationTuple expectedAttrs $ V.fromList [intAtom 5, stringAtom "spam"]]))]
2523 expectedAttrs = A.attributesFromList [Attribute "a" intAtomType, Attribute "b" stringAtomType]
26− imported <- importTutorialD tempPath DC.empty
24+ imported <- importTutorialD tempPath
2725 assertEqual "import tutd" (Right expectedExpr) imported