1 include "Simantics/Tests"
\r
3 createSTSTestAction :: Resource -> <Proc> ()
\r
4 createSTSTestAction res = do
\r
5 syncWrite (\() -> createSTSTest res)
\r
8 importJava "org.simantics.tests.modelled.ui.TestsUIUtils" where
\r
9 runSTSTestAction :: Resource -> <Proc> ()
\r
11 createSTSSuiteAction :: Resource -> <Proc> ()
\r
12 createSTSSuiteAction res = do
\r
13 syncWrite (\() -> createSTSSuite res)
\r