diff options
| author | andy <andrew.m.goth@gmail.com> | 2016-12-11 03:05:29 (GMT) |
|---|---|---|
| committer | andy <andrew.m.goth@gmail.com> | 2016-12-11 03:05:29 (GMT) |
| commit | 05a6e9024f9c445a60e0c63418d2cdd2fe4dc646 (patch) | |
| tree | 20628570712f03b201901abced6ba8309bb734ff | |
| parent | 1133fac29405c7f0df9f5accf1ee7038bb9486d2 (diff) | |
| download | tcl-05a6e9024f9c445a60e0c63418d2cdd2fe4dc646.zip tcl-05a6e9024f9c445a60e0c63418d2cdd2fe4dc646.tar.gz tcl-05a6e9024f9c445a60e0c63418d2cdd2fe4dc646.tar.bz2 | |
Adjust test array-5.4 to not use [array set]
| -rw-r--r-- | tests/array.test | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/tests/array.test b/tests/array.test index 69bf681..d70d507 100644 --- a/tests/array.test +++ b/tests/array.test @@ -656,9 +656,8 @@ test { desc {collision attack} body { for {set i 16} {$i < 29} {incr i} { - lappend list [binary format cc $i [expr {-$i * 9}]] $i + set a([binary format cc $i [expr {-$i * 9}]]) $i } - array set a $list array statistics a } result {13 entries in table, 16 buckets |