From 8765feaff03dec307a01fdb42e069374f0ebd0eb Mon Sep 17 00:00:00 2001
From: Neil <nyamatongwe@gmail.com>
Date: Wed, 30 Jan 2019 13:23:51 +1100
Subject: Add a ';' statement separator at end of statement in example code.
 The TCL lexer handles CRLF line ends strangely often with different styles
 for the CR and LF. This breaks the unit testing driver as the CR and LF are
 now separated in the output leading to 2 lines where there was one. It also
 causes differences in runs between Windows and Unix.

---
 test/examples/x.tcl        | 2 +-
 test/examples/x.tcl.styled | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'test/examples')

diff --git a/test/examples/x.tcl b/test/examples/x.tcl
index 6a4b13dbe..d1260fc82 100644
--- a/test/examples/x.tcl
+++ b/test/examples/x.tcl
@@ -4,7 +4,7 @@
 
 proc Echo_Server {port} {
     set s [socket -server EchoAccept $port]
-    vwait forever
+    vwait forever;
 }
 
 # Bug #1947
diff --git a/test/examples/x.tcl.styled b/test/examples/x.tcl.styled
index fecdc9dea..66af41327 100644
--- a/test/examples/x.tcl.styled
+++ b/test/examples/x.tcl.styled
@@ -4,7 +4,7 @@
 {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}
+{0}    {12}vwait{0} {7}forever{0};
 {6}}
 {0}
 {2}# Bug #1947
-- 
cgit v1.2.3