Migrated source code from Simantics SVN

[simantics/platform.git] / bundles / org.simantics.scl.compiler / tests / org / simantics / scl / compiler / tests / scl / TypeAliasRefsToTypeAlias.scl

diff --git a/bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/TypeAliasRefsToTypeAlias.scl b/bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/TypeAliasRefsToTypeAlias.scl
new file mode 100644 (file)
index 0000000..7ebb606
--- /dev/null
+++ b/bundles/org.simantics.scl.compiler/tests/org/simantics/scl/compiler/tests/scl/TypeAliasRefsToTypeAlias.scl
@@ -0,0 +1,22 @@
+type Foo = Bar
+type Bar = Integer
+main = 1 :: Foo
+--
+1
+--
+type Bar = Integer
+type Foo = Bar
+main = 1 :: Foo
+--
+1
+--
+type Foo = Foo
+main = 1 :: Foo
+--
+1:1-1:15: Type alias has a self reference.
+--
+type Foo = Bar
+type Bar = Foo
+main = 1 :: Foo
+--
+1:1-1:15: Recursively defined type alias (Foo, Bar).
\ No newline at end of file