Verified Commit 322ae43d authored by Camil Staps's avatar Camil Staps 🚀

Update imports in interactive tests

parent 8c1cafcf
Pipeline #29320 passed with stage
in 4 minutes and 37 seconds
module TestCheckGroup
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task ([ChoiceText],[Int])
test = testEditor checkGroup ([{ChoiceText|id=0,text="A"},{ChoiceText|id=1,text="B"},{ChoiceText|id=2,text="C"}],[]) Update
......
module TestCheckGroupMulti
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task ([ChoiceText],[Int])
test = testEditor (checkGroup <<@ multipleAttr True) ([{ChoiceText|id=0,text="A"},{ChoiceText|id=1,text="B"},{ChoiceText|id=2,text="C"}],[]) Update
......
module TestCheckbox
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task Bool
test = testEditor checkBox False Update
......
module TestChoiceList
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task ([ChoiceText],[Int])
test = testEditor (choiceList <<@ multipleAttr False) ([{ChoiceText|id=0,text="A"},{ChoiceText|id=1,text="B"},{ChoiceText|id=2,text="C"}],[]) Update
......
module TestChoiceListMulti
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task ([ChoiceText],[Int])
test = testEditor (choiceList <<@ multipleAttr True) ([{ChoiceText|id=0,text="A"},{ChoiceText|id=1,text="B"},{ChoiceText|id=2,text="C"}],[]) Update
......
module TestDecimalField
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task Real
test = testEditor decimalField 3.14 Update
......
module TestDocumentField
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (!String,!String,!String,!String,!Int)
test = testEditor documentField defaultValue Enter
......
module TestDropdown
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task ([ChoiceText],[Int])
test = testEditor (dropdown <<@ multipleAttr False) ([{ChoiceText|id=0,text="A"},{ChoiceText|id=1,text="B"},{ChoiceText|id=2,text="C"}],[]) Update
......
module TestGrid
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (ChoiceGrid,[Int])
test = testEditor (grid <<@ multipleAttr False) ({ChoiceGrid|header=["Key","Value"],rows=rows},[]) Update
......
module TestGridMulti
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (ChoiceGrid,[Int])
test = testEditor (grid <<@ multipleAttr True) ({ChoiceGrid|header=["Key","Value"],rows=rows},[]) Update
......
module TestGridShare
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (ChoiceGrid,[Int])
test = (testEditorWithShare (grid <<@ multipleAttr True) ({ChoiceGrid|header=["Key","Value"],rows=rows},[]) Update)
......
module TestHtmlView
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task HtmlTag
test = testEditor htmlView (H2Tag [] [Text "Hello World"]) Update
......
module TestIcon
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (String,Maybe String)
test = testEditor icon ("icon-valid",Just "Icon with a tooltip!") Update
......
module TestIntegerField
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task Int
test = testEditor integerField 42 Update
......
module TestLabel
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditor label "Hello world" Update
......
module TestList
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task [String]
test = testEditor (listEditor (Just (const (Just "New item"))) True True (Just (\items -> length items +++> " items")) textField) [] Update
......
module TestPasswordField
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditor passwordField "Hello world" Update
......
module TestProgressBar
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (Maybe Int,Maybe String)
test = testEditor progressBar (Just 90,Just "Almost done") Update
......
module TestSlider
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task Int
test = testEditor (slider <<@ ('DM'.union (minAttr 1) (maxAttr 5))) 3 Update
......
module TestTextArea
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditor textArea "Hello world" Update
......
module TestTextField
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditor textField "Hello world" Update
......
module TestTextView
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditor textView "Hello World" Update
......
module TestTree
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task ([ChoiceNode],[Int])
test = testEditor (tree <<@ multipleAttr False)
......
module TestTree
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task ([ChoiceNode],[Int])
test = testEditor (tree <<@ multipleAttr True)
......
module TestColoredTextField
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditor (withAttributes (styleAttr "background-color: pink") textField) "Hello world" Update
......
module TestCombinedTextFields
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (String,String)
test = testEditor (container2 textField textField) ("Hello","world") Update
......
module TestDateField
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task Date
test = testEditor gEditor{|*|} {Date|year=2003,mon=1,day=13} Update
......
module TestLabeledTextField
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditor (withLabelAttr "Foo" textField) "Hello world" Update
......
module TestMixedCombinedTextFields
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (String,String)
test = testEditor editor ("Hello","world") Update
......
module TestAceEditorWithShare
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task (AceOptions,AceState)
test = testEditorWithShare aceEditor defaultValue Update
......
module TestAceTextArea
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditor aceTextArea "Hello world" Update
......
module TestAceTextAreaWithShare
import iTasks, iTasks.Internal.Test.Definition
import iTasks, iTasks.Util.Testing
test :: Task String
test = testEditorWithShare aceTextArea "Hello world" Update
......
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