diff options
| author | Steve Bennett <steveb@workware.net.au> | 2013-11-11 18:31:53 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2013-11-11 20:40:46 +1000 |
| commit | 5a8a3016b9e1218dd6f478259e890510c2a53e3d (patch) | |
| tree | a985a6e142ca64e4e9c1733fcd022f715a1736b8 /tests | |
| parent | 2dba052c8e456f5d4b1b77fa85f4105650f1fe38 (diff) | |
| download | jimtcl-5a8a3016b9e1218dd6f478259e890510c2a53e3d.zip jimtcl-5a8a3016b9e1218dd6f478259e890510c2a53e3d.tar.gz jimtcl-5a8a3016b9e1218dd6f478259e890510c2a53e3d.tar.bz2 | |
Properly respect backslashes in comments
Reported-by: Sergei Gavrikov <sergei.gavrikov@gmail.com>
Signed-off-by: Steve Bennett <steveb@workware.net.au>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/parse.test | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/parse.test b/tests/parse.test index e352fc3..982c4a4 100644 --- a/tests/parse.test +++ b/tests/parse.test @@ -320,4 +320,19 @@ test parse-1.63 "unquoted dollar sign" { set x x$ } {x$} +test parse-1.64 "backslash in comment" { + set x 0 + # comment \ + incr x + incr x +} 1 + +test parse-1.65 "double backslash in comment" { + set x 0 + # comment \\ + incr x + incr x +} 2 + + testreport |