Automatic execution of SCL tests in Maven

[simantics/platform.git] / tests / org.simantics.scl.compiler.tests / src / org / simantics / scl / compiler / tests / unit / TestTypeParser.java

diff --git a/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/unit/TestTypeParser.java b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/unit/TestTypeParser.java
new file mode 100644 (file)
index 0000000..5ce3690
--- /dev/null
+++ b/tests/org.simantics.scl.compiler.tests/src/org/simantics/scl/compiler/tests/unit/TestTypeParser.java
@@ -0,0 +1,25 @@
+package org.simantics.scl.compiler.tests.unit;\r
+\r
+import org.junit.Test;\r
+import org.simantics.scl.compiler.environment.Environment;\r
+import org.simantics.scl.compiler.environment.Environments;\r
+import org.simantics.scl.compiler.environment.specification.EnvironmentSpecification;\r
+import org.simantics.scl.compiler.runtime.RuntimeEnvironment;\r
+import org.simantics.scl.compiler.tests.TestBase;\r
+import org.simantics.scl.compiler.types.Type;\r
+\r
+public class TestTypeParser {\r
+    \r
+    @Test\r
+    public void testTypeParser() throws Exception {\r
+        EnvironmentSpecification spec = new EnvironmentSpecification();\r
+        spec.importModule("Builtin", "");\r
+        spec.importModule("Prelude", "");\r
+        RuntimeEnvironment runtimeEnvironment =\r
+                TestBase.PRELUDE_MODULE_REPOSITORY.createRuntimeEnvironment(spec, getClass().getClassLoader());\r
+        Environment environment = runtimeEnvironment.getEnvironment();\r
+        Type type = Environments.getType(environment, "String -> <Proc> ()");\r
+        System.out.println(type);\r
+    }\r
+    \r
+}\r