Context test.

4 files changed, 37 insertions, 1 deletions

diff --git a/test/context1.exp b/test/context1.exp
new file mode 100644
index 00000000..03c53bf2
--- /dev/null
+++ b/test/context1.exp
@@ -0,0 +1,2 @@
+2
+a b c ( d e f )
diff --git a/test/context1.in b/test/context1.in
new file mode 100644
index 00000000..3130281a
--- /dev/null
+++ b/test/context1.in
@@ -0,0 +1 @@
+a b c ( d e f )
diff --git a/test/context1.lm b/test/context1.lm
new file mode 100644
index 00000000..2fe37eaf
--- /dev/null
+++ b/test/context1.lm
@@ -0,0 +1,33 @@
+context ctx
+{
+	int i
+	int j
+	int k
+
+	lex start
+	{
+		ignore /space+/
+		literal '*', '(', ')'
+		token id /[a-zA-Z_]+/ 
+	}
+
+	def foo [id]
+
+	def item 
+		[id]
+	|	[foo]
+	|	['(' item* ')']
+		{
+			i = 0
+			j = i + 1
+			k = j + 1
+			print( k, '\n' )
+		}
+
+	def start 
+		[item*]
+}
+
+ctx CTX = cons ctx[]
+start Input = parse start( CTX, stdin )
+print( Input, '\n' )
diff --git a/test/runtests b/test/runtests
index 2f806a40..f270de7c 100755
--- a/test/runtests
+++ b/test/runtests
@@ -6,7 +6,7 @@ TESTS="
 	backtrack1.lm backtrack2.lm dns.lm accum.lm
 	mutualrec.lm argv1.lm argv2.lm exit.lm rubyhere.lm
 	translate1.lm construct1.lm construct2.lm construct3.lm
-	treecmp1.lm
+	treecmp1.lm context1.lm
 "
 
 for t in $TESTS; do