Commit eb824e99 authored by Steffen Michels's avatar Steffen Michels

made CI test tool compile again

parent e973f1a3
definition module iTasks.Internal.Test.Definition definition module iTasks.Internal.Test.Definition
import iTasks import iTasks
import iTasks.Util.Trace import iTasks.Util.Trace
from iTasks.Internal.TaskStore import :: TaskOutputMessage
:: InteractiveTest :: InteractiveTest
= { name :: String = { name :: String
...@@ -114,7 +115,7 @@ testEditorWithShare :: (Editor a) a EditMode -> Task a | iTask a ...@@ -114,7 +115,7 @@ testEditorWithShare :: (Editor a) a EditMode -> Task a | iTask a
testCommonInteractions :: String -> Task a | iTask a testCommonInteractions :: String -> Task a | iTask a
testTaskOutput :: String (Task a) [Either Event Int] [UIChange] ([UIChange] [UIChange] -> TestResult) -> Test | iTask a testTaskOutput :: String (Task a) [Either Event Int] [UIChange] ([UIChange] [TaskOutputMessage] -> TestResult) -> Test | iTask a
/** /**
* Test if all tests have passed * Test if all tests have passed
......
...@@ -10,7 +10,7 @@ import iTasks.Extensions.Development.Codebase ...@@ -10,7 +10,7 @@ import iTasks.Extensions.Development.Codebase
import Data.Func, Data.Either, Data.Error import Data.Func, Data.Either, Data.Error
from iTasks.Internal.IWorld import createIWorld, destroyIWorld, initJSCompilerState, ::IWorld{options} from iTasks.Internal.IWorld import createIWorld, destroyIWorld, initJSCompilerState, ::IWorld{options}
from iTasks.Internal.TaskStore import createTaskInstance, taskInstanceUIChanges from iTasks.Internal.TaskStore import createTaskInstance, taskInstanceOutput, :: TaskOutput, :: TaskOutputMessage
from iTasks.Internal.TaskEval import evalTaskInstance from iTasks.Internal.TaskEval import evalTaskInstance
from iTasks.Internal.Store import emptyStore from iTasks.Internal.Store import emptyStore
from iTasks.Internal.Util import toCanonicalPath from iTasks.Internal.Util import toCanonicalPath
...@@ -126,7 +126,7 @@ testCommonInteractions typeName ...@@ -126,7 +126,7 @@ testCommonInteractions typeName
) )
) )
testTaskOutput :: String (Task a) [Either Event Int] [UIChange] ([UIChange] [UIChange] -> TestResult) -> Test | iTask a testTaskOutput :: String (Task a) [Either Event Int] [UIChange] ([UIChange] [TaskOutputMessage] -> TestResult) -> Test | iTask a
testTaskOutput name task events exp comparison = utest name test testTaskOutput name task events exp comparison = utest name test
where where
test world test world
...@@ -147,7 +147,7 @@ where ...@@ -147,7 +147,7 @@ where
= case res of = case res of
(Ok ()) (Ok ())
//Collect output //Collect output
# (res,iworld) = 'SDS'.read (sdsFocus instanceNo taskInstanceUIChanges) iworld # (res,iworld) = 'SDS'.read (sdsFocus instanceNo taskInstanceOutput) iworld
# world = destroyIWorld iworld # world = destroyIWorld iworld
//Compare result //Compare result
# verdict = case res of # verdict = case res of
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment