diff options
| author | griffin <briang42@easystreet.net> | 2022-10-19 04:35:15 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2022-10-19 04:35:15 (GMT) |
| commit | 0bc040dc409a30e0269975baec7cca5ac29a99ae (patch) | |
| tree | decf200a4ee3f051a21e58b442fc6320104b7bf5 /tests | |
| parent | fb722eca5699fe89d2738fd6fc79f57ce9959026 (diff) | |
| download | tcl-0bc040dc409a30e0269975baec7cca5ac29a99ae.zip tcl-0bc040dc409a30e0269975baec7cca5ac29a99ae.tar.gz tcl-0bc040dc409a30e0269975baec7cca5ac29a99ae.tar.bz2 | |
More work on lset support in AbstractLists
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/lseq.test | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/lseq.test b/tests/lseq.test index 2e5d7e1..c5adbae 100644 --- a/tests/lseq.test +++ b/tests/lseq.test @@ -510,6 +510,12 @@ test lseq-4.5 {lindex off by one} -body { unset res } -result {4 3} +test lseq-4.6 {lset shimmer} -body { + set l [lseq 15] + lappend res $l [lindex [tcl::unsupported::representation $l] 3] + lset l 3 25 + lappend res $l [lindex [tcl::unsupported::representation $l] 3] +} -result {{0 1 2 3 4 5 6 7 8 9 10 11 12 13 14} arithseries {0 1 2 25 4 5 6 7 8 9 10 11 12 13 14} list} # cleanup ::tcltest::cleanupTests |