Merge commit 'b9450ae'
[simantics/platform.git] / bundles / org.simantics.tests.modelled.ui / scl / Simantics / TestsUI.scl
1 include "Simantics/Tests"\r
2 \r
3 createSTSTestAction :: Resource -> <Proc> ()\r
4 createSTSTestAction res = do\r
5   syncWrite (\() -> createSTSTest res)\r
6   ()\r
7 \r
8 importJava "org.simantics.tests.modelled.ui.TestsUIUtils" where\r
9     runSTSTestAction :: Resource -> <Proc> ()\r
10     \r
11 createSTSSuiteAction :: Resource -> <Proc> ()\r
12 createSTSSuiteAction res = do\r
13   syncWrite (\() -> createSTSSuite res)\r
14   ()