diff options
Diffstat (limited to 'tests/perf.test')
| -rw-r--r-- | tests/perf.test | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/tests/perf.test b/tests/perf.test index fd28dff..e792c96 100644 --- a/tests/perf.test +++ b/tests/perf.test @@ -1,3 +1,5 @@ +set iterations 10000 + set version [info patchlevel] proc bench {name cmd} { @@ -11,7 +13,7 @@ proc bench {name cmd} { } proc set_dict_sugar {} { - for {set i 0} {$i < 10000} {incr i} { + for {set i 0} {$i < $::iterations} {incr i} { set a(b) $i } } @@ -20,7 +22,7 @@ proc set_dict_sugar {} { # speedup since a($b) needs to be interpolated and reparsed every time proc set_var_dict_sugar {} { set b b - for {set i 0} {$i < 10000} {incr i} { + for {set i 0} {$i < $::iterations} {incr i} { set a($b) $i } } @@ -102,7 +104,7 @@ proc read_file_split_assign_lindex {file} { # Create a really big file set f [open test.in w] -for {set i 0} {$i < 10000} {incr i} { +for {set i 0} {$i < $::iterations} {incr i} { puts $f "a\tb\tc\te\tf\tg\th\ti\tj\tk" } close $f |