Artifact
d199bdf2a24e2b782b47a9aba0b8ce6f37924dd1:
Attachment "mapeach.test" to
ticket [3163961fff]
added by
twylite
2011-01-22 22:50:04.
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 6d 61 70 65 61 63 68 2c 20 63 6f ed: mapeach, co
0020: 6e 74 69 6e 75 65 2c 20 62 72 65 61 6b 0d 0a 23 ntinue, break..#
0030: 0d 0a 23 20 54 68 69 73 20 66 69 6c 65 20 63 6f ..# This file co
0040: 6e 74 61 69 6e 73 20 61 20 63 6f 6c 6c 65 63 74 ntains a collect
0050: 69 6f 6e 20 6f 66 20 74 65 73 74 73 20 66 6f 72 ion of tests for
0060: 20 6f 6e 65 20 6f 72 20 6d 6f 72 65 20 6f 66 20 one or more of
0070: 74 68 65 20 54 63 6c 0d 0a 23 20 62 75 69 6c 74 the Tcl..# built
0080: 2d 69 6e 20 63 6f 6d 6d 61 6e 64 73 2e 20 20 53 -in commands. S
0090: 6f 75 72 63 69 6e 67 20 74 68 69 73 20 66 69 6c ourcing this fil
00a0: 65 20 69 6e 74 6f 20 54 63 6c 20 72 75 6e 73 20 e into Tcl runs
00b0: 74 68 65 20 74 65 73 74 73 20 61 6e 64 0d 0a 23 the tests and..#
00c0: 20 67 65 6e 65 72 61 74 65 73 20 6f 75 74 70 75 generates outpu
00d0: 74 20 66 6f 72 20 65 72 72 6f 72 73 2e 20 20 4e t for errors. N
00e0: 6f 20 6f 75 74 70 75 74 20 6d 65 61 6e 73 20 6e o output means n
00f0: 6f 20 65 72 72 6f 72 73 20 77 65 72 65 20 66 6f o errors were fo
0100: 75 6e 64 2e 0d 0a 23 0d 0a 23 20 43 6f 70 79 72 und...#..# Copyr
0110: 69 67 68 74 20 28 63 29 20 31 39 39 31 2d 31 39 ight (c) 1991-19
0120: 39 33 20 54 68 65 20 52 65 67 65 6e 74 73 20 6f 93 The Regents o
0130: 66 20 74 68 65 20 55 6e 69 76 65 72 73 69 74 79 f the University
0140: 20 6f 66 20 43 61 6c 69 66 6f 72 6e 69 61 2e 0d 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 0d 0a 23 20 43 6f 70 79 72 69 67 68 74 20 28 ...# Copyright (
0190: 63 29 20 32 30 31 31 20 54 72 65 76 6f 72 20 44 c) 2011 Trevor D
01a0: 61 76 65 6c 0d 0a 23 0d 0a 23 20 53 65 65 20 74 avel..#..# See t
01b0: 68 65 20 66 69 6c 65 20 22 6c 69 63 65 6e 73 65 he file "license
01c0: 2e 74 65 72 6d 73 22 20 66 6f 72 20 69 6e 66 6f .terms" for info
01d0: 72 6d 61 74 69 6f 6e 20 6f 6e 20 75 73 61 67 65 rmation on usage
01e0: 20 61 6e 64 20 72 65 64 69 73 74 72 69 62 75 74 and redistribut
01f0: 69 6f 6e 0d 0a 23 20 6f 66 20 74 68 69 73 20 66 ion..# of this f
0200: 69 6c 65 2c 20 61 6e 64 20 66 6f 72 20 61 20 44 ile, and for a D
0210: 49 53 43 4c 41 49 4d 45 52 20 4f 46 20 41 4c 4c ISCLAIMER OF ALL
0220: 20 57 41 52 52 41 4e 54 49 45 53 2e 0d 0a 23 0d WARRANTIES...#.
0230: 0a 23 20 52 43 53 3a 20 40 28 23 29 20 24 49 64 .# RCS: @(#) $Id
0240: 3a 20 24 0d 0a 0d 0a 69 66 20 7b 5b 6c 73 65 61 : $....if {[lsea
0250: 72 63 68 20 5b 6e 61 6d 65 73 70 61 63 65 20 63 rch [namespace c
0260: 68 69 6c 64 72 65 6e 5d 20 3a 3a 74 63 6c 74 65 hildren] ::tclte
0270: 73 74 5d 20 3d 3d 20 2d 31 7d 20 7b 0d 0a 20 20 st] == -1} {..
0280: 20 20 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 package requir
0290: 65 20 74 63 6c 74 65 73 74 0d 0a 20 20 20 20 6e e tcltest.. n
02a0: 61 6d 65 73 70 61 63 65 20 69 6d 70 6f 72 74 20 amespace import
02b0: 2d 66 6f 72 63 65 20 3a 3a 74 63 6c 74 65 73 74 -force ::tcltest
02c0: 3a 3a 2a 0d 0a 7d 0d 0a 0d 0a 63 61 74 63 68 20 ::*..}....catch
02d0: 7b 75 6e 73 65 74 20 61 7d 0d 0a 63 61 74 63 68 {unset a}..catch
02e0: 20 7b 75 6e 73 65 74 20 69 7d 0d 0a 63 61 74 63 {unset i}..catc
02f0: 68 20 7b 75 6e 73 65 74 20 78 7d 0d 0a 0d 0a 23 h {unset x}....#
0300: 20 2d 2d 2d 2d 2d 20 4e 6f 6e 2d 63 6f 6d 70 69 ----- Non-compi
0310: 6c 65 64 20 6f 70 65 72 61 74 69 6f 6e 20 2d 2d led operation --
0320: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0330: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
0340: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d ---------------.
0350: 0a 0d 0a 0d 0a 23 20 42 61 73 69 63 20 22 6d 61 .....# Basic "ma
0360: 70 65 61 63 68 22 20 6f 70 65 72 61 74 69 6f 6e peach" operation
0370: 20 28 6e 6f 6e 2d 63 6f 6d 70 69 6c 65 64 29 0d (non-compiled).
0380: 0a 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d ...test mapeach-
0390: 31 2e 31 20 7b 62 61 73 69 63 20 6d 61 70 65 61 1.1 {basic mapea
03a0: 63 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 20 ch tests} {..
03b0: 20 73 65 74 20 61 20 7b 7d 0d 0a 20 20 20 20 6d set a {}.. m
03c0: 61 70 65 61 63 68 20 69 20 7b 61 20 62 20 63 20 apeach i {a b c
03d0: 64 7d 20 7b 0d 0a 09 73 65 74 20 61 20 5b 63 6f d} {...set a [co
03e0: 6e 63 61 74 20 24 61 20 24 69 5d 0d 0a 20 20 20 ncat $a $i]..
03f0: 20 7d 0d 0a 7d 20 7b 61 20 7b 61 20 62 7d 20 7b }..} {a {a b} {
0400: 61 20 62 20 63 7d 20 7b 61 20 62 20 63 20 64 7d a b c} {a b c d}
0410: 7d 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d }..test mapeach-
0420: 31 2e 32 20 7b 62 61 73 69 63 20 6d 61 70 65 61 1.2 {basic mapea
0430: 63 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 20 ch tests} {..
0440: 20 6d 61 70 65 61 63 68 20 69 20 7b 61 20 62 20 mapeach i {a b
0450: 7b 7b 63 20 64 7d 20 65 7d 20 7b 31 32 33 20 7b {{c d} e} {123 {
0460: 7b 78 7d 7d 7d 7d 20 7b 0d 0a 09 73 65 74 20 69 {x}}}} {...set i
0470: 0d 0a 20 20 20 20 7d 0d 0a 7d 20 7b 61 20 62 20 .. }..} {a b
0480: 7b 7b 63 20 64 7d 20 65 7d 20 7b 31 32 33 20 7b {{c d} e} {123 {
0490: 7b 78 7d 7d 7d 7d 0d 0a 74 65 73 74 20 6d 61 70 {x}}}}..test map
04a0: 65 61 63 68 2d 31 2e 33 20 7b 62 61 73 69 63 20 each-1.3 {basic
04b0: 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b mapeach tests} {
04c0: 63 61 74 63 68 20 7b 6d 61 70 65 61 63 68 7d 20 catch {mapeach}
04d0: 6d 73 67 7d 20 31 0d 0a 74 65 73 74 20 6d 61 70 msg} 1..test map
04e0: 65 61 63 68 2d 31 2e 34 20 7b 62 61 73 69 63 20 each-1.4 {basic
04f0: 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b mapeach tests} {
0500: 0d 0a 20 20 20 20 63 61 74 63 68 20 7b 6d 61 70 .. catch {map
0510: 65 61 63 68 7d 20 6d 73 67 0d 0a 20 20 20 20 73 each} msg.. s
0520: 65 74 20 6d 73 67 0d 0a 7d 20 7b 77 72 6f 6e 67 et msg..} {wrong
0530: 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 # args: should
0540: 62 65 20 22 6d 61 70 65 61 63 68 20 76 61 72 4c be "mapeach varL
0550: 69 73 74 20 6c 69 73 74 20 3f 76 61 72 4c 69 73 ist list ?varLis
0560: 74 20 6c 69 73 74 20 2e 2e 2e 3f 20 63 6f 6d 6d t list ...? comm
0570: 61 6e 64 22 7d 0d 0a 74 65 73 74 20 6d 61 70 65 and"}..test mape
0580: 61 63 68 2d 31 2e 35 20 7b 62 61 73 69 63 20 6d ach-1.5 {basic m
0590: 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b 63 apeach tests} {c
05a0: 61 74 63 68 20 7b 6d 61 70 65 61 63 68 20 69 7d atch {mapeach i}
05b0: 20 6d 73 67 7d 20 31 0d 0a 74 65 73 74 20 6d 61 msg} 1..test ma
05c0: 70 65 61 63 68 2d 31 2e 36 20 7b 62 61 73 69 63 peach-1.6 {basic
05d0: 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 mapeach tests}
05e0: 7b 0d 0a 20 20 20 20 63 61 74 63 68 20 7b 6d 61 {.. catch {ma
05f0: 70 65 61 63 68 20 69 7d 20 6d 73 67 0d 0a 20 20 peach i} msg..
0600: 20 20 73 65 74 20 6d 73 67 0d 0a 7d 20 7b 77 72 set msg..} {wr
0610: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
0620: 6c 64 20 62 65 20 22 6d 61 70 65 61 63 68 20 76 ld be "mapeach v
0630: 61 72 4c 69 73 74 20 6c 69 73 74 20 3f 76 61 72 arList list ?var
0640: 4c 69 73 74 20 6c 69 73 74 20 2e 2e 2e 3f 20 63 List list ...? c
0650: 6f 6d 6d 61 6e 64 22 7d 0d 0a 74 65 73 74 20 6d ommand"}..test m
0660: 61 70 65 61 63 68 2d 31 2e 37 20 7b 62 61 73 69 apeach-1.7 {basi
0670: 63 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d c mapeach tests}
0680: 20 7b 63 61 74 63 68 20 7b 6d 61 70 65 61 63 68 {catch {mapeach
0690: 20 69 20 6a 7d 20 6d 73 67 7d 20 31 0d 0a 74 65 i j} msg} 1..te
06a0: 73 74 20 6d 61 70 65 61 63 68 2d 31 2e 38 20 7b st mapeach-1.8 {
06b0: 62 61 73 69 63 20 6d 61 70 65 61 63 68 20 74 65 basic mapeach te
06c0: 73 74 73 7d 20 7b 0d 0a 20 20 20 20 63 61 74 63 sts} {.. catc
06d0: 68 20 7b 6d 61 70 65 61 63 68 20 69 20 6a 7d 20 h {mapeach i j}
06e0: 6d 73 67 0d 0a 20 20 20 20 73 65 74 20 6d 73 67 msg.. set msg
06f0: 0d 0a 7d 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 ..} {wrong # arg
0700: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 6d 61 s: should be "ma
0710: 70 65 61 63 68 20 76 61 72 4c 69 73 74 20 6c 69 peach varList li
0720: 73 74 20 3f 76 61 72 4c 69 73 74 20 6c 69 73 74 st ?varList list
0730: 20 2e 2e 2e 3f 20 63 6f 6d 6d 61 6e 64 22 7d 0d ...? command"}.
0740: 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 31 2e .test mapeach-1.
0750: 39 20 7b 62 61 73 69 63 20 6d 61 70 65 61 63 68 9 {basic mapeach
0760: 20 74 65 73 74 73 7d 20 7b 63 61 74 63 68 20 7b tests} {catch {
0770: 6d 61 70 65 61 63 68 20 69 20 6a 20 6b 20 6c 7d mapeach i j k l}
0780: 20 6d 73 67 7d 20 31 0d 0a 74 65 73 74 20 6d 61 msg} 1..test ma
0790: 70 65 61 63 68 2d 31 2e 31 30 20 7b 62 61 73 69 peach-1.10 {basi
07a0: 63 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d c mapeach tests}
07b0: 20 7b 0d 0a 20 20 20 20 63 61 74 63 68 20 7b 6d {.. catch {m
07c0: 61 70 65 61 63 68 20 69 20 6a 20 6b 20 6c 7d 20 apeach i j k l}
07d0: 6d 73 67 0d 0a 20 20 20 20 73 65 74 20 6d 73 67 msg.. set msg
07e0: 0d 0a 7d 20 7b 77 72 6f 6e 67 20 23 20 61 72 67 ..} {wrong # arg
07f0: 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 6d 61 s: should be "ma
0800: 70 65 61 63 68 20 76 61 72 4c 69 73 74 20 6c 69 peach varList li
0810: 73 74 20 3f 76 61 72 4c 69 73 74 20 6c 69 73 74 st ?varList list
0820: 20 2e 2e 2e 3f 20 63 6f 6d 6d 61 6e 64 22 7d 0d ...? command"}.
0830: 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 31 2e .test mapeach-1.
0840: 31 31 20 7b 62 61 73 69 63 20 6d 61 70 65 61 63 11 {basic mapeac
0850: 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 20 20 h tests} {..
0860: 6d 61 70 65 61 63 68 20 69 20 7b 7d 20 7b 0d 0a mapeach i {} {..
0870: 20 20 20 20 20 20 73 65 74 20 69 0d 0a 20 20 20 set i..
0880: 20 7d 0d 0a 7d 20 7b 7d 0d 0a 74 65 73 74 20 6d }..} {}..test m
0890: 61 70 65 61 63 68 2d 31 2e 31 32 20 7b 62 61 73 apeach-1.12 {bas
08a0: 69 63 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 ic mapeach tests
08b0: 7d 20 7b 0d 0a 20 20 20 20 6d 61 70 65 61 63 68 } {.. mapeach
08c0: 20 69 20 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 72 i {} {.. r
08d0: 65 74 75 72 6e 20 2d 6c 65 76 65 6c 20 30 20 78 eturn -level 0 x
08e0: 0d 0a 20 20 20 20 7d 0d 0a 7d 20 7b 7d 0d 0a 74 .. }..} {}..t
08f0: 65 73 74 20 6d 61 70 65 61 63 68 2d 31 2e 31 33 est mapeach-1.13
0900: 20 7b 6d 61 70 65 61 63 68 20 65 72 72 6f 72 73 {mapeach errors
0910: 7d 20 7b 0d 0a 20 20 20 20 6c 69 73 74 20 5b 63 } {.. list [c
0920: 61 74 63 68 20 7b 6d 61 70 65 61 63 68 20 7b 7b atch {mapeach {{
0930: 61 7d 7b 62 7d 7d 20 7b 31 20 32 20 33 7d 20 7b a}{b}} {1 2 3} {
0940: 7d 7d 20 6d 73 67 5d 20 24 6d 73 67 0d 0a 7d 20 }} msg] $msg..}
0950: 7b 31 20 7b 6c 69 73 74 20 65 6c 65 6d 65 6e 74 {1 {list element
0960: 20 69 6e 20 62 72 61 63 65 73 20 66 6f 6c 6c 6f in braces follo
0970: 77 65 64 20 62 79 20 22 7b 62 7d 22 20 69 6e 73 wed by "{b}" ins
0980: 74 65 61 64 20 6f 66 20 73 70 61 63 65 7d 7d 0d tead of space}}.
0990: 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 31 2e .test mapeach-1.
09a0: 31 34 20 7b 6d 61 70 65 61 63 68 20 65 72 72 6f 14 {mapeach erro
09b0: 72 73 7d 20 7b 0d 0a 20 20 20 20 6c 69 73 74 20 rs} {.. list
09c0: 5b 63 61 74 63 68 20 7b 6d 61 70 65 61 63 68 20 [catch {mapeach
09d0: 61 20 7b 7b 31 20 32 7d 33 7d 20 7b 7d 7d 20 6d a {{1 2}3} {}} m
09e0: 73 67 5d 20 24 6d 73 67 0d 0a 7d 20 7b 31 20 7b sg] $msg..} {1 {
09f0: 6c 69 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 list element in
0a00: 62 72 61 63 65 73 20 66 6f 6c 6c 6f 77 65 64 20 braces followed
0a10: 62 79 20 22 33 22 20 69 6e 73 74 65 61 64 20 6f by "3" instead o
0a20: 66 20 73 70 61 63 65 7d 7d 0d 0a 63 61 74 63 68 f space}}..catch
0a30: 20 7b 75 6e 73 65 74 20 61 7d 0d 0a 74 65 73 74 {unset a}..test
0a40: 20 6d 61 70 65 61 63 68 2d 31 2e 31 35 20 7b 6d mapeach-1.15 {m
0a50: 61 70 65 61 63 68 20 65 72 72 6f 72 73 7d 20 7b apeach errors} {
0a60: 0d 0a 20 20 20 20 63 61 74 63 68 20 7b 75 6e 73 .. catch {uns
0a70: 65 74 20 61 7d 0d 0a 20 20 20 20 73 65 74 20 61 et a}.. set a
0a80: 28 30 29 20 34 34 0d 0a 20 20 20 20 6c 69 73 74 (0) 44.. list
0a90: 20 5b 63 61 74 63 68 20 7b 6d 61 70 65 61 63 68 [catch {mapeach
0aa0: 20 61 20 7b 31 20 32 20 33 7d 20 7b 7d 7d 20 6d a {1 2 3} {}} m
0ab0: 73 67 20 6f 5d 20 24 6d 73 67 20 24 3a 3a 65 72 sg o] $msg $::er
0ac0: 72 6f 72 49 6e 66 6f 0d 0a 7d 20 7b 31 20 7b 63 rorInfo..} {1 {c
0ad0: 61 6e 27 74 20 73 65 74 20 22 61 22 3a 20 76 61 an't set "a": va
0ae0: 72 69 61 62 6c 65 20 69 73 20 61 72 72 61 79 7d riable is array}
0af0: 20 7b 63 61 6e 27 74 20 73 65 74 20 22 61 22 3a {can't set "a":
0b00: 20 76 61 72 69 61 62 6c 65 20 69 73 20 61 72 72 variable is arr
0b10: 61 79 0d 0a 20 20 20 20 28 73 65 74 74 69 6e 67 ay.. (setting
0b20: 20 66 6f 72 65 61 63 68 20 6c 6f 6f 70 20 76 61 foreach loop va
0b30: 72 69 61 62 6c 65 20 22 61 22 29 0d 0a 20 20 20 riable "a")..
0b40: 20 69 6e 76 6f 6b 65 64 20 66 72 6f 6d 20 77 69 invoked from wi
0b50: 74 68 69 6e 0d 0a 22 6d 61 70 65 61 63 68 20 61 thin.."mapeach a
0b60: 20 7b 31 20 32 20 33 7d 20 7b 7d 22 7d 7d 0d 0a {1 2 3} {}"}}..
0b70: 74 65 73 74 20 6d 61 70 65 61 63 68 2d 31 2e 31 test mapeach-1.1
0b80: 36 20 7b 6d 61 70 65 61 63 68 20 65 72 72 6f 72 6 {mapeach error
0b90: 73 7d 20 7b 0d 0a 20 20 20 20 6c 69 73 74 20 5b s} {.. list [
0ba0: 63 61 74 63 68 20 7b 6d 61 70 65 61 63 68 20 7b catch {mapeach {
0bb0: 7d 20 7b 7d 20 7b 7d 7d 20 6d 73 67 5d 20 24 6d } {} {}} msg] $m
0bc0: 73 67 0d 0a 7d 20 7b 31 20 7b 66 6f 72 65 61 63 sg..} {1 {foreac
0bd0: 68 20 76 61 72 6c 69 73 74 20 69 73 20 65 6d 70 h varlist is emp
0be0: 74 79 7d 7d 0d 0a 63 61 74 63 68 20 7b 75 6e 73 ty}}..catch {uns
0bf0: 65 74 20 61 7d 0d 0a 0d 0a 0d 0a 23 20 50 61 72 et a}......# Par
0c00: 61 6c 6c 65 6c 20 22 6d 61 70 65 61 63 68 22 20 allel "mapeach"
0c10: 6f 70 65 72 61 74 69 6f 6e 20 28 6e 6f 6e 2d 63 operation (non-c
0c20: 6f 6d 70 69 6c 65 64 29 0d 0a 0d 0a 74 65 73 74 ompiled)....test
0c30: 20 6d 61 70 65 61 63 68 2d 32 2e 31 20 7b 70 61 mapeach-2.1 {pa
0c40: 72 61 6c 6c 65 6c 20 6d 61 70 65 61 63 68 20 74 rallel mapeach t
0c50: 65 73 74 73 7d 20 7b 0d 0a 20 20 20 20 6d 61 70 ests} {.. map
0c60: 65 61 63 68 20 7b 61 20 62 7d 20 7b 31 20 32 20 each {a b} {1 2
0c70: 33 20 34 7d 20 7b 0d 0a 09 6c 69 73 74 20 24 62 3 4} {...list $b
0c80: 20 24 61 0d 0a 20 20 20 20 7d 0d 0a 7d 20 7b 7b $a.. }..} {{
0c90: 32 20 31 7d 20 7b 34 20 33 7d 7d 0d 0a 74 65 73 2 1} {4 3}}..tes
0ca0: 74 20 6d 61 70 65 61 63 68 2d 32 2e 32 20 7b 70 t mapeach-2.2 {p
0cb0: 61 72 61 6c 6c 65 6c 20 6d 61 70 65 61 63 68 20 arallel mapeach
0cc0: 74 65 73 74 73 7d 20 7b 0d 0a 20 20 20 20 6d 61 tests} {.. ma
0cd0: 70 65 61 63 68 20 7b 61 20 62 7d 20 7b 31 20 32 peach {a b} {1 2
0ce0: 20 33 20 34 20 35 7d 20 7b 0d 0a 09 6c 69 73 74 3 4 5} {...list
0cf0: 20 24 62 20 24 61 0d 0a 20 20 20 20 7d 0d 0a 7d $b $a.. }..}
0d00: 20 7b 7b 32 20 31 7d 20 7b 34 20 33 7d 20 7b 7b {{2 1} {4 3} {{
0d10: 7d 20 35 7d 7d 0d 0a 74 65 73 74 20 6d 61 70 65 } 5}}..test mape
0d20: 61 63 68 2d 32 2e 33 20 7b 70 61 72 61 6c 6c 65 ach-2.3 {paralle
0d30: 6c 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d l mapeach tests}
0d40: 20 7b 0d 0a 20 20 20 20 6d 61 70 65 61 63 68 20 {.. mapeach
0d50: 61 20 7b 31 20 32 20 33 7d 20 62 20 7b 34 20 35 a {1 2 3} b {4 5
0d60: 20 36 7d 20 7b 0d 0a 09 6c 69 73 74 20 24 62 20 6} {...list $b
0d70: 24 61 0d 0a 20 20 20 20 7d 0d 0a 7d 20 7b 7b 34 $a.. }..} {{4
0d80: 20 31 7d 20 7b 35 20 32 7d 20 7b 36 20 33 7d 7d 1} {5 2} {6 3}}
0d90: 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 32 ..test mapeach-2
0da0: 2e 34 20 7b 70 61 72 61 6c 6c 65 6c 20 6d 61 70 .4 {parallel map
0db0: 65 61 63 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 each tests} {..
0dc0: 20 20 20 6d 61 70 65 61 63 68 20 61 20 7b 31 20 mapeach a {1
0dd0: 32 20 33 7d 20 62 20 7b 34 20 35 20 36 20 37 20 2 3} b {4 5 6 7
0de0: 38 7d 20 7b 0d 0a 09 6c 69 73 74 20 24 62 20 24 8} {...list $b $
0df0: 61 0d 0a 20 20 20 20 7d 0d 0a 7d 20 7b 7b 34 20 a.. }..} {{4
0e00: 31 7d 20 7b 35 20 32 7d 20 7b 36 20 33 7d 20 7b 1} {5 2} {6 3} {
0e10: 37 20 7b 7d 7d 20 7b 38 20 7b 7d 7d 7d 0d 0a 74 7 {}} {8 {}}}..t
0e20: 65 73 74 20 6d 61 70 65 61 63 68 2d 32 2e 35 20 est mapeach-2.5
0e30: 7b 70 61 72 61 6c 6c 65 6c 20 6d 61 70 65 61 63 {parallel mapeac
0e40: 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 20 20 h tests} {..
0e50: 6d 61 70 65 61 63 68 20 7b 61 20 62 7d 20 7b 61 mapeach {a b} {a
0e60: 20 62 20 41 20 42 20 61 61 20 62 62 7d 20 63 20 b A B aa bb} c
0e70: 7b 63 20 43 20 63 63 20 43 43 7d 20 7b 0d 0a 09 {c C cc CC} {...
0e80: 6c 69 73 74 20 24 61 20 24 62 20 24 63 0d 0a 20 list $a $b $c..
0e90: 20 20 20 7d 0d 0a 7d 20 7b 7b 61 20 62 20 63 7d }..} {{a b c}
0ea0: 20 7b 41 20 42 20 43 7d 20 7b 61 61 20 62 62 20 {A B C} {aa bb
0eb0: 63 63 7d 20 7b 7b 7d 20 7b 7d 20 43 43 7d 7d 0d cc} {{} {} CC}}.
0ec0: 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 32 2e .test mapeach-2.
0ed0: 36 20 7b 70 61 72 61 6c 6c 65 6c 20 6d 61 70 65 6 {parallel mape
0ee0: 61 63 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 ach tests} {..
0ef0: 20 20 6d 61 70 65 61 63 68 20 61 20 7b 31 20 32 mapeach a {1 2
0f00: 20 33 7d 20 62 20 7b 31 20 32 20 33 7d 20 63 20 3} b {1 2 3} c
0f10: 7b 31 20 32 20 33 7d 20 64 20 7b 31 20 32 20 33 {1 2 3} d {1 2 3
0f20: 7d 20 65 20 7b 31 20 32 20 33 7d 20 7b 0d 0a 09 } e {1 2 3} {...
0f30: 6c 69 73 74 20 24 61 24 62 24 63 24 64 24 65 0d list $a$b$c$d$e.
0f40: 0a 20 20 20 20 7d 0d 0a 7d 20 7b 31 31 31 31 31 . }..} {11111
0f50: 20 32 32 32 32 32 20 33 33 33 33 33 7d 0d 0a 74 22222 33333}..t
0f60: 65 73 74 20 6d 61 70 65 61 63 68 2d 32 2e 37 20 est mapeach-2.7
0f70: 7b 70 61 72 61 6c 6c 65 6c 20 6d 61 70 65 61 63 {parallel mapeac
0f80: 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 20 20 h tests} {..
0f90: 6d 61 70 65 61 63 68 20 61 20 7b 7d 20 62 20 7b mapeach a {} b {
0fa0: 31 20 32 20 33 7d 20 63 20 7b 31 20 32 7d 20 64 1 2 3} c {1 2} d
0fb0: 20 7b 31 20 32 20 33 20 34 7d 20 65 20 7b 7b 31 {1 2 3 4} e {{1
0fc0: 20 32 7d 7d 20 7b 0d 0a 09 73 65 74 20 78 20 24 2}} {...set x $
0fd0: 61 24 62 24 63 24 64 24 65 0d 0a 20 20 20 20 7d a$b$c$d$e.. }
0fe0: 0d 0a 7d 20 7b 7b 31 31 31 31 20 32 7d 20 32 32 ..} {{1111 2} 22
0ff0: 32 20 33 33 20 34 7d 0d 0a 74 65 73 74 20 6d 61 2 33 4}..test ma
1000: 70 65 61 63 68 2d 32 2e 38 20 7b 70 61 72 61 6c peach-2.8 {paral
1010: 6c 65 6c 20 6d 61 70 65 61 63 68 20 74 65 73 74 lel mapeach test
1020: 73 7d 20 7b 0d 0a 20 20 20 20 6d 61 70 65 61 63 s} {.. mapeac
1030: 68 20 61 20 7b 7d 20 62 20 7b 31 20 32 20 33 7d h a {} b {1 2 3}
1040: 20 63 20 7b 31 20 32 7d 20 64 20 7b 31 20 32 20 c {1 2} d {1 2
1050: 33 20 34 7d 20 65 20 7b 7b 31 20 32 7d 7d 20 7b 3 4} e {{1 2}} {
1060: 0d 0a 09 6a 6f 69 6e 20 5b 6c 69 73 74 20 24 61 ...join [list $a
1070: 20 24 62 20 24 63 20 24 64 20 24 65 5d 20 2e 0d $b $c $d $e] ..
1080: 0a 20 20 20 20 7d 0d 0a 7d 20 7b 7b 2e 31 2e 31 . }..} {{.1.1
1090: 2e 31 2e 31 20 32 7d 20 2e 32 2e 32 2e 32 2e 20 .1.1 2} .2.2.2.
10a0: 2e 33 2e 2e 33 2e 20 2e 2e 2e 34 2e 7d 0d 0a 74 .3..3. ...4.}..t
10b0: 65 73 74 20 6d 61 70 65 61 63 68 2d 32 2e 39 20 est mapeach-2.9
10c0: 7b 6d 61 70 65 61 63 68 20 6f 6e 6c 79 20 73 65 {mapeach only se
10d0: 74 73 20 76 61 72 73 20 69 66 20 72 65 70 65 61 ts vars if repea
10e0: 74 69 6e 67 20 6c 6f 6f 70 7d 20 7b 0d 0a 20 20 ting loop} {..
10f0: 6e 61 6d 65 73 70 61 63 65 20 65 76 61 6c 20 3a namespace eval :
1100: 3a 6d 61 70 65 61 63 68 5f 74 65 73 74 20 7b 0d :mapeach_test {.
1110: 0a 20 20 20 20 73 65 74 20 72 67 62 20 7b 36 35 . set rgb {65
1120: 35 33 35 20 30 20 30 7d 0d 0a 20 20 20 20 6d 61 535 0 0}.. ma
1130: 70 65 61 63 68 20 7b 72 20 67 20 62 7d 20 5b 73 peach {r g b} [s
1140: 65 74 20 72 67 62 5d 20 7b 7d 0d 0a 20 20 20 20 et rgb] {}..
1150: 73 65 74 20 3a 3a 78 20 22 72 3d 24 72 2c 20 67 set ::x "r=$r, g
1160: 3d 24 67 2c 20 62 3d 24 62 22 0d 0a 20 20 7d 0d =$g, b=$b".. }.
1170: 0a 20 20 6e 61 6d 65 73 70 61 63 65 20 64 65 6c . namespace del
1180: 65 74 65 20 3a 3a 6d 61 70 65 61 63 68 5f 74 65 ete ::mapeach_te
1190: 73 74 0d 0a 20 20 73 65 74 20 78 0d 0a 7d 20 7b st.. set x..} {
11a0: 72 3d 36 35 35 33 35 2c 20 67 3d 30 2c 20 62 3d r=65535, g=0, b=
11b0: 30 7d 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 0}..test mapeach
11c0: 2d 32 2e 31 30 20 7b 6d 61 70 65 61 63 68 20 6f -2.10 {mapeach o
11d0: 6e 6c 79 20 73 75 70 70 6f 72 74 73 20 6c 6f 63 nly supports loc
11e0: 61 6c 20 73 63 61 6c 61 72 20 76 61 72 69 61 62 al scalar variab
11f0: 6c 65 73 7d 20 7b 0d 0a 20 20 63 61 74 63 68 20 les} {.. catch
1200: 7b 20 75 6e 73 65 74 20 61 20 7d 0d 0a 20 20 6d { unset a }.. m
1210: 61 70 65 61 63 68 20 7b 61 28 33 29 7d 20 7b 31 apeach {a(3)} {1
1220: 20 32 20 33 20 34 7d 20 7b 73 65 74 20 7b 61 28 2 3 4} {set {a(
1230: 33 29 7d 7d 0d 0a 7d 20 7b 31 20 32 20 33 20 34 3)}}..} {1 2 3 4
1240: 7d 0d 0a 63 61 74 63 68 20 7b 20 75 6e 73 65 74 }..catch { unset
1250: 20 61 20 7d 0d 0a 0d 0a 0d 0a 23 20 22 6d 61 70 a }......# "map
1260: 65 61 63 68 22 20 77 69 74 68 20 22 63 6f 6e 74 each" with "cont
1270: 69 6e 75 65 22 20 61 6e 64 20 22 62 72 65 61 6b inue" and "break
1280: 22 20 28 6e 6f 6e 2d 63 6f 6d 70 69 6c 65 64 29 " (non-compiled)
1290: 0d 0a 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 ....test mapeach
12a0: 2d 33 2e 31 20 7b 63 6f 6e 74 69 6e 75 65 20 74 -3.1 {continue t
12b0: 65 73 74 73 7d 20 7b 0d 0a 20 20 20 20 6d 61 70 ests} {.. map
12c0: 65 61 63 68 20 69 20 7b 61 20 62 20 63 20 64 7d each i {a b c d}
12d0: 20 7b 0d 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 {...if {[string
12e0: 20 63 6f 6d 70 61 72 65 20 24 69 20 22 62 22 5d compare $i "b"]
12f0: 20 3d 3d 20 30 7d 20 63 6f 6e 74 69 6e 75 65 0d == 0} continue.
1300: 0a 09 73 65 74 20 69 0d 0a 20 20 20 20 7d 0d 0a ..set i.. }..
1310: 7d 20 7b 61 20 63 20 64 7d 0d 0a 74 65 73 74 20 } {a c d}..test
1320: 6d 61 70 65 61 63 68 2d 33 2e 32 20 7b 63 6f 6e mapeach-3.2 {con
1330: 74 69 6e 75 65 20 74 65 73 74 73 7d 20 7b 0d 0a tinue tests} {..
1340: 20 20 20 20 73 65 74 20 78 20 30 0d 0a 20 20 20 set x 0..
1350: 20 6c 69 73 74 20 5b 6d 61 70 65 61 63 68 20 69 list [mapeach i
1360: 20 7b 61 20 62 20 63 20 64 7d 20 7b 0d 0a 20 20 {a b c d} {..
1370: 20 20 09 69 6e 63 72 20 78 0d 0a 20 20 20 20 09 .incr x.. .
1380: 69 66 20 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 if {[string comp
1390: 61 72 65 20 24 69 20 22 62 22 5d 20 21 3d 20 30 are $i "b"] != 0
13a0: 7d 20 63 6f 6e 74 69 6e 75 65 0d 0a 20 20 20 20 } continue..
13b0: 09 73 65 74 20 69 0d 0a 20 20 20 20 7d 5d 20 24 .set i.. }] $
13c0: 78 0d 0a 7d 20 7b 62 20 34 7d 0d 0a 74 65 73 74 x..} {b 4}..test
13d0: 20 6d 61 70 65 61 63 68 2d 33 2e 33 20 7b 62 72 mapeach-3.3 {br
13e0: 65 61 6b 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 eak tests} {..
13f0: 20 20 73 65 74 20 78 20 30 0d 0a 20 20 20 20 6c set x 0.. l
1400: 69 73 74 20 5b 6d 61 70 65 61 63 68 20 69 20 7b ist [mapeach i {
1410: 61 20 62 20 63 20 64 7d 20 7b 0d 0a 20 20 20 20 a b c d} {..
1420: 20 20 69 6e 63 72 20 78 0d 0a 20 20 20 20 09 69 incr x.. .i
1430: 66 20 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 f {[string compa
1440: 72 65 20 24 69 20 22 63 22 5d 20 3d 3d 20 30 7d re $i "c"] == 0}
1450: 20 62 72 65 61 6b 0d 0a 20 20 20 20 09 73 65 74 break.. .set
1460: 20 69 0d 0a 20 20 20 20 7d 5d 20 24 78 0d 0a 7d i.. }] $x..}
1470: 20 7b 7b 61 20 62 7d 20 33 7d 0d 0a 23 20 43 68 {{a b} 3}..# Ch
1480: 65 63 6b 20 66 6f 72 20 62 75 67 20 73 69 6d 69 eck for bug simi
1490: 6c 61 72 20 74 6f 20 23 34 30 36 37 30 39 0d 0a lar to #406709..
14a0: 74 65 73 74 20 6d 61 70 65 61 63 68 2d 33 2e 34 test mapeach-3.4
14b0: 20 7b 62 72 65 61 6b 20 74 65 73 74 73 7d 20 7b {break tests} {
14c0: 0d 0a 09 73 65 74 20 61 20 31 0d 0a 09 6d 61 70 ...set a 1...map
14d0: 65 61 63 68 20 62 20 62 20 7b 6c 69 73 74 20 5b each b b {list [
14e0: 63 6f 6e 63 61 74 20 61 3b 20 62 72 65 61 6b 5d concat a; break]
14f0: 3b 20 69 6e 63 72 20 61 7d 0d 0a 09 69 6e 63 72 ; incr a}...incr
1500: 20 61 0d 0a 7d 20 7b 32 7d 0d 0a 0d 0a 0d 0a 23 a..} {2}......#
1510: 20 2d 2d 2d 2d 2d 20 43 6f 6d 70 69 6c 65 64 20 ----- Compiled
1520: 6f 70 65 72 61 74 69 6f 6e 20 2d 2d 2d 2d 2d 2d operation ------
1530: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1540: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1550: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
1560: 0d 0a 0d 0a 23 20 42 61 73 69 63 20 22 6d 61 70 ....# Basic "map
1570: 65 61 63 68 22 20 6f 70 65 72 61 74 69 6f 6e 20 each" operation
1580: 28 63 6f 6d 70 69 6c 65 64 29 0d 0a 0d 0a 74 65 (compiled)....te
1590: 73 74 20 6d 61 70 65 61 63 68 2d 34 2e 31 20 7b st mapeach-4.1 {
15a0: 62 61 73 69 63 20 6d 61 70 65 61 63 68 20 74 65 basic mapeach te
15b0: 73 74 73 7d 20 7b 0d 0a 20 20 61 70 70 6c 79 20 sts} {.. apply
15c0: 7b 7b 7d 20 7b 0d 0a 20 20 20 20 73 65 74 20 61 {{} {.. set a
15d0: 20 7b 7d 0d 0a 20 20 20 20 6d 61 70 65 61 63 68 {}.. mapeach
15e0: 20 69 20 7b 61 20 62 20 63 20 64 7d 20 7b 0d 0a i {a b c d} {..
15f0: 20 20 20 20 20 20 73 65 74 20 61 20 5b 63 6f 6e set a [con
1600: 63 61 74 20 24 61 20 24 69 5d 0d 0a 20 20 20 20 cat $a $i]..
1610: 7d 0d 0a 20 20 7d 7d 0d 0a 7d 20 7b 61 20 7b 61 }.. }}..} {a {a
1620: 20 62 7d 20 7b 61 20 62 20 63 7d 20 7b 61 20 62 b} {a b c} {a b
1630: 20 63 20 64 7d 7d 0d 0a 74 65 73 74 20 6d 61 70 c d}}..test map
1640: 65 61 63 68 2d 34 2e 32 20 7b 62 61 73 69 63 20 each-4.2 {basic
1650: 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b mapeach tests} {
1660: 0d 0a 20 20 61 70 70 6c 79 20 7b 7b 7d 20 7b 0d .. apply {{} {.
1670: 0a 20 20 20 20 6d 61 70 65 61 63 68 20 69 20 7b . mapeach i {
1680: 61 20 62 20 7b 7b 63 20 64 7d 20 65 7d 20 7b 31 a b {{c d} e} {1
1690: 32 33 20 7b 7b 78 7d 7d 7d 7d 20 7b 0d 0a 20 20 23 {{x}}}} {..
16a0: 20 20 20 20 73 65 74 20 69 0d 0a 20 20 20 20 7d set i.. }
16b0: 0d 0a 20 20 7d 7d 0d 0a 7d 20 7b 61 20 62 20 7b .. }}..} {a b {
16c0: 7b 63 20 64 7d 20 65 7d 20 7b 31 32 33 20 7b 7b {c d} e} {123 {{
16d0: 78 7d 7d 7d 7d 0d 0a 74 65 73 74 20 6d 61 70 65 x}}}}..test mape
16e0: 61 63 68 2d 34 2e 33 20 7b 62 61 73 69 63 20 6d ach-4.3 {basic m
16f0: 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b 63 apeach tests} {c
1700: 61 74 63 68 20 7b 20 61 70 70 6c 79 20 7b 7b 7d atch { apply {{}
1710: 20 7b 20 6d 61 70 65 61 63 68 20 7d 7d 20 7d 20 { mapeach }} }
1720: 6d 73 67 7d 20 31 0d 0a 74 65 73 74 20 6d 61 70 msg} 1..test map
1730: 65 61 63 68 2d 34 2e 34 20 7b 62 61 73 69 63 20 each-4.4 {basic
1740: 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b mapeach tests} {
1750: 0d 0a 20 20 20 20 63 61 74 63 68 20 7b 20 61 70 .. catch { ap
1760: 70 6c 79 20 7b 7b 7d 20 7b 20 6d 61 70 65 61 63 ply {{} { mapeac
1770: 68 20 7d 7d 20 7d 20 6d 73 67 0d 0a 20 20 20 20 h }} } msg..
1780: 73 65 74 20 6d 73 67 0d 0a 7d 20 7b 77 72 6f 6e set msg..} {wron
1790: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
17a0: 20 62 65 20 22 6d 61 70 65 61 63 68 20 76 61 72 be "mapeach var
17b0: 4c 69 73 74 20 6c 69 73 74 20 3f 76 61 72 4c 69 List list ?varLi
17c0: 73 74 20 6c 69 73 74 20 2e 2e 2e 3f 20 63 6f 6d st list ...? com
17d0: 6d 61 6e 64 22 7d 0d 0a 74 65 73 74 20 6d 61 70 mand"}..test map
17e0: 65 61 63 68 2d 34 2e 35 20 7b 62 61 73 69 63 20 each-4.5 {basic
17f0: 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b mapeach tests} {
1800: 63 61 74 63 68 20 7b 20 61 70 70 6c 79 20 7b 7b catch { apply {{
1810: 7d 20 7b 20 6d 61 70 65 61 63 68 20 69 20 7d 7d } { mapeach i }}
1820: 20 7d 20 6d 73 67 7d 20 31 0d 0a 74 65 73 74 20 } msg} 1..test
1830: 6d 61 70 65 61 63 68 2d 34 2e 36 20 7b 62 61 73 mapeach-4.6 {bas
1840: 69 63 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 ic mapeach tests
1850: 7d 20 7b 0d 0a 20 20 20 20 63 61 74 63 68 20 7b } {.. catch {
1860: 20 61 70 70 6c 79 20 7b 7b 7d 20 7b 20 6d 61 70 apply {{} { map
1870: 65 61 63 68 20 69 20 7d 7d 20 7d 20 6d 73 67 0d each i }} } msg.
1880: 0a 20 20 20 20 73 65 74 20 6d 73 67 0d 0a 7d 20 . set msg..}
1890: 7b 77 72 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 {wrong # args: s
18a0: 68 6f 75 6c 64 20 62 65 20 22 6d 61 70 65 61 63 hould be "mapeac
18b0: 68 20 76 61 72 4c 69 73 74 20 6c 69 73 74 20 3f h varList list ?
18c0: 76 61 72 4c 69 73 74 20 6c 69 73 74 20 2e 2e 2e varList list ...
18d0: 3f 20 63 6f 6d 6d 61 6e 64 22 7d 0d 0a 74 65 73 ? command"}..tes
18e0: 74 20 6d 61 70 65 61 63 68 2d 34 2e 37 20 7b 62 t mapeach-4.7 {b
18f0: 61 73 69 63 20 6d 61 70 65 61 63 68 20 74 65 73 asic mapeach tes
1900: 74 73 7d 20 7b 63 61 74 63 68 20 7b 20 61 70 70 ts} {catch { app
1910: 6c 79 20 7b 7b 7d 20 7b 20 6d 61 70 65 61 63 68 ly {{} { mapeach
1920: 20 69 20 6a 20 7d 7d 20 7d 20 6d 73 67 7d 20 31 i j }} } msg} 1
1930: 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 34 ..test mapeach-4
1940: 2e 38 20 7b 62 61 73 69 63 20 6d 61 70 65 61 63 .8 {basic mapeac
1950: 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 20 20 h tests} {..
1960: 63 61 74 63 68 20 7b 20 61 70 70 6c 79 20 7b 7b catch { apply {{
1970: 7d 20 7b 20 6d 61 70 65 61 63 68 20 69 20 6a 20 } { mapeach i j
1980: 7d 7d 20 7d 20 6d 73 67 0d 0a 20 20 20 20 73 65 }} } msg.. se
1990: 74 20 6d 73 67 0d 0a 7d 20 7b 77 72 6f 6e 67 20 t msg..} {wrong
19a0: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
19b0: 65 20 22 6d 61 70 65 61 63 68 20 76 61 72 4c 69 e "mapeach varLi
19c0: 73 74 20 6c 69 73 74 20 3f 76 61 72 4c 69 73 74 st list ?varList
19d0: 20 6c 69 73 74 20 2e 2e 2e 3f 20 63 6f 6d 6d 61 list ...? comma
19e0: 6e 64 22 7d 0d 0a 74 65 73 74 20 6d 61 70 65 61 nd"}..test mapea
19f0: 63 68 2d 34 2e 39 20 7b 62 61 73 69 63 20 6d 61 ch-4.9 {basic ma
1a00: 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b 63 61 peach tests} {ca
1a10: 74 63 68 20 7b 20 61 70 70 6c 79 20 7b 7b 7d 20 tch { apply {{}
1a20: 7b 20 6d 61 70 65 61 63 68 20 69 20 6a 20 6b 20 { mapeach i j k
1a30: 6c 20 7d 7d 20 7d 20 6d 73 67 7d 20 31 0d 0a 74 l }} } msg} 1..t
1a40: 65 73 74 20 6d 61 70 65 61 63 68 2d 34 2e 31 30 est mapeach-4.10
1a50: 20 7b 62 61 73 69 63 20 6d 61 70 65 61 63 68 20 {basic mapeach
1a60: 74 65 73 74 73 7d 20 7b 0d 0a 20 20 20 20 63 61 tests} {.. ca
1a70: 74 63 68 20 7b 20 61 70 70 6c 79 20 7b 7b 7d 20 tch { apply {{}
1a80: 7b 20 6d 61 70 65 61 63 68 20 69 20 6a 20 6b 20 { mapeach i j k
1a90: 6c 20 7d 7d 20 7d 20 6d 73 67 0d 0a 20 20 20 20 l }} } msg..
1aa0: 73 65 74 20 6d 73 67 0d 0a 7d 20 7b 77 72 6f 6e set msg..} {wron
1ab0: 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 g # args: should
1ac0: 20 62 65 20 22 6d 61 70 65 61 63 68 20 76 61 72 be "mapeach var
1ad0: 4c 69 73 74 20 6c 69 73 74 20 3f 76 61 72 4c 69 List list ?varLi
1ae0: 73 74 20 6c 69 73 74 20 2e 2e 2e 3f 20 63 6f 6d st list ...? com
1af0: 6d 61 6e 64 22 7d 0d 0a 74 65 73 74 20 6d 61 70 mand"}..test map
1b00: 65 61 63 68 2d 34 2e 31 31 20 7b 62 61 73 69 63 each-4.11 {basic
1b10: 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 mapeach tests}
1b20: 7b 0d 0a 20 20 61 70 70 6c 79 20 7b 7b 7d 20 7b {.. apply {{} {
1b30: 20 6d 61 70 65 61 63 68 20 69 20 7b 7d 20 7b 20 mapeach i {} {
1b40: 73 65 74 20 69 20 7d 20 7d 7d 0d 0a 7d 20 7b 7d set i } }}..} {}
1b50: 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 34 ..test mapeach-4
1b60: 2e 31 32 20 7b 62 61 73 69 63 20 6d 61 70 65 61 .12 {basic mapea
1b70: 63 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 61 ch tests} {.. a
1b80: 70 70 6c 79 20 7b 7b 7d 20 7b 20 6d 61 70 65 61 pply {{} { mapea
1b90: 63 68 20 69 20 7b 7d 20 7b 20 72 65 74 75 72 6e ch i {} { return
1ba0: 20 2d 6c 65 76 65 6c 20 30 20 78 20 7d 20 7d 7d -level 0 x } }}
1bb0: 0d 0a 7d 20 7b 7d 0d 0a 74 65 73 74 20 6d 61 70 ..} {}..test map
1bc0: 65 61 63 68 2d 34 2e 31 33 20 7b 6d 61 70 65 61 each-4.13 {mapea
1bd0: 63 68 20 65 72 72 6f 72 73 7d 20 7b 0d 0a 20 20 ch errors} {..
1be0: 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 20 list [catch {
1bf0: 61 70 70 6c 79 20 7b 7b 7d 20 7b 20 6d 61 70 65 apply {{} { mape
1c00: 61 63 68 20 7b 7b 61 7d 7b 62 7d 7d 20 7b 31 20 ach {{a}{b}} {1
1c10: 32 20 33 7d 20 7b 7d 20 7d 7d 20 7d 20 6d 73 67 2 3} {} }} } msg
1c20: 5d 20 24 6d 73 67 0d 0a 7d 20 7b 31 20 7b 6c 69 ] $msg..} {1 {li
1c30: 73 74 20 65 6c 65 6d 65 6e 74 20 69 6e 20 62 72 st element in br
1c40: 61 63 65 73 20 66 6f 6c 6c 6f 77 65 64 20 62 79 aces followed by
1c50: 20 22 7b 62 7d 22 20 69 6e 73 74 65 61 64 20 6f "{b}" instead o
1c60: 66 20 73 70 61 63 65 7d 7d 0d 0a 74 65 73 74 20 f space}}..test
1c70: 6d 61 70 65 61 63 68 2d 34 2e 31 34 20 7b 6d 61 mapeach-4.14 {ma
1c80: 70 65 61 63 68 20 65 72 72 6f 72 73 7d 20 7b 0d peach errors} {.
1c90: 0a 20 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 . list [catch
1ca0: 20 7b 20 61 70 70 6c 79 20 7b 7b 7d 20 7b 20 6d { apply {{} { m
1cb0: 61 70 65 61 63 68 20 61 20 7b 7b 31 20 32 7d 33 apeach a {{1 2}3
1cc0: 7d 20 7b 7d 20 7d 7d 20 7d 20 6d 73 67 5d 20 24 } {} }} } msg] $
1cd0: 6d 73 67 0d 0a 7d 20 7b 31 20 7b 6c 69 73 74 20 msg..} {1 {list
1ce0: 65 6c 65 6d 65 6e 74 20 69 6e 20 62 72 61 63 65 element in brace
1cf0: 73 20 66 6f 6c 6c 6f 77 65 64 20 62 79 20 22 33 s followed by "3
1d00: 22 20 69 6e 73 74 65 61 64 20 6f 66 20 73 70 61 " instead of spa
1d10: 63 65 7d 7d 0d 0a 63 61 74 63 68 20 7b 75 6e 73 ce}}..catch {uns
1d20: 65 74 20 61 7d 0d 0a 74 65 73 74 20 6d 61 70 65 et a}..test mape
1d30: 61 63 68 2d 34 2e 31 35 20 7b 6d 61 70 65 61 63 ach-4.15 {mapeac
1d40: 68 20 65 72 72 6f 72 73 7d 20 7b 0d 0a 20 20 20 h errors} {..
1d50: 20 61 70 70 6c 79 20 7b 7b 7d 20 7b 20 0d 0a 20 apply {{} { ..
1d60: 20 20 20 20 20 73 65 74 20 61 28 30 29 20 34 34 set a(0) 44
1d70: 0d 0a 20 20 20 20 20 20 6c 69 73 74 20 5b 63 61 .. list [ca
1d80: 74 63 68 20 7b 6d 61 70 65 61 63 68 20 61 20 7b tch {mapeach a {
1d90: 31 20 32 20 33 7d 20 7b 7d 7d 20 6d 73 67 20 6f 1 2 3} {}} msg o
1da0: 5d 20 24 6d 73 67 20 24 3a 3a 65 72 72 6f 72 49 ] $msg $::errorI
1db0: 6e 66 6f 20 0d 0a 20 20 20 20 7d 7d 20 0d 0a 7d nfo .. }} ..}
1dc0: 20 7b 31 20 7b 63 61 6e 27 74 20 73 65 74 20 22 {1 {can't set "
1dd0: 61 22 3a 20 76 61 72 69 61 62 6c 65 20 69 73 20 a": variable is
1de0: 61 72 72 61 79 7d 20 7b 63 61 6e 27 74 20 73 65 array} {can't se
1df0: 74 20 22 61 22 3a 20 76 61 72 69 61 62 6c 65 20 t "a": variable
1e00: 69 73 20 61 72 72 61 79 0d 0a 20 20 20 20 77 68 is array.. wh
1e10: 69 6c 65 20 65 78 65 63 75 74 69 6e 67 0d 0a 22 ile executing.."
1e20: 6d 61 70 65 61 63 68 20 61 20 7b 31 20 32 20 33 mapeach a {1 2 3
1e30: 7d 20 7b 7d 22 7d 7d 0d 0a 74 65 73 74 20 6d 61 } {}"}}..test ma
1e40: 70 65 61 63 68 2d 34 2e 31 36 20 7b 6d 61 70 65 peach-4.16 {mape
1e50: 61 63 68 20 65 72 72 6f 72 73 7d 20 7b 0d 0a 20 ach errors} {..
1e60: 20 20 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b list [catch {
1e70: 20 61 70 70 6c 79 20 7b 7b 7d 20 7b 20 6d 61 70 apply {{} { map
1e80: 65 61 63 68 20 7b 7d 20 7b 7d 20 7b 7d 20 7d 7d each {} {} {} }}
1e90: 20 7d 20 6d 73 67 5d 20 24 6d 73 67 0d 0a 7d 20 } msg] $msg..}
1ea0: 7b 31 20 7b 66 6f 72 65 61 63 68 20 76 61 72 6c {1 {foreach varl
1eb0: 69 73 74 20 69 73 20 65 6d 70 74 79 7d 7d 0d 0a ist is empty}}..
1ec0: 63 61 74 63 68 20 7b 75 6e 73 65 74 20 61 7d 0d catch {unset a}.
1ed0: 0a 0d 0a 0d 0a 23 20 50 61 72 61 6c 6c 65 6c 20 .....# Parallel
1ee0: 22 6d 61 70 65 61 63 68 22 20 6f 70 65 72 61 74 "mapeach" operat
1ef0: 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 64 29 0d 0a ion (compiled)..
1f00: 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 35 ..test mapeach-5
1f10: 2e 31 20 7b 70 61 72 61 6c 6c 65 6c 20 6d 61 70 .1 {parallel map
1f20: 65 61 63 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 each tests} {..
1f30: 20 61 70 70 6c 79 20 7b 7b 7d 20 7b 0d 0a 20 20 apply {{} {..
1f40: 20 20 6d 61 70 65 61 63 68 20 7b 61 20 62 7d 20 mapeach {a b}
1f50: 7b 31 20 32 20 33 20 34 7d 20 7b 0d 0a 20 20 20 {1 2 3 4} {..
1f60: 20 20 20 6c 69 73 74 20 24 62 20 24 61 0d 0a 20 list $b $a..
1f70: 20 20 20 7d 0d 0a 20 20 7d 7d 0d 0a 7d 20 7b 7b }.. }}..} {{
1f80: 32 20 31 7d 20 7b 34 20 33 7d 7d 0d 0a 74 65 73 2 1} {4 3}}..tes
1f90: 74 20 6d 61 70 65 61 63 68 2d 35 2e 32 20 7b 70 t mapeach-5.2 {p
1fa0: 61 72 61 6c 6c 65 6c 20 6d 61 70 65 61 63 68 20 arallel mapeach
1fb0: 74 65 73 74 73 7d 20 7b 0d 0a 20 20 61 70 70 6c tests} {.. appl
1fc0: 79 20 7b 7b 7d 20 7b 0d 0a 20 20 20 20 6d 61 70 y {{} {.. map
1fd0: 65 61 63 68 20 7b 61 20 62 7d 20 7b 31 20 32 20 each {a b} {1 2
1fe0: 33 20 34 20 35 7d 20 7b 0d 0a 20 20 20 20 20 20 3 4 5} {..
1ff0: 6c 69 73 74 20 24 62 20 24 61 0d 0a 20 20 20 20 list $b $a..
2000: 7d 0d 0a 20 20 7d 7d 0d 0a 7d 20 7b 7b 32 20 31 }.. }}..} {{2 1
2010: 7d 20 7b 34 20 33 7d 20 7b 7b 7d 20 35 7d 7d 0d } {4 3} {{} 5}}.
2020: 0a 74 65 73 74 20 6d 61 70 65 61 63 68 2d 35 2e .test mapeach-5.
2030: 33 20 7b 70 61 72 61 6c 6c 65 6c 20 6d 61 70 65 3 {parallel mape
2040: 61 63 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 ach tests} {..
2050: 61 70 70 6c 79 20 7b 7b 7d 20 7b 0d 0a 20 20 20 apply {{} {..
2060: 20 6d 61 70 65 61 63 68 20 61 20 7b 31 20 32 20 mapeach a {1 2
2070: 33 7d 20 62 20 7b 34 20 35 20 36 7d 20 7b 0d 0a 3} b {4 5 6} {..
2080: 20 20 20 20 20 20 6c 69 73 74 20 24 62 20 24 61 list $b $a
2090: 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d 7d 0d 0a 7d .. }.. }}..}
20a0: 20 7b 7b 34 20 31 7d 20 7b 35 20 32 7d 20 7b 36 {{4 1} {5 2} {6
20b0: 20 33 7d 7d 0d 0a 74 65 73 74 20 6d 61 70 65 61 3}}..test mapea
20c0: 63 68 2d 35 2e 34 20 7b 70 61 72 61 6c 6c 65 6c ch-5.4 {parallel
20d0: 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 mapeach tests}
20e0: 7b 0d 0a 20 20 61 70 70 6c 79 20 7b 7b 7d 20 7b {.. apply {{} {
20f0: 0d 0a 20 20 20 20 6d 61 70 65 61 63 68 20 61 20 .. mapeach a
2100: 7b 31 20 32 20 33 7d 20 62 20 7b 34 20 35 20 36 {1 2 3} b {4 5 6
2110: 20 37 20 38 7d 20 7b 0d 0a 09 6c 69 73 74 20 24 7 8} {...list $
2120: 62 20 24 61 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d b $a.. }.. }
2130: 7d 0d 0a 7d 20 7b 7b 34 20 31 7d 20 7b 35 20 32 }..} {{4 1} {5 2
2140: 7d 20 7b 36 20 33 7d 20 7b 37 20 7b 7d 7d 20 7b } {6 3} {7 {}} {
2150: 38 20 7b 7d 7d 7d 0d 0a 74 65 73 74 20 6d 61 70 8 {}}}..test map
2160: 65 61 63 68 2d 35 2e 35 20 7b 70 61 72 61 6c 6c each-5.5 {parall
2170: 65 6c 20 6d 61 70 65 61 63 68 20 74 65 73 74 73 el mapeach tests
2180: 7d 20 7b 0d 0a 20 20 61 70 70 6c 79 20 7b 7b 7d } {.. apply {{}
2190: 20 7b 0d 0a 20 20 20 20 6d 61 70 65 61 63 68 20 {.. mapeach
21a0: 7b 61 20 62 7d 20 7b 61 20 62 20 41 20 42 20 61 {a b} {a b A B a
21b0: 61 20 62 62 7d 20 63 20 7b 63 20 43 20 63 63 20 a bb} c {c C cc
21c0: 43 43 7d 20 7b 0d 0a 20 20 20 20 20 20 6c 69 73 CC} {.. lis
21d0: 74 20 24 61 20 24 62 20 24 63 0d 0a 20 20 20 20 t $a $b $c..
21e0: 7d 0d 0a 20 20 7d 7d 0d 0a 7d 20 7b 7b 61 20 62 }.. }}..} {{a b
21f0: 20 63 7d 20 7b 41 20 42 20 43 7d 20 7b 61 61 20 c} {A B C} {aa
2200: 62 62 20 63 63 7d 20 7b 7b 7d 20 7b 7d 20 43 43 bb cc} {{} {} CC
2210: 7d 7d 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 }}..test mapeach
2220: 2d 35 2e 36 20 7b 70 61 72 61 6c 6c 65 6c 20 6d -5.6 {parallel m
2230: 61 70 65 61 63 68 20 74 65 73 74 73 7d 20 7b 0d apeach tests} {.
2240: 0a 20 20 61 70 70 6c 79 20 7b 7b 7d 20 7b 0d 0a . apply {{} {..
2250: 20 20 20 20 6d 61 70 65 61 63 68 20 61 20 7b 31 mapeach a {1
2260: 20 32 20 33 7d 20 62 20 7b 31 20 32 20 33 7d 20 2 3} b {1 2 3}
2270: 63 20 7b 31 20 32 20 33 7d 20 64 20 7b 31 20 32 c {1 2 3} d {1 2
2280: 20 33 7d 20 65 20 7b 31 20 32 20 33 7d 20 7b 0d 3} e {1 2 3} {.
2290: 0a 20 20 20 20 20 20 6c 69 73 74 20 24 61 24 62 . list $a$b
22a0: 24 63 24 64 24 65 0d 0a 20 20 20 20 7d 0d 0a 20 $c$d$e.. }..
22b0: 20 7d 7d 0d 0a 7d 20 7b 31 31 31 31 31 20 32 32 }}..} {11111 22
22c0: 32 32 32 20 33 33 33 33 33 7d 0d 0a 74 65 73 74 222 33333}..test
22d0: 20 6d 61 70 65 61 63 68 2d 35 2e 37 20 7b 70 61 mapeach-5.7 {pa
22e0: 72 61 6c 6c 65 6c 20 6d 61 70 65 61 63 68 20 74 rallel mapeach t
22f0: 65 73 74 73 7d 20 7b 0d 0a 20 20 61 70 70 6c 79 ests} {.. apply
2300: 20 7b 7b 7d 20 7b 0d 0a 20 20 20 20 6d 61 70 65 {{} {.. mape
2310: 61 63 68 20 61 20 7b 7d 20 62 20 7b 31 20 32 20 ach a {} b {1 2
2320: 33 7d 20 63 20 7b 31 20 32 7d 20 64 20 7b 31 20 3} c {1 2} d {1
2330: 32 20 33 20 34 7d 20 65 20 7b 7b 31 20 32 7d 7d 2 3 4} e {{1 2}}
2340: 20 7b 0d 0a 20 20 20 20 20 20 73 65 74 20 78 20 {.. set x
2350: 24 61 24 62 24 63 24 64 24 65 0d 0a 20 20 20 20 $a$b$c$d$e..
2360: 7d 0d 0a 20 20 7d 7d 0d 0a 7d 20 7b 7b 31 31 31 }.. }}..} {{111
2370: 31 20 32 7d 20 32 32 32 20 33 33 20 34 7d 0d 0a 1 2} 222 33 4}..
2380: 74 65 73 74 20 6d 61 70 65 61 63 68 2d 35 2e 38 test mapeach-5.8
2390: 20 7b 70 61 72 61 6c 6c 65 6c 20 6d 61 70 65 61 {parallel mapea
23a0: 63 68 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 61 ch tests} {.. a
23b0: 70 70 6c 79 20 7b 7b 7d 20 7b 0d 0a 20 20 20 20 pply {{} {..
23c0: 6d 61 70 65 61 63 68 20 61 20 7b 7d 20 62 20 7b mapeach a {} b {
23d0: 31 20 32 20 33 7d 20 63 20 7b 31 20 32 7d 20 64 1 2 3} c {1 2} d
23e0: 20 7b 31 20 32 20 33 20 34 7d 20 65 20 7b 7b 31 {1 2 3 4} e {{1
23f0: 20 32 7d 7d 20 7b 0d 0a 20 20 20 20 20 20 6a 6f 2}} {.. jo
2400: 69 6e 20 5b 6c 69 73 74 20 24 61 20 24 62 20 24 in [list $a $b $
2410: 63 20 24 64 20 24 65 5d 20 2e 0d 0a 20 20 20 20 c $d $e] ...
2420: 7d 0d 0a 20 20 7d 7d 0d 0a 7d 20 7b 7b 2e 31 2e }.. }}..} {{.1.
2430: 31 2e 31 2e 31 20 32 7d 20 2e 32 2e 32 2e 32 2e 1.1.1 2} .2.2.2.
2440: 20 2e 33 2e 2e 33 2e 20 2e 2e 2e 34 2e 7d 0d 0a .3..3. ...4.}..
2450: 74 65 73 74 20 6d 61 70 65 61 63 68 2d 35 2e 39 test mapeach-5.9
2460: 20 7b 6d 61 70 65 61 63 68 20 6f 6e 6c 79 20 73 {mapeach only s
2470: 65 74 73 20 76 61 72 73 20 69 66 20 72 65 70 65 ets vars if repe
2480: 61 74 69 6e 67 20 6c 6f 6f 70 7d 20 7b 0d 0a 20 ating loop} {..
2490: 20 20 20 61 70 70 6c 79 20 7b 7b 7d 20 7b 0d 0a apply {{} {..
24a0: 20 20 20 20 20 20 20 20 73 65 74 20 72 67 62 20 set rgb
24b0: 7b 36 35 35 33 35 20 30 20 30 7d 0d 0a 20 20 20 {65535 0 0}..
24c0: 20 20 20 20 20 6d 61 70 65 61 63 68 20 7b 72 20 mapeach {r
24d0: 67 20 62 7d 20 5b 73 65 74 20 72 67 62 5d 20 7b g b} [set rgb] {
24e0: 7d 0d 0a 20 20 20 20 20 20 20 20 72 65 74 75 72 }.. retur
24f0: 6e 20 22 72 3d 24 72 2c 20 67 3d 24 67 2c 20 62 n "r=$r, g=$g, b
2500: 3d 24 62 22 0d 0a 20 20 20 20 7d 7d 0d 0a 7d 20 =$b".. }}..}
2510: 7b 72 3d 36 35 35 33 35 2c 20 67 3d 30 2c 20 62 {r=65535, g=0, b
2520: 3d 30 7d 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 =0}..test mapeac
2530: 68 2d 35 2e 31 30 20 7b 6d 61 70 65 61 63 68 20 h-5.10 {mapeach
2540: 6f 6e 6c 79 20 73 75 70 70 6f 72 74 73 20 6c 6f only supports lo
2550: 63 61 6c 20 73 63 61 6c 61 72 20 76 61 72 69 61 cal scalar varia
2560: 62 6c 65 73 7d 20 7b 0d 0a 20 20 20 20 61 70 70 bles} {.. app
2570: 6c 79 20 7b 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 ly {{} {..
2580: 20 20 6d 61 70 65 61 63 68 20 7b 61 28 33 29 7d mapeach {a(3)}
2590: 20 7b 31 20 32 20 33 20 34 7d 20 7b 73 65 74 20 {1 2 3 4} {set
25a0: 7b 61 28 33 29 7d 7d 0d 0a 20 20 20 20 7d 7d 0d {a(3)}}.. }}.
25b0: 0a 7d 20 7b 31 20 32 20 33 20 34 7d 0d 0a 0d 0a .} {1 2 3 4}....
25c0: 0d 0a 23 20 22 6d 61 70 65 61 63 68 22 20 77 69 ..# "mapeach" wi
25d0: 74 68 20 22 63 6f 6e 74 69 6e 75 65 22 20 61 6e th "continue" an
25e0: 64 20 22 62 72 65 61 6b 22 20 28 63 6f 6d 70 69 d "break" (compi
25f0: 6c 65 64 29 0d 0a 0d 0a 74 65 73 74 20 6d 61 70 led)....test map
2600: 65 61 63 68 2d 36 2e 31 20 7b 63 6f 6e 74 69 6e each-6.1 {contin
2610: 75 65 20 74 65 73 74 73 7d 20 7b 0d 0a 20 20 61 ue tests} {.. a
2620: 70 70 6c 79 20 7b 7b 7d 20 7b 0d 0a 20 20 20 20 pply {{} {..
2630: 6d 61 70 65 61 63 68 20 69 20 7b 61 20 62 20 63 mapeach i {a b c
2640: 20 64 7d 20 7b 0d 0a 20 20 20 20 20 20 69 66 20 d} {.. if
2650: 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 {[string compare
2660: 20 24 69 20 22 62 22 5d 20 3d 3d 20 30 7d 20 63 $i "b"] == 0} c
2670: 6f 6e 74 69 6e 75 65 0d 0a 20 20 20 20 20 20 73 ontinue.. s
2680: 65 74 20 69 0d 0a 20 20 20 20 7d 0d 0a 20 20 7d et i.. }.. }
2690: 7d 0d 0a 7d 20 7b 61 20 63 20 64 7d 0d 0a 74 65 }..} {a c d}..te
26a0: 73 74 20 6d 61 70 65 61 63 68 2d 36 2e 32 20 7b st mapeach-6.2 {
26b0: 63 6f 6e 74 69 6e 75 65 20 74 65 73 74 73 7d 20 continue tests}
26c0: 7b 0d 0a 20 20 61 70 70 6c 79 20 7b 7b 7d 20 7b {.. apply {{} {
26d0: 0d 0a 20 20 20 20 6c 69 73 74 20 5b 6d 61 70 65 .. list [mape
26e0: 61 63 68 20 69 20 7b 61 20 62 20 63 20 64 7d 20 ach i {a b c d}
26f0: 7b 0d 0a 20 20 20 20 20 20 69 6e 63 72 20 78 0d {.. incr x.
2700: 0a 20 20 20 20 09 69 66 20 7b 5b 73 74 72 69 6e . .if {[strin
2710: 67 20 63 6f 6d 70 61 72 65 20 24 69 20 22 62 22 g compare $i "b"
2720: 5d 20 21 3d 20 30 7d 20 63 6f 6e 74 69 6e 75 65 ] != 0} continue
2730: 0d 0a 20 20 20 20 09 73 65 74 20 69 0d 0a 20 20 .. .set i..
2740: 20 20 7d 5d 20 24 78 0d 0a 20 20 7d 7d 0d 0a 7d }] $x.. }}..}
2750: 20 7b 62 20 34 7d 0d 0a 74 65 73 74 20 6d 61 70 {b 4}..test map
2760: 65 61 63 68 2d 36 2e 33 20 7b 62 72 65 61 6b 20 each-6.3 {break
2770: 74 65 73 74 73 7d 20 7b 0d 0a 20 20 61 70 70 6c tests} {.. appl
2780: 79 20 7b 7b 7d 20 7b 0d 0a 20 20 20 20 6c 69 73 y {{} {.. lis
2790: 74 20 5b 6d 61 70 65 61 63 68 20 69 20 7b 61 20 t [mapeach i {a
27a0: 62 20 63 20 64 7d 20 7b 0d 0a 20 20 20 20 20 20 b c d} {..
27b0: 69 6e 63 72 20 78 0d 0a 20 20 20 20 09 69 66 20 incr x.. .if
27c0: 7b 5b 73 74 72 69 6e 67 20 63 6f 6d 70 61 72 65 {[string compare
27d0: 20 24 69 20 22 63 22 5d 20 3d 3d 20 30 7d 20 62 $i "c"] == 0} b
27e0: 72 65 61 6b 0d 0a 20 20 20 20 09 73 65 74 20 69 reak.. .set i
27f0: 0d 0a 20 20 20 20 7d 5d 20 24 78 0d 0a 20 20 7d .. }] $x.. }
2800: 7d 0d 0a 7d 20 7b 7b 61 20 62 7d 20 33 7d 0d 0a }..} {{a b} 3}..
2810: 23 20 43 68 65 63 6b 20 66 6f 72 20 62 75 67 20 # Check for bug
2820: 73 69 6d 69 6c 61 72 20 74 6f 20 23 34 30 36 37 similar to #4067
2830: 30 39 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 09..test mapeach
2840: 2d 36 2e 34 20 7b 62 72 65 61 6b 20 74 65 73 74 -6.4 {break test
2850: 73 7d 20 7b 0d 0a 20 20 20 20 61 70 70 6c 79 20 s} {.. apply
2860: 7b 7b 7d 20 7b 0d 0a 09 73 65 74 20 61 20 31 0d {{} {...set a 1.
2870: 0a 09 6d 61 70 65 61 63 68 20 62 20 62 20 7b 6c ..mapeach b b {l
2880: 69 73 74 20 5b 63 6f 6e 63 61 74 20 61 3b 20 62 ist [concat a; b
2890: 72 65 61 6b 5d 3b 20 69 6e 63 72 20 61 7d 0d 0a reak]; incr a}..
28a0: 09 69 6e 63 72 20 61 0d 0a 20 20 20 20 7d 7d 0d .incr a.. }}.
28b0: 0a 7d 20 7b 32 7d 0d 0a 0d 0a 0d 0a 0d 0a 23 20 .} {2}........#
28c0: 2d 2d 2d 2d 2d 20 53 70 65 63 69 61 6c 20 63 61 ----- Special ca
28d0: 73 65 73 20 61 6e 64 20 62 75 67 73 20 2d 2d 2d ses and bugs ---
28e0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
28f0: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ----------------
2900: 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0d 0a --------------..
2910: 0d 0a 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 ....test mapeach
2920: 2d 37 2e 31 20 7b 63 6f 6d 70 69 6c 65 64 20 6d -7.1 {compiled m
2930: 61 70 65 61 63 68 20 62 61 63 6b 77 61 72 64 20 apeach backward
2940: 6a 75 6d 70 20 77 6f 72 6b 73 20 63 6f 72 72 65 jump works corre
2950: 63 74 6c 79 7d 20 7b 0d 0a 20 20 20 20 63 61 74 ctly} {.. cat
2960: 63 68 20 7b 75 6e 73 65 74 20 78 7d 0d 0a 20 20 ch {unset x}..
2970: 20 20 61 72 72 61 79 20 73 65 74 20 78 20 7b 30 array set x {0
2980: 20 7a 65 72 6f 20 31 20 6f 6e 65 20 32 20 74 77 zero 1 one 2 tw
2990: 6f 20 33 20 74 68 72 65 65 7d 0d 0a 20 20 20 20 o 3 three}..
29a0: 6c 73 6f 72 74 20 5b 61 70 70 6c 79 20 7b 7b 61 lsort [apply {{a
29b0: 72 72 61 79 4e 61 6d 65 7d 20 7b 0d 0a 20 20 20 rrayName} {..
29c0: 20 20 20 20 20 75 70 76 61 72 20 31 20 24 61 72 upvar 1 $ar
29d0: 72 61 79 4e 61 6d 65 20 61 0d 0a 20 20 20 20 20 rayName a..
29e0: 20 20 20 6d 61 70 65 61 63 68 20 6d 65 6d 62 65 mapeach membe
29f0: 72 20 5b 61 72 72 61 79 20 6e 61 6d 65 73 20 61 r [array names a
2a00: 5d 20 7b 0d 0a 20 20 20 20 20 20 20 20 20 20 20 ] {..
2a10: 20 6c 69 73 74 20 24 6d 65 6d 62 65 72 20 5b 73 list $member [s
2a20: 65 74 20 61 28 24 6d 65 6d 62 65 72 29 5d 0d 0a et a($member)]..
2a30: 20 20 20 20 20 20 20 20 7d 0d 0a 20 20 20 20 7d }.. }
2a40: 7d 20 78 5d 0d 0a 7d 20 5b 6c 73 6f 72 74 20 7b } x]..} [lsort {
2a50: 7b 30 20 7a 65 72 6f 7d 20 7b 31 20 6f 6e 65 7d {0 zero} {1 one}
2a60: 20 7b 32 20 74 77 6f 7d 20 7b 33 20 74 68 72 65 {2 two} {3 thre
2a70: 65 7d 7d 5d 0d 0a 0d 0a 74 65 73 74 20 6d 61 70 e}}]....test map
2a80: 65 61 63 68 2d 37 2e 32 20 7b 6e 6f 6e 63 6f 6d each-7.2 {noncom
2a90: 70 69 6c 65 64 20 6d 61 70 65 61 63 68 20 61 6e piled mapeach an
2aa0: 64 20 73 68 61 72 65 64 20 76 61 72 69 61 62 6c d shared variabl
2ab0: 65 20 6f 72 20 76 61 6c 75 65 20 6c 69 73 74 20 e or value list
2ac0: 6f 62 6a 65 63 74 73 20 74 68 61 74 20 61 72 65 objects that are
2ad0: 20 63 6f 6e 76 65 72 74 65 64 20 74 6f 20 61 6e converted to an
2ae0: 6f 74 68 65 72 20 74 79 70 65 7d 20 7b 0d 0a 20 other type} {..
2af0: 20 20 20 63 61 74 63 68 20 7b 75 6e 73 65 74 20 catch {unset
2b00: 78 7d 0d 0a 20 20 20 20 6d 61 70 65 61 63 68 20 x}.. mapeach
2b10: 7b 31 32 2e 30 7d 20 7b 61 20 62 20 63 7d 20 7b {12.0} {a b c} {
2b20: 0d 0a 20 20 20 20 20 20 20 20 73 65 74 20 78 20 .. set x
2b30: 31 32 2e 30 0d 0a 20 20 20 20 20 20 20 20 73 65 12.0.. se
2b40: 74 20 78 20 5b 65 78 70 72 20 24 78 20 2b 20 31 t x [expr $x + 1
2b50: 5d 0d 0a 20 20 20 20 7d 0d 0a 7d 20 7b 31 33 2e ].. }..} {13.
2b60: 30 20 31 33 2e 30 20 31 33 2e 30 7d 0d 0a 0d 0a 0 13.0 13.0}....
2b70: 23 20 54 65 73 74 20 66 6f 72 20 69 6e 63 6f 72 # Test for incor
2b80: 72 65 63 74 20 22 64 6f 75 62 6c 65 20 65 76 61 rect "double eva
2b90: 6c 75 61 74 69 6f 6e 22 20 73 65 6d 61 6e 74 69 luation" semanti
2ba0: 63 73 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 cs..test mapeach
2bb0: 2d 37 2e 33 20 7b 64 65 6c 61 79 65 64 20 73 75 -7.3 {delayed su
2bc0: 62 73 74 69 74 75 74 69 6f 6e 20 6f 66 20 62 6f bstitution of bo
2bd0: 64 79 7d 20 7b 0d 0a 20 20 20 20 61 70 70 6c 79 dy} {.. apply
2be0: 20 7b 7b 7d 20 7b 0d 0a 20 20 20 20 20 20 20 73 {{} {.. s
2bf0: 65 74 20 61 20 30 0d 0a 20 20 20 20 20 20 20 6d et a 0.. m
2c00: 61 70 65 61 63 68 20 61 20 5b 6c 69 73 74 20 31 apeach a [list 1
2c10: 20 32 20 33 5d 20 22 0d 0a 20 20 20 20 20 20 20 2 3] "..
2c20: 20 20 20 20 73 65 74 20 78 20 24 61 0d 0a 20 20 set x $a..
2c30: 20 20 20 20 20 22 0d 0a 20 20 20 20 20 20 20 73 ".. s
2c40: 65 74 20 78 0d 0a 20 20 20 20 7d 7d 0d 0a 7d 20 et x.. }}..}
2c50: 7b 30 7d 0d 0a 0d 0a 23 20 52 65 6c 61 74 65 64 {0}....# Related
2c60: 20 74 6f 20 22 66 6f 72 65 61 63 68 22 20 74 65 to "foreach" te
2c70: 73 74 20 66 6f 72 20 5b 42 75 67 20 31 31 38 39 st for [Bug 1189
2c80: 32 37 34 5d 3b 20 63 72 61 73 68 20 6f 6e 20 66 274]; crash on f
2c90: 61 69 6c 75 72 65 0d 0a 74 65 73 74 20 6d 61 70 ailure..test map
2ca0: 65 61 63 68 2d 37 2e 34 20 7b 65 6d 70 74 79 20 each-7.4 {empty
2cb0: 6c 69 73 74 20 68 61 6e 64 6c 69 6e 67 7d 20 7b list handling} {
2cc0: 0d 0a 20 20 20 20 70 72 6f 63 20 63 72 61 73 68 .. proc crash
2cd0: 20 7b 7d 20 7b 0d 0a 09 72 65 6e 61 6d 65 20 63 {} {...rename c
2ce0: 72 61 73 68 20 7b 7d 0d 0a 09 73 65 74 20 61 20 rash {}...set a
2cf0: 22 78 20 79 20 7a 22 0d 0a 09 73 65 74 20 62 20 "x y z"...set b
2d00: 22 22 0d 0a 09 6d 61 70 65 61 63 68 20 61 61 20 ""...mapeach aa
2d10: 24 61 20 62 62 20 24 62 20 7b 20 73 65 74 20 78 $a bb $b { set x
2d20: 20 22 61 61 20 3d 20 24 61 61 20 62 62 20 3d 20 "aa = $aa bb =
2d30: 24 62 62 22 20 7d 0d 0a 20 20 20 20 7d 0d 0a 20 $bb" }.. }..
2d40: 20 20 20 63 72 61 73 68 0d 0a 7d 20 7b 7b 61 61 crash..} {{aa
2d50: 20 3d 20 78 20 62 62 20 3d 20 7d 20 7b 61 61 20 = x bb = } {aa
2d60: 3d 20 79 20 62 62 20 3d 20 7d 20 7b 61 61 20 3d = y bb = } {aa =
2d70: 20 7a 20 62 62 20 3d 20 7d 7d 0d 0a 0d 0a 23 20 z bb = }}....#
2d80: 52 65 6c 61 74 65 64 20 74 6f 20 5b 42 75 67 20 Related to [Bug
2d90: 31 36 37 31 31 33 38 5d 3b 20 69 6e 66 69 6e 69 1671138]; infini
2da0: 74 65 20 6c 6f 6f 70 20 77 69 74 68 20 65 6d 70 te loop with emp
2db0: 74 79 20 76 61 72 20 6c 69 73 74 20 69 6e 20 62 ty var list in b
2dc0: 79 74 65 63 6f 6d 70 69 6c 65 64 20 76 65 72 73 ytecompiled vers
2dd0: 69 6f 6e 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 ion..test mapeac
2de0: 68 2d 37 2e 35 20 7b 63 6f 6d 70 69 6c 65 64 20 h-7.5 {compiled
2df0: 65 6d 70 74 79 20 76 61 72 20 6c 69 73 74 7d 20 empty var list}
2e00: 7b 0d 0a 20 20 20 20 70 72 6f 63 20 66 6f 6f 20 {.. proc foo
2e10: 7b 7d 20 7b 0d 0a 09 6d 61 70 65 61 63 68 20 7b {} {...mapeach {
2e20: 7d 20 78 20 7b 0d 0a 09 20 20 20 20 65 72 72 6f } x {... erro
2e30: 72 20 22 72 65 61 63 68 65 64 20 62 6f 64 79 22 r "reached body"
2e40: 0d 0a 09 7d 0d 0a 20 20 20 20 7d 0d 0a 20 20 20 ...}.. }..
2e50: 20 6c 69 73 74 20 5b 63 61 74 63 68 20 7b 20 66 list [catch { f
2e60: 6f 6f 20 7d 20 6d 73 67 5d 20 24 6d 73 67 0d 0a oo } msg] $msg..
2e70: 7d 20 7b 31 20 7b 66 6f 72 65 61 63 68 20 76 61 } {1 {foreach va
2e80: 72 6c 69 73 74 20 69 73 20 65 6d 70 74 79 7d 7d rlist is empty}}
2e90: 0d 0a 0d 0a 74 65 73 74 20 6d 61 70 65 61 63 68 ....test mapeach
2ea0: 2d 37 2e 36 20 7b 6d 61 70 65 61 63 68 3a 20 72 -7.6 {mapeach: r
2eb0: 65 6c 61 74 65 64 20 74 6f 20 22 66 6f 72 65 61 elated to "forea
2ec0: 63 68 22 20 5b 42 75 67 20 31 36 37 31 30 38 37 ch" [Bug 1671087
2ed0: 5d 7d 20 2d 73 65 74 75 70 20 7b 0d 0a 20 20 20 ]} -setup {..
2ee0: 20 70 72 6f 63 20 64 65 6d 6f 20 7b 7d 20 7b 0d proc demo {} {.
2ef0: 0a 09 73 65 74 20 76 61 6c 73 20 7b 31 20 32 20 ..set vals {1 2
2f00: 33 20 34 7d 0d 0a 09 74 72 61 63 65 20 61 64 64 3 4}...trace add
2f10: 20 76 61 72 69 61 62 6c 65 20 78 20 77 72 69 74 variable x writ
2f20: 65 20 7b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 e {string length
2f30: 20 24 76 61 6c 73 20 3b 23 20 7d 0d 0a 09 6d 61 $vals ;# }...ma
2f40: 70 65 61 63 68 20 7b 78 20 79 7d 20 24 76 61 6c peach {x y} $val
2f50: 73 20 7b 66 6f 72 6d 61 74 20 24 79 7d 0d 0a 20 s {format $y}..
2f60: 20 20 20 7d 0d 0a 7d 20 2d 62 6f 64 79 20 7b 0d }..} -body {.
2f70: 0a 20 20 20 20 64 65 6d 6f 0d 0a 7d 20 2d 63 6c . demo..} -cl
2f80: 65 61 6e 75 70 20 7b 0d 0a 20 20 20 20 72 65 6e eanup {.. ren
2f90: 61 6d 65 20 64 65 6d 6f 20 7b 7d 0d 0a 7d 20 2d ame demo {}..} -
2fa0: 72 65 73 75 6c 74 20 7b 32 20 34 7d 0d 0a 0d 0a result {2 4}....
2fb0: 0d 0a 23 20 63 6c 65 61 6e 75 70 0d 0a 63 61 74 ..# cleanup..cat
2fc0: 63 68 20 7b 75 6e 73 65 74 20 61 7d 0d 0a 63 61 ch {unset a}..ca
2fd0: 74 63 68 20 7b 75 6e 73 65 74 20 78 7d 0d 0a 63 tch {unset x}..c
2fe0: 61 74 63 68 20 7b 72 65 6e 61 6d 65 20 66 6f 6f atch {rename foo
2ff0: 20 7b 7d 7d 0d 0a 3a 3a 74 63 6c 74 65 73 74 3a {}}..::tcltest:
3000: 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 0d 0a 72 :cleanupTests..r
3010: 65 74 75 72 6e 0d 0a eturn..
