Commit 150d2b57 authored by Bas Lijnse's avatar Bas Lijnse

Added interactive tests for all builtin container

parent a268326d
......@@ -6,6 +6,7 @@ module InteractiveTests
import iTasks, TestFramework
import Tests.Interactive.BuiltinEditors
import Tests.Interactive.GenericEditors
import Tests.Interactive.BuiltinContainers
import Tests.Interactive.Layout
import Tests.Interactive.Editlets
......@@ -21,6 +22,7 @@ import Tests.Common.MinimalTasks
suites = [//Interactive tests
testBuiltinEditors
,testGenericEditors
,testBuiltinContainers
,testLayoutI
,testEditletsI
//Unit tests
......
definition module Tests.Interactive.BuiltinContainers
/**
* Tests for the builtin containers in the client library
*/
import iTasks, TestFramework
testBuiltinContainers :: TestSuite
implementation module Tests.Interactive.BuiltinContainers
/**
* Tests for the builtin containers in the client library
*/
import iTasks, TestFramework
import iTasks.UI.Definition, iTasks.UI.Layout
testBuiltinContainers :: TestSuite
testBuiltinContainers = testsuite "Builtin Containers" "These tests let you check the containers that are used in layouts"
[testPanel
,testTabSet
,testWindow
,testMenu
,testToolBar
,testButtonBar
,testDebug
]
content :: Task String
content = viewInformation () [] "This is the content of the container"
testPanel = itest "Panel" "Check if the panel looks ok" "You cannot do anything with a panel" tut
where
tut = content <<@ ApplyLayout (wrapUI UIPanel) <<@ ApplyLayout (setAttributes (titleAttr "Panel with title"))
testTabSet = itest "Tab set" "Check if the tab panel looks ok" "There is only one tab" tut
where
tut = content <<@ ApplyLayout (setAttributes (titleAttr "Tab title")) <<@ ApplyLayout (wrapUI UITabSet)
testWindow = itest "Window" "Check if the window looks ok" "It should be a basic floating window" tut
where
tut = content <<@ ApplyLayout (wrapUI UIWindow) <<@ ApplyLayout (setAttributes (titleAttr "Window with title"))
testMenu = itest "Menu" "Check if the menu looks ok" "It should be a top-level menu that can expand on clicking" tut
where
tut = content <<@ ApplyLayout (wrapUI UIMenu) <<@ ApplyLayout (setAttributes (textAttr "Open menu"))
testToolBar = itest "Tool bar" "Check if the tool bar looks ok" "You cannot do anything with a tool bar" tut
where
tut = content <<@ ApplyLayout (wrapUI UIToolBar)
testButtonBar = itest "Button bar" "Check if the button bar looks ok" "You cannot do anything with a button bar" tut
where
tut = content <<@ ApplyLayout (wrapUI UIButtonBar)
testDebug = itest "Debug wrapper" "Check if the debug wrapper looks ok" "You cannot do anything with the debug wrapper" tut
where
tut = content <<@ ApplyLayout (wrapUI UIDebug)
definition module Tests.Interactive.BuiltinEditors
/**
* Tests for the generic editors of standard datatypes
* Tests for the builtin editors of standard datatypes
*/
import iTasks, TestFramework
......
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