Artifact
f278780aaae1dd84def2c6cbae3ea6809a76f8c6:
Attachment "range.test.tcl" to
ticket [1052584fff]
added by
antirez
2004-10-25 15:09:06.
0000: 23 20 43 6f 6d 6d 61 6e 64 73 20 63 6f 76 65 72 # Commands cover
0010: 65 64 3a 20 20 72 61 6e 67 65 2c 20 66 6f 72 65 ed: range, fore
0020: 61 63 68 2c 20 6c 69 6e 64 65 78 2c 20 6c 6c 65 ach, lindex, lle
0030: 6e 67 74 68 0a 23 0a 23 20 54 68 69 73 20 66 69 ngth.#.# This fi
0040: 6c 65 20 63 6f 6e 74 61 69 6e 73 20 61 20 63 6f le contains a co
0050: 6c 6c 65 63 74 69 6f 6e 20 6f 66 20 74 65 73 74 llection of test
0060: 73 20 66 6f 72 20 6f 6e 65 20 6f 72 20 6d 6f 72 s for one or mor
0070: 65 20 6f 66 20 74 68 65 20 54 63 6c 0a 23 20 62 e of the Tcl.# b
0080: 75 69 6c 74 2d 69 6e 20 63 6f 6d 6d 61 6e 64 73 uilt-in commands
0090: 2e 20 20 53 6f 75 72 63 69 6e 67 20 74 68 69 73 . Sourcing this
00a0: 20 66 69 6c 65 20 69 6e 74 6f 20 54 63 6c 20 72 file into Tcl r
00b0: 75 6e 73 20 74 68 65 20 74 65 73 74 73 20 61 6e uns the tests an
00c0: 64 0a 23 20 67 65 6e 65 72 61 74 65 73 20 6f 75 d.# generates ou
00d0: 74 70 75 74 20 66 6f 72 20 65 72 72 6f 72 73 2e tput for errors.
00e0: 20 20 4e 6f 20 6f 75 74 70 75 74 20 6d 65 61 6e No output mean
00f0: 73 20 6e 6f 20 65 72 72 6f 72 73 20 77 65 72 65 s no errors were
0100: 20 66 6f 75 6e 64 2e 0a 23 0a 23 20 43 6f 70 79 found..#.# Copy
0110: 72 69 67 68 74 20 28 63 29 20 31 39 39 31 2d 31 right (c) 1991-1
0120: 39 39 33 20 54 68 65 20 52 65 67 65 6e 74 73 20 993 The Regents
0130: 6f 66 20 74 68 65 20 55 6e 69 76 65 72 73 69 74 of the Universit
0140: 79 20 6f 66 20 43 61 6c 69 66 6f 72 6e 69 61 2e y of California.
0150: 0a 23 20 43 6f 70 79 72 69 67 68 74 20 28 63 29 .# Copyright (c)
0160: 20 31 39 39 34 2d 31 39 39 37 20 53 75 6e 20 4d 1994-1997 Sun M
0170: 69 63 72 6f 73 79 73 74 65 6d 73 2c 20 49 6e 63 icrosystems, Inc
0180: 2e 0a 23 0a 23 20 53 65 65 20 74 68 65 20 66 69 ..#.# See the fi
0190: 6c 65 20 22 6c 69 63 65 6e 73 65 2e 74 65 72 6d le "license.term
01a0: 73 22 20 66 6f 72 20 69 6e 66 6f 72 6d 61 74 69 s" for informati
01b0: 6f 6e 20 6f 6e 20 75 73 61 67 65 20 61 6e 64 20 on on usage and
01c0: 72 65 64 69 73 74 72 69 62 75 74 69 6f 6e 0a 23 redistribution.#
01d0: 20 6f 66 20 74 68 69 73 20 66 69 6c 65 2c 20 61 of this file, a
01e0: 6e 64 20 66 6f 72 20 61 20 44 49 53 43 4c 41 49 nd for a DISCLAI
01f0: 4d 45 52 20 4f 46 20 41 4c 4c 20 57 41 52 52 41 MER OF ALL WARRA
0200: 4e 54 49 45 53 2e 0a 23 0a 23 20 52 43 53 3a 20 NTIES..#.# RCS:
0210: 40 28 23 29 20 24 49 64 3a 20 66 6f 72 65 61 63 @(#) $Id: foreac
0220: 68 2e 74 65 73 74 2c 76 20 31 2e 39 20 32 30 30 h.test,v 1.9 200
0230: 33 2f 30 33 2f 32 37 20 31 33 3a 31 39 3a 31 35 3/03/27 13:19:15
0240: 20 64 6b 66 20 45 78 70 20 24 0a 0a 69 66 20 7b dkf Exp $..if {
0250: 5b 6c 73 65 61 72 63 68 20 5b 6e 61 6d 65 73 70 [lsearch [namesp
0260: 61 63 65 20 63 68 69 6c 64 72 65 6e 5d 20 3a 3a ace children] ::
0270: 74 63 6c 74 65 73 74 5d 20 3d 3d 20 2d 31 7d 20 tcltest] == -1}
0280: 7b 0a 20 20 20 20 70 61 63 6b 61 67 65 20 72 65 {. package re
0290: 71 75 69 72 65 20 74 63 6c 74 65 73 74 0a 20 20 quire tcltest.
02a0: 20 20 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f namespace impo
02b0: 72 74 20 2d 66 6f 72 63 65 20 3a 3a 74 63 6c 74 rt -force ::tclt
02c0: 65 73 74 3a 3a 2a 0a 7d 0a 0a 74 65 73 74 43 6f est::*.}..testCo
02d0: 6e 73 74 72 61 69 6e 74 20 74 65 73 74 65 76 61 nstraint testeva
02e0: 6c 65 78 20 5b 6c 6c 65 6e 67 74 68 20 5b 69 6e lex [llength [in
02f0: 66 6f 20 63 6f 6d 6d 61 6e 64 73 20 74 65 73 74 fo commands test
0300: 65 76 61 6c 65 78 5d 5d 0a 0a 23 20 42 61 73 69 evalex]]..# Basi
0310: 63 20 22 72 61 6e 67 65 22 20 61 72 69 74 68 6d c "range" arithm
0320: 65 74 69 63 20 73 65 71 75 65 6e 63 65 73 20 67 etic sequences g
0330: 65 6e 65 72 61 74 65 64 20 74 65 73 74 73 2e 0a enerated tests..
0340: 0a 74 65 73 74 20 72 61 6e 67 65 2d 31 2e 31 20 .test range-1.1
0350: 7b 62 61 73 69 63 20 72 61 6e 67 65 20 74 65 73 {basic range tes
0360: 74 73 7d 20 7b 0a 20 20 20 20 72 61 6e 67 65 20 ts} {. range
0370: 30 20 31 30 0a 7d 20 7b 30 20 31 20 32 20 33 20 0 10.} {0 1 2 3
0380: 34 20 35 20 36 20 37 20 38 20 39 7d 0a 0a 74 65 4 5 6 7 8 9}..te
0390: 73 74 20 72 61 6e 67 65 2d 31 2e 32 20 7b 62 61 st range-1.2 {ba
03a0: 73 69 63 20 72 61 6e 67 65 20 74 65 73 74 73 7d sic range tests}
03b0: 20 7b 0a 20 20 20 20 72 61 6e 67 65 20 31 30 20 {. range 10
03c0: 30 20 2d 31 0a 7d 20 7b 31 30 20 39 20 38 20 37 0 -1.} {10 9 8 7
03d0: 20 36 20 35 20 34 20 33 20 32 20 31 7d 0a 0a 74 6 5 4 3 2 1}..t
03e0: 65 73 74 20 72 61 6e 67 65 2d 31 2e 33 20 7b 62 est range-1.3 {b
03f0: 61 73 69 63 20 72 61 6e 67 65 20 74 65 73 74 73 asic range tests
0400: 7d 20 7b 0a 20 20 20 20 72 61 6e 67 65 20 31 20 } {. range 1
0410: 31 30 20 31 31 0a 7d 20 7b 31 7d 0a 0a 74 65 73 10 11.} {1}..tes
0420: 74 20 72 61 6e 67 65 2d 31 2e 34 20 7b 62 61 73 t range-1.4 {bas
0430: 69 63 20 72 61 6e 67 65 20 74 65 73 74 73 7d 20 ic range tests}
0440: 7b 0a 20 20 20 20 72 61 6e 67 65 20 31 20 31 30 {. range 1 10
0450: 20 31 31 0a 7d 20 7b 31 7d 0a 0a 74 65 73 74 20 11.} {1}..test
0460: 72 61 6e 67 65 2d 31 2e 35 20 7b 62 61 73 69 63 range-1.5 {basic
0470: 20 72 61 6e 67 65 20 74 65 73 74 73 7d 20 7b 0a range tests} {.
0480: 20 20 20 20 72 61 6e 67 65 20 31 30 20 31 30 0a range 10 10.
0490: 7d 20 7b 7d 0a 0a 74 65 73 74 20 72 61 6e 67 65 } {}..test range
04a0: 2d 31 2e 36 20 7b 62 61 73 69 63 20 72 61 6e 67 -1.6 {basic rang
04b0: 65 20 74 65 73 74 73 7d 20 7b 0a 20 20 20 20 72 e tests} {. r
04c0: 61 6e 67 65 20 31 30 20 31 30 20 32 0a 7d 20 7b ange 10 10 2.} {
04d0: 7d 0a 0a 74 65 73 74 20 72 61 6e 67 65 2d 31 2e }..test range-1.
04e0: 37 20 7b 62 61 73 69 63 20 72 61 6e 67 65 20 74 7 {basic range t
04f0: 65 73 74 7d 20 7b 0a 20 20 20 20 72 61 6e 67 65 est} {. range
0500: 20 35 0a 7d 20 7b 30 20 31 20 32 20 33 20 34 7d 5.} {0 1 2 3 4}
0510: 0a 0a 74 65 73 74 20 72 61 6e 67 65 2d 31 2e 38 ..test range-1.8
0520: 20 7b 62 61 73 69 63 20 72 61 6e 67 65 20 74 65 {basic range te
0530: 73 74 7d 20 7b 0a 20 20 20 20 72 61 6e 67 65 20 st} {. range
0540: 2d 31 30 20 2d 32 30 20 2d 32 0a 7d 20 7b 2d 31 -10 -20 -2.} {-1
0550: 30 20 2d 31 32 20 2d 31 34 20 2d 31 36 20 2d 31 0 -12 -14 -16 -1
0560: 38 7d 0a 0a 74 65 73 74 20 72 61 6e 67 65 2d 31 8}..test range-1
0570: 2e 39 20 7b 62 61 73 69 63 20 72 61 6e 67 65 20 .9 {basic range
0580: 74 65 73 74 7d 20 7b 0a 20 20 20 20 72 61 6e 67 test} {. rang
0590: 65 20 2d 32 30 20 2d 31 30 20 33 0a 7d 20 7b 2d e -20 -10 3.} {-
05a0: 32 30 20 2d 31 37 20 2d 31 34 20 2d 31 31 7d 0a 20 -17 -14 -11}.
05b0: 0a 74 65 73 74 20 72 61 6e 67 65 2d 32 2e 30 20 .test range-2.0
05c0: 7b 66 6f 72 65 61 63 68 20 72 61 6e 67 65 20 74 {foreach range t
05d0: 65 73 74 7d 20 7b 0a 20 20 20 20 73 65 74 20 6b est} {. set k
05e0: 20 30 0a 20 20 20 20 66 6f 72 65 61 63 68 20 7b 0. foreach {
05f0: 78 20 79 7d 20 5b 72 61 6e 67 65 20 31 30 30 5d x y} [range 100]
0600: 20 7b 0a 09 69 6e 63 72 20 6b 20 5b 65 78 70 72 {..incr k [expr
0610: 20 7b 24 78 2a 24 79 7d 5d 0a 20 20 20 20 7d 0a {$x*$y}]. }.
0620: 20 20 20 20 73 65 74 20 6b 0a 7d 20 7b 31 36 34 set k.} {164
0630: 31 35 30 7d 0a 0a 74 65 73 74 20 72 61 6e 67 65 150}..test range
0640: 2d 32 2e 31 20 7b 66 6f 72 65 61 63 68 20 72 61 -2.1 {foreach ra
0650: 6e 67 65 20 74 65 73 74 20 77 69 74 68 6f 75 74 nge test without
0660: 20 6f 62 6a 20 72 65 75 73 65 7d 20 7b 0a 20 20 obj reuse} {.
0670: 20 20 73 65 74 20 6b 20 30 0a 20 20 20 20 73 65 set k 0. se
0680: 74 20 74 72 61 73 68 20 7b 7d 0a 20 20 20 20 66 t trash {}. f
0690: 6f 72 65 61 63 68 20 7b 78 20 79 7d 20 5b 72 61 oreach {x y} [ra
06a0: 6e 67 65 20 31 30 30 5d 20 7b 0a 09 69 6e 63 72 nge 100] {..incr
06b0: 20 6b 20 5b 65 78 70 72 20 7b 24 78 2a 24 79 7d k [expr {$x*$y}
06c0: 5d 0a 09 6c 61 70 70 65 6e 64 20 74 72 61 73 68 ]..lappend trash
06d0: 20 24 78 20 24 79 0a 20 20 20 20 7d 0a 20 20 20 $x $y. }.
06e0: 20 73 65 74 20 74 72 61 73 68 20 7b 7d 0a 20 20 set trash {}.
06f0: 20 20 73 65 74 20 6b 0a 7d 20 7b 31 36 34 31 35 set k.} {16415
0700: 30 7d 0a 0a 74 65 73 74 20 72 61 6e 67 65 2d 32 0}..test range-2
0710: 2e 32 20 7b 72 61 6e 67 65 20 65 6c 65 6d 65 6e .2 {range elemen
0720: 74 20 73 68 69 6d 6d 65 72 69 6e 67 20 74 65 73 t shimmering tes
0730: 74 7d 20 7b 0a 20 20 20 20 73 65 74 20 6b 20 7b t} {. set k {
0740: 7d 0a 20 20 20 20 66 6f 72 65 61 63 68 20 78 20 }. foreach x
0750: 5b 72 61 6e 67 65 20 30 20 31 30 5d 20 7b 0a 09 [range 0 10] {..
0760: 61 70 70 65 6e 64 20 6b 20 5b 6c 6c 65 6e 67 74 append k [llengt
0770: 68 20 24 78 5d 0a 20 20 20 20 7d 0a 20 20 20 20 h $x]. }.
0780: 73 65 74 20 6b 0a 7d 20 7b 31 31 31 31 31 31 31 set k.} {1111111
0790: 31 31 31 7d 0a 0a 74 65 73 74 20 72 61 6e 67 65 111}..test range
07a0: 2d 33 2e 30 20 7b 6c 6c 65 6e 67 74 68 20 72 61 -3.0 {llength ra
07b0: 6e 67 65 20 74 65 73 74 7d 20 7b 0a 20 20 20 20 nge test} {.
07c0: 6c 6c 65 6e 67 74 68 20 5b 72 61 6e 67 65 20 35 llength [range 5
07d0: 30 30 30 5d 0a 7d 20 7b 35 30 30 30 7d 0a 0a 74 000].} {5000}..t
07e0: 65 73 74 20 72 61 6e 67 65 2d 33 2e 31 20 7b 6c est range-3.1 {l
07f0: 6c 65 6e 67 74 68 20 72 61 6e 67 65 20 74 65 73 length range tes
0800: 74 7d 20 7b 0a 20 20 20 20 6c 6c 65 6e 67 74 68 t} {. llength
0810: 20 5b 72 61 6e 67 65 20 35 30 30 30 20 35 30 30 [range 5000 500
0820: 30 5d 0a 7d 20 7b 30 7d 0a 0a 74 65 73 74 20 72 0].} {0}..test r
0830: 61 6e 67 65 2d 34 2e 30 20 7b 6c 69 6e 64 65 78 ange-4.0 {lindex
0840: 20 72 61 6e 67 65 20 74 65 73 74 7d 20 7b 0a 20 range test} {.
0850: 20 20 20 6c 69 6e 64 65 78 20 5b 72 61 6e 67 65 lindex [range
0860: 20 31 30 30 30 5d 20 35 30 30 0a 7d 20 7b 35 30 1000] 500.} {50
0870: 30 7d 0a 0a 74 65 73 74 20 72 61 6e 67 65 2d 34 0}..test range-4
0880: 2e 31 20 7b 6c 69 6e 64 65 78 20 72 61 6e 67 65 .1 {lindex range
0890: 20 74 65 73 74 7d 20 7b 0a 20 20 20 20 6c 69 6e test} {. lin
08a0: 64 65 78 20 5b 72 61 6e 67 65 20 31 30 30 30 5d dex [range 1000]
08b0: 20 65 6e 64 2d 32 0a 7d 20 7b 39 39 37 7d 0a 0a end-2.} {997}..
08c0: 74 65 73 74 20 72 61 6e 67 65 2d 35 2e 30 20 7b test range-5.0 {
08d0: 6c 69 6e 64 65 78 20 6c 6c 65 6e 67 74 68 20 72 lindex llength r
08e0: 61 6e 67 65 20 74 65 73 74 7d 20 7b 0a 20 20 20 ange test} {.
08f0: 20 73 65 74 20 6b 20 30 0a 20 20 20 20 73 65 74 set k 0. set
0900: 20 74 72 61 73 68 20 7b 7d 0a 20 20 20 20 73 65 trash {}. se
0910: 74 20 72 20 5b 72 61 6e 67 65 20 31 30 30 5d 0a t r [range 100].
0920: 20 20 20 20 66 6f 72 20 7b 73 65 74 20 69 20 30 for {set i 0
0930: 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65 6e 67 74 68 } {$i < [llength
0940: 20 24 72 5d 7d 20 7b 69 6e 63 72 20 69 20 32 7d $r]} {incr i 2}
0950: 20 7b 0a 09 69 6e 63 72 20 6b 20 5b 65 78 70 72 {..incr k [expr
0960: 20 7b 5b 6c 69 6e 64 65 78 20 24 72 20 24 69 5d {[lindex $r $i]
0970: 2a 5b 6c 69 6e 64 65 78 20 24 72 20 5b 65 78 70 *[lindex $r [exp
0980: 72 20 7b 24 69 2b 31 7d 5d 5d 7d 5d 0a 20 20 20 r {$i+1}]]}].
0990: 20 7d 0a 20 20 20 20 73 65 74 20 74 72 61 73 68 }. set trash
09a0: 20 7b 7d 0a 20 20 20 20 73 65 74 20 6b 0a 7d 20 {}. set k.}
09b0: 7b 31 36 34 31 35 30 7d 0a 0a 74 65 73 74 20 72 {164150}..test r
09c0: 61 6e 67 65 2d 36 2e 30 20 7b 6e 6f 74 20 63 6f ange-6.0 {not co
09d0: 6d 70 69 6c 65 64 20 66 6f 72 65 61 63 68 20 72 mpiled foreach r
09e0: 61 6e 67 65 20 74 65 73 74 7d 20 74 65 73 74 65 ange test} teste
09f0: 76 61 6c 65 78 20 7b 0a 20 20 20 20 73 65 74 20 valex {. set
0a00: 6b 20 30 0a 20 20 20 20 74 65 73 74 65 76 61 6c k 0. testeval
0a10: 65 78 20 7b 0a 09 66 6f 72 65 61 63 68 20 7b 78 ex {..foreach {x
0a20: 20 79 7d 20 5b 72 61 6e 67 65 20 31 30 30 5d 20 y} [range 100]
0a30: 7b 0a 09 20 20 20 20 69 6e 63 72 20 6b 20 5b 65 {.. incr k [e
0a40: 78 70 72 20 7b 24 78 2a 24 79 7d 5d 0a 09 7d 0a xpr {$x*$y}]..}.
0a50: 20 20 20 20 7d 0a 20 20 20 20 73 65 74 20 6b 0a }. set k.
0a60: 7d 20 7b 31 36 34 31 35 30 7d 0a 0a 74 65 73 74 } {164150}..test
0a70: 20 72 61 6e 67 65 2d 37 2e 30 20 7b 6e 6f 74 20 range-7.0 {not
0a80: 63 6f 6d 70 69 6c 65 64 20 6c 6c 65 6e 67 74 68 compiled llength
0a90: 20 72 61 6e 67 65 20 74 65 73 74 7d 20 74 65 73 range test} tes
0aa0: 74 65 76 61 6c 65 78 20 7b 0a 20 20 20 20 74 65 tevalex {. te
0ab0: 73 74 65 76 61 6c 65 78 20 7b 6c 6c 65 6e 67 74 stevalex {llengt
0ac0: 68 20 5b 72 61 6e 67 65 20 35 30 30 30 5d 7d 0a h [range 5000]}.
0ad0: 7d 20 7b 35 30 30 30 7d 0a 0a 74 65 73 74 20 72 } {5000}..test r
0ae0: 61 6e 67 65 2d 37 2e 31 20 7b 6e 6f 74 20 63 6f ange-7.1 {not co
0af0: 6d 70 69 6c 65 64 20 6c 6c 65 6e 67 74 68 20 72 mpiled llength r
0b00: 61 6e 67 65 20 74 65 73 74 7d 20 74 65 73 74 65 ange test} teste
0b10: 76 61 6c 65 78 20 7b 0a 20 20 20 20 74 65 73 74 valex {. test
0b20: 65 76 61 6c 65 78 20 7b 6c 6c 65 6e 67 74 68 20 evalex {llength
0b30: 5b 72 61 6e 67 65 20 35 30 30 30 20 35 30 30 30 [range 5000 5000
0b40: 5d 7d 0a 7d 20 7b 30 7d 0a 0a 74 65 73 74 20 72 ]}.} {0}..test r
0b50: 61 6e 67 65 2d 38 2e 30 20 7b 6e 6f 74 20 63 6f ange-8.0 {not co
0b60: 6d 70 69 6c 65 64 20 6c 69 6e 64 65 78 20 72 61 mpiled lindex ra
0b70: 6e 67 65 20 74 65 73 74 7d 20 74 65 73 74 65 76 nge test} testev
0b80: 61 6c 65 78 20 7b 0a 20 20 20 20 74 65 73 74 65 alex {. teste
0b90: 76 61 6c 65 78 20 7b 6c 69 6e 64 65 78 20 5b 72 valex {lindex [r
0ba0: 61 6e 67 65 20 31 30 30 30 5d 20 35 30 30 7d 0a ange 1000] 500}.
0bb0: 7d 20 7b 35 30 30 7d 0a 0a 74 65 73 74 20 72 61 } {500}..test ra
0bc0: 6e 67 65 2d 38 2e 31 20 7b 6e 6f 74 20 63 6f 6d nge-8.1 {not com
0bd0: 70 69 6c 65 64 20 6c 69 6e 64 65 78 20 72 61 6e piled lindex ran
0be0: 67 65 20 74 65 73 74 7d 20 74 65 73 74 65 76 61 ge test} testeva
0bf0: 6c 65 78 20 7b 0a 20 20 20 20 74 65 73 74 65 76 lex {. testev
0c00: 61 6c 65 78 20 7b 6c 69 6e 64 65 78 20 5b 72 61 alex {lindex [ra
0c10: 6e 67 65 20 31 30 30 30 5d 20 65 6e 64 2d 32 7d nge 1000] end-2}
0c20: 0a 7d 20 7b 39 39 37 7d 0a 0a 74 65 73 74 20 72 .} {997}..test r
0c30: 61 6e 67 65 2d 39 2e 30 20 7b 6e 6f 74 20 63 6f ange-9.0 {not co
0c40: 6d 70 69 6c 65 64 20 6c 69 6e 64 65 78 20 6c 6c mpiled lindex ll
0c50: 65 6e 67 74 68 20 72 61 6e 67 65 20 74 65 73 74 ength range test
0c60: 7d 20 74 65 73 74 65 76 61 6c 65 78 20 7b 0a 20 } testevalex {.
0c70: 20 20 20 73 65 74 20 6b 20 30 0a 20 20 20 20 73 set k 0. s
0c80: 65 74 20 74 72 61 73 68 20 7b 7d 0a 20 20 20 20 et trash {}.
0c90: 73 65 74 20 72 20 5b 72 61 6e 67 65 20 31 30 30 set r [range 100
0ca0: 5d 0a 20 20 20 20 74 65 73 74 65 76 61 6c 65 78 ]. testevalex
0cb0: 20 7b 0a 09 66 6f 72 20 7b 73 65 74 20 69 20 30 {..for {set i 0
0cc0: 7d 20 7b 24 69 20 3c 20 5b 6c 6c 65 6e 67 74 68 } {$i < [llength
0cd0: 20 24 72 5d 7d 20 7b 69 6e 63 72 20 69 20 32 7d $r]} {incr i 2}
0ce0: 20 7b 0a 09 20 20 20 20 69 6e 63 72 20 6b 20 5b {.. incr k [
0cf0: 65 78 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 72 expr {[lindex $r
0d00: 20 24 69 5d 2a 5b 6c 69 6e 64 65 78 20 24 72 20 $i]*[lindex $r
0d10: 5b 65 78 70 72 20 7b 24 69 2b 31 7d 5d 5d 7d 5d [expr {$i+1}]]}]
0d20: 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 ..}. }. se
0d30: 74 20 74 72 61 73 68 20 7b 7d 0a 20 20 20 20 73 t trash {}. s
0d40: 65 74 20 6b 0a 7d 20 7b 31 36 34 31 35 30 7d 0a et k.} {164150}.
0d50: 0a 74 65 73 74 20 72 61 6e 67 65 2d 31 30 2e 30 .test range-10.0
0d60: 20 7b 6c 69 6e 6b 65 64 20 76 61 72 20 72 61 6e {linked var ran
0d70: 67 65 20 74 65 73 74 7d 20 7b 0a 20 20 20 20 63 ge test} {. c
0d80: 61 74 63 68 20 7b 75 6e 73 65 74 20 78 7d 0a 20 atch {unset x}.
0d90: 20 20 20 70 72 6f 63 20 70 30 20 76 61 72 20 7b proc p0 var {
0da0: 0a 09 75 70 76 61 72 20 31 20 24 76 61 72 20 76 ..upvar 1 $var v
0db0: 0a 09 73 65 74 20 6b 20 30 0a 09 66 6f 72 65 61 ..set k 0..forea
0dc0: 63 68 20 76 20 5b 72 61 6e 67 65 20 30 20 32 30 ch v [range 0 20
0dd0: 30 5d 20 7b 69 6e 63 72 20 6b 20 24 76 7d 0a 09 0] {incr k $v}..
0de0: 73 65 74 20 6b 0a 20 20 20 20 7d 0a 20 20 20 20 set k. }.
0df0: 73 65 74 20 79 20 5b 70 30 20 78 5d 0a 20 20 20 set y [p0 x].
0e00: 20 6c 69 73 74 20 24 78 20 24 79 0a 7d 20 7b 31 list $x $y.} {1
0e10: 39 39 20 31 39 39 30 30 7d 0a 0a 63 61 74 63 68 99 19900}..catch
0e20: 20 7b 75 6e 73 65 74 20 6b 7d 0a 63 61 74 63 68 {unset k}.catch
0e30: 20 7b 75 6e 73 65 74 20 74 72 61 73 68 7d 0a 63 {unset trash}.c
0e40: 61 74 63 68 20 7b 75 6e 73 65 74 20 69 7d 0a 63 atch {unset i}.c
0e50: 61 74 63 68 20 7b 75 6e 73 65 74 20 78 7d 0a 63 atch {unset x}.c
0e60: 61 74 63 68 20 7b 75 6e 73 65 74 20 79 7d 0a 63 atch {unset y}.c
0e70: 61 74 63 68 20 7b 75 6e 73 65 74 20 72 7d 0a 0a atch {unset r}..
0e80: 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e ::tcltest::clean
0e90: 75 70 54 65 73 74 73 0a upTests.
