Commit fabd979b authored by Camil Staps's avatar Camil Staps 🍃

Add viewInformation to testCommonInteractions to see easily whether the task contains a legal value

parent 1a87c628
Pipeline #31313 passed with stage
in 6 minutes and 55 seconds
......@@ -106,8 +106,8 @@ testEditorWithShare editor model viewMode = (withShared model
testCommonInteractions :: String -> Task a | iTask, gDefault{|*|} a
testCommonInteractions typeName
= (Title "Enter" @>> Hint ("Enter information of type " +++ typeName) @>> enterInformation [])
-||- (Title "Update" @>> Hint ("Update default value of type " +++ typeName) @>> updateInformation [] defaultValue)
= (Title "Enter" @>> Hint ("Enter information of type " +++ typeName) @>> enterInformation [] >>= viewInformation [])
-||- (Title "Update" @>> Hint ("Update default value of type " +++ typeName) @>> updateInformation [] defaultValue >>= viewInformation [])
-||- (withShared defaultValue
\s -> ((Title "Update shared" @>> Hint ("Update shared value of type " +++ typeName) @>> updateSharedInformation [] s)
-||
......
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