tests useful on the no-kf-dupign branch

These tests are helpful when testing the no-kf-dupign branch.

1 files changed, 54 insertions, 0 deletions

diff --git a/test/ignore1.lm b/test/ignore1.lm
new file mode 100644
index 00000000..ebf7413f
--- /dev/null
+++ b/test/ignore1.lm
@@ -0,0 +1,54 @@
+
+#
+# Regular Definitions
+#
+rl rl_ws /[.+ \t\n\r\v]+/
+rl rl_id /[a-zA-Z_][a-zA-Z0-9_]*/
+
+#
+# Tokens
+#
+
+lex start
+{
+	literal '=', '<', '>', '/'
+
+	# Ignore whitespace.
+	ignore /rl_ws/
+
+	# Open and close id
+	token id /rl_id/
+}
+
+#
+# Productions
+#
+
+def attr [id '=' id]
+
+def attr_list 
+	[attr_list attr]
+|	[]
+
+def open_tag 
+	['<' id attr_list '>']
+
+def close_tag
+	['<' '/' id '>']
+
+def tag 
+	[open_tag item_list close_tag]
+
+def item_list 
+	[item_list tag]
+|	[]
+
+parse Attrs: attr_list( stdin )
+
+print( Attrs '\n' )
+
+## Reconstruct the left hand side with the 
+construct IL: item_list 
+	["<wrapper .[Attrs]. ></wrapper>"]
+
+print( IL '\n' )