include "Simantics/Tests" createSTSTestAction :: Resource -> () createSTSTestAction res = do syncWrite (\() -> createSTSTest res) () importJava "org.simantics.tests.ui.TestsUIUtils" where runSTSTestAction :: Resource -> () createSTSSuiteAction :: Resource -> () createSTSSuiteAction res = do syncWrite (\() -> createSTSSuite res) ()