Sync git svn branch with SVN repository r33290.

[simantics/platform.git] / bundles / org.simantics.tests.modelled.ui / scl / Simantics / TestsUI.scl

diff --git a/bundles/org.simantics.tests.modelled.ui/scl/Simantics/TestsUI.scl b/bundles/org.simantics.tests.modelled.ui/scl/Simantics/TestsUI.scl
new file mode 100644 (file)
index 0000000..428c18f
--- /dev/null
+++ b/bundles/org.simantics.tests.modelled.ui/scl/Simantics/TestsUI.scl
@@ -0,0 +1,14 @@
+include "Simantics/Tests"\r
+\r
+createSTSTestAction :: Resource -> <Proc> ()\r
+createSTSTestAction res = do\r
+  syncWrite (\() -> createSTSTest res)\r
+  ()\r
+\r
+importJava "org.simantics.tests.ui.TestsUIUtils" where\r
+    runSTSTestAction :: Resource -> <Proc> ()\r
+    \r
+createSTSSuiteAction :: Resource -> <Proc> ()\r
+createSTSSuiteAction res = do\r
+  syncWrite (\() -> createSTSSuite res)\r
+  ()
\ No newline at end of file