git.iko.soy/project-m36
on master help sign in
WIP: fix changed parseTutorialD signature
9f0f8f3AgentM
test/TutorialD/Interpreter/Import/TutorialD.hs+1−3
compare with master
unifiedsplit
@@ -6,11 +6,9 @@ import qualified ProjectM36.Attribute as A
6import TutorialD.Interpreter.Import.TutorialD
6import TutorialD.Interpreter.Import.TutorialD
7import System.Exit
7import System.Exit
8import System.IO.Temp
8import System.IO.Temp
9−import qualified ProjectM36.DatabaseContext as DC
10import qualified Data.Vector as V
9import qualified Data.Vector as V
11import System.IO
10import System.IO
12
11
13−
14main :: IO ()
12main :: IO ()
15main = do
13main = do
16 tcounts <- runTestTT $ TestList [testTutdImport]
14 tcounts <- runTestTT $ TestList [testTutdImport]
@@ -23,5 +21,5 @@ testTutdImport = TestCase $ do
23 hClose handle
21 hClose handle
24 let expectedExpr = MultipleExpr [Assign "x" (ExistingRelation (Relation expectedAttrs $ RelationTupleSet [RelationTuple expectedAttrs $ V.fromList [intAtom 5, stringAtom "spam"]]))]
22 let expectedExpr = MultipleExpr [Assign "x" (ExistingRelation (Relation expectedAttrs $ RelationTupleSet [RelationTuple expectedAttrs $ V.fromList [intAtom 5, stringAtom "spam"]]))]
25 expectedAttrs = A.attributesFromList [Attribute "a" intAtomType, Attribute "b" stringAtomType]
23 expectedAttrs = A.attributesFromList [Attribute "a" intAtomType, Attribute "b" stringAtomType]
26− imported <- importTutorialD tempPath DC.empty
24+ imported <- importTutorialD tempPath
27 assertEqual "import tutd" (Right expectedExpr) imported
25 assertEqual "import tutd" (Right expectedExpr) imported