Add unit test for Tcl lexer.

2 files changed, 16 insertions, 0 deletions

diff --git a/test/examples/x.tcl b/test/examples/x.tcl
new file mode 100644
index 000000000..7553aca2d
--- /dev/null
+++ b/test/examples/x.tcl
@@ -0,0 +1,8 @@
+# tcl tests
+
+#simple example
+
+proc Echo_Server {port} {
+    set s [socket -server EchoAccept $port]
+    vwait forever
+}
diff --git a/test/examples/x.tcl.styled b/test/examples/x.tcl.styled
new file mode 100644
index 000000000..b9d419b41
--- /dev/null
+++ b/test/examples/x.tcl.styled
@@ -0,0 +1,8 @@
+{2}# tcl tests
+{0}
+{2}#simple example
+{0}
+{12}proc{0} {7}Echo_Server{0} {6}{{7}port{6}}{0} {6}{
+{0}    {12}set{0} {7}s{0} {6}[{12}socket{0} {10}-server{0} {7}EchoAccept{0} {8}$port{6}]
+{0}    {12}vwait{0} {7}forever{0}
+{6}}