X-Git-Url: http://git.megacz.com/?p=sbp.git;a=blobdiff_plain;f=tests%2Fcircular.tc;fp=tests%2Fcircular.tc;h=c493fb35c8f1a530f078dcd4b1903e3779506c71;hp=0000000000000000000000000000000000000000;hb=e84029a8b861075d6d0ed5040f919b2e4da4c98f;hpb=a8478f5ddfbfbc8d910d09f27163cbd55752d3b6

diff --git a/tests/circular.tc b/tests/circular.tc
new file mode 100644
index 0000000..c493fb3
--- /dev/null
+++ b/tests/circular.tc
@@ -0,0 +1,21 @@
+// circular test cases
+//testcase {
+//    input  "x";
+//    output "a:{x}";
+//
+//    s   = a1:: a
+//    a   = s1:: s
+//    a   = ^"x"
+//}
+//
+//testcase {
+//    input  "x";
+//    output "x";
+//    output "s2:{s2:{s0 s0} x}";
+//    output "s2:{s0 x}";
+//
+//
+//    s   = s2:: s s
+//    s   = ^"x"
+//    s   = s0:: ()
+//}