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