diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-30 15:13:12 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-10-30 15:13:12 (GMT) |
| commit | d9737c5991ba61c51f807ee3a63dd19d59ca9b9f (patch) | |
| tree | 5c801fc9a784da4f38c92c452e2384223e3a39a5 /tests/zlib.test | |
| parent | fb3868da56eefe6d9e742897992fe979185e1cc1 (diff) | |
| parent | 3b0ee42270085b039b75e2e27a3a145399a1bfac (diff) | |
| download | tcl-d9737c5991ba61c51f807ee3a63dd19d59ca9b9f.zip tcl-d9737c5991ba61c51f807ee3a63dd19d59ca9b9f.tar.gz tcl-d9737c5991ba61c51f807ee3a63dd19d59ca9b9f.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'tests/zlib.test')
| -rw-r--r-- | tests/zlib.test | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/zlib.test b/tests/zlib.test index 1461c43..7ddf1d7 100644 --- a/tests/zlib.test +++ b/tests/zlib.test @@ -140,7 +140,7 @@ test zlib-7.7 {zlib stream: Bug 25842c161} -constraints zlib -body { } -result "" # Also causes Tk Bug 10f2e7872b test zlib-7.8 {zlib stream: Bug b26e38a3e4} -constraints zlib -setup { - expr srand(12345) + expr {srand(12345)} set randdata {} for {set i 0} {$i<6001} {incr i} { append randdata [binary format c [expr {int(256*rand())}]] @@ -451,7 +451,7 @@ test zlib-8.16 {Bug 3603553: buffer transfer with large writes} -setup { # Actual data isn't very important; needs to be substantially larger than # the internal buffer (32kB) and incompressible. set largeData {} - for {set i 0;expr srand(1)} {$i < 100000} {incr i} { + for {set i 0;expr {srand(1)}} {$i < 100000} {incr i} { append largeData [lindex "a b c d e f g h i j k l m n o p" \ [expr {int(16*rand())}]] } |