Ignore multiple modelled tests via context menu action
[simantics/platform.git] / bundles / org.simantics.tests.modelled.ui / scl / Simantics / TestsUI.scl
1 include "Simantics/Tests"
2
3 createSTSTestAction :: Resource -> <Proc> ()
4 createSTSTestAction res = do
5   syncWrite (\() -> createSTSTest res)
6   ()
7
8 importJava "org.simantics.tests.modelled.ui.TestsUIUtils" where
9     runSTSTestAction :: Resource -> <Proc> ()
10     ignoreSTSTestAction :: [Resource] -> <Proc> ()
11     
12 createSTSSuiteAction :: Resource -> <Proc> ()
13 createSTSSuiteAction res = do
14   syncWrite (\() -> createSTSSuite res)
15   ()
16
17 createSTSVariableAction :: Resource -> <Proc> ()
18 createSTSVariableAction res = do
19   syncWrite(\() -> createSTSVariable res)
20   ()