diff options
| author | Neil <nyamatongwe@gmail.com> | 2019-01-29 21:48:14 +1100 |
|---|---|---|
| committer | Neil <nyamatongwe@gmail.com> | 2019-01-29 21:48:14 +1100 |
| commit | 867d324b771ee749a7ad31faf19baab7b1ccaa38 (patch) | |
| tree | 1a85c1d7bb1de32dceb7fc9978e89d32a98d45d1 /test/examples | |
| parent | 4b2d6cc8ac3970567bc75b4590e3737d8aa67b16 (diff) | |
| download | scintilla-mirror-867d324b771ee749a7ad31faf19baab7b1ccaa38.tar.gz | |
Backport: Add unit test for Tcl lexer.
Backport of changeset 7242:d2ac12d5ab0e.
Diffstat (limited to 'test/examples')
| -rw-r--r-- | test/examples/x.tcl | 8 | ||||
| -rw-r--r-- | test/examples/x.tcl.styled | 8 |
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}} |