diff options
| author | andy <andrew.m.goth@gmail.com> | 2016-12-11 04:08:02 (GMT) |
|---|---|---|
| committer | andy <andrew.m.goth@gmail.com> | 2016-12-11 04:08:02 (GMT) |
| commit | affb6af1fd933c8ffce5e3d04bf84e2a6f1dd8d5 (patch) | |
| tree | 4bb0cf9ef9d8dee0a501f85879a9ec6dbfef42d4 | |
| parent | 8a3e6395d8298edf433c596780e47c07f03dac01 (diff) | |
| download | tcl-affb6af1fd933c8ffce5e3d04bf84e2a6f1dd8d5.zip tcl-affb6af1fd933c8ffce5e3d04bf84e2a6f1dd8d5.tar.gz tcl-affb6af1fd933c8ffce5e3d04bf84e2a6f1dd8d5.tar.bz2 | |
Use setup feature in test array-5.4
| -rw-r--r-- | tests/array.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/array.test b/tests/array.test index e3adac6..6913dea 100644 --- a/tests/array.test +++ b/tests/array.test @@ -654,12 +654,14 @@ average search distance for entry: 1.3} test { name array-5.4 desc {collision attack} - body { + link a + setup { for {set i 16} {$i < 29} {incr i} { set a([binary format cc $i [expr {-$i * 9}]]) $i } - array statistics a - } result + } + body {array statistics a} + result {13 entries in table, 16 buckets number of buckets with 0 entries: 15 number of buckets with 1 entries: 0 |