diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-07 12:30:33 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-04-07 12:30:33 (GMT) |
| commit | 0dcddf9cf0a8fb91de33ffbe12b4ee5389953f8c (patch) | |
| tree | 3a31710c963bc2294fc8b9e9e4de59db1d49918a /tests/append.test | |
| parent | 79fd04384ae4ba428a1565cc136ca09d2481ab56 (diff) | |
| download | tcl-0dcddf9cf0a8fb91de33ffbe12b4ee5389953f8c.zip tcl-0dcddf9cf0a8fb91de33ffbe12b4ee5389953f8c.tar.gz tcl-0dcddf9cf0a8fb91de33ffbe12b4ee5389953f8c.tar.bz2 | |
More test-cases showing the bug
Diffstat (limited to 'tests/append.test')
| -rw-r--r-- | tests/append.test | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/tests/append.test b/tests/append.test index a174615..f26925f 100644 --- a/tests/append.test +++ b/tests/append.test @@ -53,6 +53,18 @@ test append-3.3 {append errors} -returnCodes error -body { unset -nocomplain x append x } -result {can't read "x": no such variable} +test append-3.4 {append surrogates} -body { + set x \uD83D + append x \uDE02 +} -result \uD83D\uDE02 +test append-3.5 {append surrogates} -body { + set x \uD83D + set x $x\uDE02 +} -result \uD83D\uDE02 +test append-3.5 {append surrogates} -body { + set x \uDE02 + set x \uD83D$x +} -result \uD83D\uDE02 test append-4.1 {lappend command} { unset -nocomplain x |