From fabd979b87fb756bf3bb3dd5469e7bce343ad95b Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Tue, 15 Oct 2019 09:15:09 +0200 Subject: [PATCH] Add viewInformation to testCommonInteractions to see easily whether the task contains a legal value --- Libraries/iTasks/Util/Testing.icl | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Libraries/iTasks/Util/Testing.icl b/Libraries/iTasks/Util/Testing.icl index a02a48f67..660c1cbce 100644 --- a/Libraries/iTasks/Util/Testing.icl +++ b/Libraries/iTasks/Util/Testing.icl @@ -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) -|| -- GitLab