Commit bed50591 authored by Mart Lubbers's avatar Mart Lubbers

fix tests

parent 587b076b
Pipeline #27083 failed with stage
in 2 minutes and 43 seconds
......@@ -77,7 +77,7 @@ testEditorWithShare :: (Editor a) a Bool -> Task a | iTask a
*
* @param The name of the type to test (e.g. "Int" or "MyADT")
*/
testCommonInteractions :: String -> Task a | iTask a
testCommonInteractions :: String -> Task a | iTask, gDefault{|*|} a
/**
......
......@@ -97,7 +97,7 @@ testEditorWithShare editor model viewMode = (withShared model
,onRefresh = \r l v -> (l,r,Nothing)} editor @ snd
) <<@ ArrangeHorizontal
testCommonInteractions :: String -> Task a | iTask a
testCommonInteractions :: String -> Task a | iTask, gDefault{|*|} a
testCommonInteractions typeName
= enterInformation ("Enter","Enter information of type " +++ typeName) []
-||- updateInformation ("Update","Update default value of type " +++ typeName) [] defaultValue
......
......@@ -8,6 +8,7 @@ import iTasks, iTasks.Util.Testing
| ADTMultiConsMulti Int String
derive class iTask ADTMultiCons
derive gDefault ADTMultiCons
test :: Task ADTMultiCons
test = testCommonInteractions "ADTMultiCons"
......
......@@ -3,6 +3,7 @@ import iTasks, iTasks.Util.Testing
:: ADTSingleConsMany = ADTSingleConsMany String Int String Int String
derive class iTask ADTSingleConsMany
derive gDefault ADTSingleConsMany
test :: Task ADTSingleConsMany
test = testCommonInteractions "ADTSingleConsMany"
......
......@@ -3,6 +3,7 @@ import iTasks, iTasks.Util.Testing
:: ADTSingleConsMulti = ADTSingleConsMulti Int String
derive class iTask ADTSingleConsMulti
derive gDefault ADTSingleConsMulti
test :: Task ADTSingleConsMulti
test = testCommonInteractions "ADTSingleConsMulti"
......
......@@ -3,6 +3,7 @@ import iTasks, iTasks.Util.Testing
:: ADTSingleCons = ADTSingleCons Int
derive class iTask ADTSingleCons
derive gDefault ADTSingleCons
test :: Task ADTSingleCons
test = testCommonInteractions "ADTSingleCons"
......
......@@ -3,6 +3,7 @@ import iTasks, iTasks.Util.Testing
:: List = Nil | Cons Int List
derive class iTask List
derive gDefault List
test :: Task List
test = testCommonInteractions "Custom list"
......
......@@ -11,6 +11,7 @@ import iTasks, iTasks.Util.Testing
, third :: Bool
}
derive class iTask TwoFieldRecord, NestedRecord
derive gDefault TwoFieldRecord, NestedRecord
test :: Task NestedRecord
test = testCommonInteractions "NestedRecord"
......
......@@ -6,6 +6,7 @@ import iTasks, iTasks.Util.Testing
, second :: String
}
derive class iTask TwoFieldRecord
derive gDefault TwoFieldRecord
test :: Task (Maybe TwoFieldRecord)
test = testCommonInteractions "Optional record"
......
......@@ -12,6 +12,7 @@ import iTasks, iTasks.Util.Testing
}
derive class iTask ADTMultiCons, RecordWithADT
derive gDefault ADTMultiCons, RecordWithADT
test :: Task RecordWithADT
test = testCommonInteractions "Record with ADT"
......
......@@ -6,6 +6,7 @@ import iTasks, iTasks.Util.Testing
, second :: String
}
derive class iTask TwoFieldRecord
derive gDefault TwoFieldRecord
test :: Task TwoFieldRecord
test = testCommonInteractions "TwoFieldRecord"
......
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