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   ()