Skip to content

I
iTasks-SDK
Commit fabd979b authored by Camil Staps's avatar Camil Staps 🍃
Browse files
Options

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
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    Libraries/iTasks/Util/Testing.icl
    View file @ fabd979b
    ......@@ -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