From 06a3fcba8e3282aa52f90cbf6f2d1aad947a600c Mon Sep 17 00:00:00 2001
From: Neil <nyamatongwe@gmail.com>
Date: Tue, 29 Jan 2019 21:48:14 +1100
Subject: Add unit test for Tcl lexer.

---
 test/examples/x.tcl        | 8 ++++++++
 test/examples/x.tcl.styled | 8 ++++++++
 2 files changed, 16 insertions(+)
 create mode 100644 test/examples/x.tcl
 create mode 100644 test/examples/x.tcl.styled

(limited to 'test/examples')

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}}
-- 
cgit v1.2.3