diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-06-10 10:59:50 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-06-10 10:59:50 (GMT) |
commit | 179a97b763c7f1ea393680661106815915cef816 (patch) | |
tree | c19f3c038ede7c5bc881a391d81f2bf2e719a695 /tests/list.test | |
parent | 552e9c654253de9ba497a6f05f41ef13cf93d82a (diff) | |
parent | f271e62139957e6137efb528670436c4a9393818 (diff) | |
download | tcl-179a97b763c7f1ea393680661106815915cef816.zip tcl-179a97b763c7f1ea393680661106815915cef816.tar.gz tcl-179a97b763c7f1ea393680661106815915cef816.tar.bz2 |
Merge 8.7
Diffstat (limited to 'tests/list.test')
-rw-r--r-- | tests/list.test | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/tests/list.test b/tests/list.test index 4cd3a75..905a3d3 100644 --- a/tests/list.test +++ b/tests/list.test @@ -45,23 +45,23 @@ test list-1.24 {basic tests} {list} {} test list-1.25 {basic tests} {list # #} {{#} #} test list-1.26 {basic tests} {list #\{ #\{} {\#\{ #\{} test list-1.27 {basic null treatment} { - set l [list "" "\0" "\0\0"] - set e "{} \0 \0\0" + set l [list "" "\x00" "\x00\x00"] + set e "{} \x00 \x00\x00" string equal $l $e } 1 test list-1.28 {basic null treatment} { - set result "\0a\0b" + set result "\x00a\x00b" list $result [string length $result] -} "\0a\0b 4" +} "\x00a\x00b 4" test list-1.29 {basic null treatment} { - set result "\0a\0b" + set result "\x00a\x00b" set srep "$result 4" set lrep [list $result [string length $result]] string equal $srep $lrep } 1 test list-1.30 {basic null treatment} { - set l [list "\0abc" "xyz"] - set e "\0abc xyz" + set l [list "\x00abc" "xyz"] + set e "\x00abc xyz" string equal $l $e } 1 |