Commit 7e74331a authored by Bas Lijnse's avatar Bas Lijnse

Fixed missing migration from to .

parent 0f6877bd
Pipeline #20707 failed with stage
in 3 minutes and 10 seconds
......@@ -84,7 +84,7 @@ filterTestsByName pattern tests = filter (\{UnitTest|name} -> indexOf pattern na
//UTILITY TASKS
testEditor :: (Editor a) (EditMode a) -> Task a | iTask a
testEditor editor mode
= (interact "Editor test" unitShare {onInit = const ((),mode), onEdit = \v l _ -> (l,v,Nothing), onRefresh = \_ l (Just v) -> (l,v,Nothing)} editor @ snd
= (interactR "Editor test" unitShare {onInit = const ((),mode), onEdit = \v l _ -> (l,v,Nothing), onRefresh = \_ l (Just v) -> (l,v,Nothing)} editor @ snd
>&> viewSharedInformation "Editor value" [ViewAs (toString o toJSON)] @? tvFromMaybe
) <<@ ApplyLayout (setUIAttributes (directionAttr Horizontal) )
......@@ -93,7 +93,7 @@ testEditorWithShare editor model viewMode = (withShared model
\smodel ->
updateSharedInformation "Edit the shared source" [] smodel
||-
interact "Editor under test" smodel {onInit = \r -> ((),if viewMode View Update $ r)
interactR "Editor under test" smodel {onInit = \r -> ((),if viewMode View Update $ r)
,onEdit = \v l _ -> (l,v,Just (\_ -> v))
,onRefresh = \r l v -> (l,r,Nothing)} editor @ snd
) <<@ ApplyLayout (setUIAttributes (directionAttr Horizontal))
......
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