diff options
| author | griffin <briang42@easystreet.net> | 2022-11-02 22:33:01 (GMT) |
|---|---|---|
| committer | griffin <briang42@easystreet.net> | 2022-11-02 22:33:01 (GMT) |
| commit | 853e484a64f304ca86f7df17d8576aaf995bd457 (patch) | |
| tree | 04fe0e7b991889785d04863e56e3b447ca6fffcd /tests/lseq.test | |
| parent | 5a3d2ddfede6842bc089bd78d0c80fad82f911b0 (diff) | |
| parent | e2e526bea8ef2256a75b29eba0f828467df9d4bd (diff) | |
| download | tcl-853e484a64f304ca86f7df17d8576aaf995bd457.zip tcl-853e484a64f304ca86f7df17d8576aaf995bd457.tar.gz tcl-853e484a64f304ca86f7df17d8576aaf995bd457.tar.bz2 | |
TIP 636 for Tcl 9
Diffstat (limited to 'tests/lseq.test')
| -rw-r--r-- | tests/lseq.test | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/tests/lseq.test b/tests/lseq.test index 3f68da4..04069fc 100644 --- a/tests/lseq.test +++ b/tests/lseq.test @@ -537,9 +537,16 @@ test lseq-4.8 {error case lrange} -body { test lseq-4.9 {error case lrange} -body { set fred 7 set ginger 8 - lrange [lseq 1 5] $fred $ginger -} -returnCodes 1 \ - -result {index 7 is out of bounds 0 to 4} + lrange [lseq 1 10] $fred $ginger +} -result {8 9} + +test lseq-4.10 {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} + # Panic when using variable value? test lseq-4.10 {panic using variable index} { |