Commit eb824e99 authored by Steffen Michels's avatar Steffen Michels

made CI test tool compile again

parent e973f1a3
definition module iTasks.Internal.Test.Definition
import iTasks
import iTasks.Util.Trace
from iTasks.Internal.TaskStore import :: TaskOutputMessage
:: InteractiveTest
= { name :: String
......@@ -114,7 +115,7 @@ testEditorWithShare :: (Editor a) a EditMode -> 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
......
......@@ -10,7 +10,7 @@ import iTasks.Extensions.Development.Codebase
import Data.Func, Data.Either, Data.Error
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.Store import emptyStore
from iTasks.Internal.Util import toCanonicalPath
......@@ -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
where
test world
......@@ -147,7 +147,7 @@ where
= case res of
(Ok ())
//Collect output
# (res,iworld) = 'SDS'.read (sdsFocus instanceNo taskInstanceUIChanges) iworld
# (res,iworld) = 'SDS'.read (sdsFocus instanceNo taskInstanceOutput) iworld
# world = destroyIWorld iworld
//Compare result
# 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