From 4f1b30ebe70a6475ffeca1ce2c0dc48c8e70a5f9 Mon Sep 17 00:00:00 2001
From: Neil <nyamatongwe@gmail.com>
Date: Sat, 14 Dec 2019 08:17:00 +1100
Subject: Lexilla tests.

---
 lexilla/test/examples/tcl/x.tcl | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 lexilla/test/examples/tcl/x.tcl

(limited to 'lexilla/test/examples/tcl/x.tcl')

diff --git a/lexilla/test/examples/tcl/x.tcl b/lexilla/test/examples/tcl/x.tcl
new file mode 100644
index 000000000..d1260fc82
--- /dev/null
+++ b/lexilla/test/examples/tcl/x.tcl
@@ -0,0 +1,13 @@
+# tcl tests
+
+#simple example
+
+proc Echo_Server {port} {
+    set s [socket -server EchoAccept $port]
+    vwait forever;
+}
+
+# Bug #1947
+
+$s($i,"n")
+set n $showArray($i,"neighbor")
-- 
cgit v1.2.3