Artifact
a0240c69359521b8e446ee9e3ecf586a2c2e2fb9d86922d9991d1d9e33f98b09:
0000: 23 0a 23 20 54 65 73 74 20 56 65 63 74 6f 72 73 #.# Test Vectors
0010: 0a 23 0a 0a 23 0a 23 20 43 72 65 61 74 65 20 74 .#..#.# Create t
0020: 65 73 74 20 63 61 73 65 20 61 6e 64 20 6f 75 74 est case and out
0030: 70 75 74 20 74 6f 20 74 65 73 74 20 66 69 6c 65 put to test file
0040: 0a 23 0a 70 72 6f 63 20 64 6f 5f 74 65 73 74 20 .#.proc do_test
0050: 7b 67 72 6f 75 70 20 63 69 70 68 65 72 20 74 65 {group cipher te
0060: 73 74 5f 6e 75 6d 20 74 63 20 70 61 72 61 6d 73 st_num tc params
0070: 20 66 6e 7d 20 7b 0a 20 20 20 20 61 72 72 61 79 fn} {. array
0080: 20 73 65 74 20 63 6f 6e 66 69 67 20 5b 6c 69 73 set config [lis
0090: 74 20 4b 65 79 20 22 22 20 49 56 20 22 22 20 4d t Key "" IV "" M
00a0: 73 67 20 22 22 20 52 65 70 65 61 74 20 31 20 4c sg "" Repeat 1 L
00b0: 65 6e 67 74 68 20 22 22 5d 0a 20 20 20 20 61 72 ength ""]. ar
00c0: 72 61 79 20 73 65 74 20 63 6f 6e 66 69 67 20 24 ray set config $
00d0: 70 61 72 61 6d 73 0a 0a 20 20 20 20 23 20 54 65 params.. # Te
00e0: 73 74 20 69 6e 66 6f 0a 20 20 20 20 73 65 74 20 st info. set
00f0: 6c 69 6e 65 20 5b 66 6f 72 6d 61 74 20 22 74 63 line [format "tc
0100: 6c 74 65 73 74 3a 3a 74 65 73 74 20 25 73 2d 25 ltest::test %s-%
0110: 64 2e 25 64 20 7b 25 73 20 25 73 7d 20 5c 5c 5c d.%d {%s %s} \\\
0120: 6e 5c 74 22 20 24 67 72 6f 75 70 20 24 74 65 73 n\t" $group $tes
0130: 74 5f 6e 75 6d 20 24 74 63 20 5b 73 74 72 69 6e t_num $tc [strin
0140: 67 20 74 6f 74 69 74 6c 65 20 24 66 6e 5d 20 24 g totitle $fn] $
0150: 63 69 70 68 65 72 5d 0a 0a 20 20 20 20 23 20 54 cipher].. # T
0160: 65 73 74 20 63 6f 6e 73 74 72 61 69 6e 74 73 0a est constraints.
0170: 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 append line
0180: 5b 66 6f 72 6d 61 74 20 22 2d 63 6f 6e 73 74 72 [format "-constr
0190: 61 69 6e 74 73 20 25 73 20 5c 5c 5c 6e 5c 74 22 aints %s \\\n\t"
01a0: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 [string map [li
01b0: 73 74 20 22 2d 22 20 22 5f 22 5d 20 24 63 69 70 st "-" "_"] $cip
01c0: 68 65 72 5d 5d 0a 0a 20 20 20 20 23 20 54 65 73 her]].. # Tes
01d0: 74 20 62 6f 64 79 0a 20 20 20 20 73 65 74 20 63 t body. set c
01e0: 6d 64 20 5b 66 6f 72 6d 61 74 20 22 74 6c 73 3a md [format "tls:
01f0: 3a 25 73 20 2d 63 69 70 68 65 72 20 25 73 20 2d :%s -cipher %s -
0200: 70 61 64 64 69 6e 67 20 30 20 5c 5c 5c 6e 5c 74 padding 0 \\\n\t
0210: 5c 74 22 20 24 66 6e 20 24 63 69 70 68 65 72 5d \t" $fn $cipher]
0220: 0a 0a 20 20 20 20 69 66 20 7b 24 66 6e 20 65 71 .. if {$fn eq
0230: 20 22 65 6e 63 72 79 70 74 22 7d 20 7b 0a 09 73 "encrypt"} {..s
0240: 65 74 20 6c 69 73 74 31 20 5b 6c 69 73 74 20 4d et list1 [list M
0250: 73 67 20 44 61 74 61 20 50 6c 61 69 6e 74 65 78 sg Data Plaintex
0260: 74 20 50 4c 41 49 4e 54 45 58 54 5d 0a 09 73 65 t PLAINTEXT]..se
0270: 74 20 6c 69 73 74 32 20 5b 6c 69 73 74 20 4f 75 t list2 [list Ou
0280: 74 70 75 74 20 43 69 70 68 65 72 74 65 78 74 20 tput Ciphertext
0290: 43 49 50 48 45 52 54 45 58 54 5d 0a 20 20 20 20 CIPHERTEXT].
02a0: 7d 20 65 6c 73 65 20 7b 0a 09 73 65 74 20 6c 69 } else {..set li
02b0: 73 74 31 20 5b 6c 69 73 74 20 4f 75 74 70 75 74 st1 [list Output
02c0: 20 43 69 70 68 65 72 74 65 78 74 20 43 49 50 48 Ciphertext CIPH
02d0: 45 52 54 45 58 54 5d 0a 09 73 65 74 20 6c 69 73 ERTEXT]..set lis
02e0: 74 32 20 5b 6c 69 73 74 20 4d 73 67 20 44 61 74 t2 [list Msg Dat
02f0: 61 20 50 6c 61 69 6e 74 65 78 74 20 50 4c 41 49 a Plaintext PLAI
0300: 4e 54 45 58 54 5d 0a 20 20 20 20 7d 0a 0a 20 20 NTEXT]. }..
0310: 20 20 23 20 41 64 64 20 74 65 73 74 20 70 61 72 # Add test par
0320: 61 6d 65 74 65 72 73 0a 20 20 20 20 66 6f 72 65 ameters. fore
0330: 61 63 68 20 7b 70 61 72 61 6d 20 6e 61 6d 65 73 ach {param names
0340: 20 74 79 70 65 7d 20 5b 6c 69 73 74 20 2d 6b 65 type} [list -ke
0350: 79 20 5b 6c 69 73 74 20 4b 65 79 20 6b 65 79 20 y [list Key key
0360: 4b 45 59 5d 20 73 20 2d 69 76 20 5b 6c 69 73 74 KEY] s -iv [list
0370: 20 49 56 20 69 76 5d 20 73 20 2d 64 61 74 61 20 IV iv] s -data
0380: 24 6c 69 73 74 31 20 73 5d 20 7b 0a 09 66 6f 72 $list1 s] {..for
0390: 65 61 63 68 20 6e 61 6d 65 20 24 6e 61 6d 65 73 each name $names
03a0: 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 69 6e 66 {.. if {[inf
03b0: 6f 20 65 78 69 73 74 73 20 63 6f 6e 66 69 67 28 o exists config(
03c0: 24 6e 61 6d 65 29 5d 7d 20 7b 0a 09 09 73 65 74 $name)]} {...set
03d0: 20 64 61 74 61 20 24 63 6f 6e 66 69 67 28 24 6e data $config($n
03e0: 61 6d 65 29 0a 09 09 23 20 48 61 6e 64 6c 65 20 ame)...# Handle
03f0: 68 65 78 20 73 74 72 69 6e 67 0a 09 09 69 66 20 hex string...if
0400: 7b 24 74 79 70 65 20 65 71 20 22 73 22 20 26 26 {$type eq "s" &&
0410: 20 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 [string length
0420: 24 64 61 74 61 5d 20 3e 20 30 20 26 26 20 5b 73 $data] > 0 && [s
0430: 74 72 69 6e 67 20 69 6e 64 65 78 20 24 64 61 74 tring index $dat
0440: 61 20 30 5d 20 6e 65 20 22 5c 22 22 7d 20 7b 0a a 0] ne "\""} {.
0450: 09 09 20 20 20 20 73 65 74 20 64 61 74 61 20 5b .. set data [
0460: 66 6f 72 6d 61 74 20 7b 5b 62 69 6e 61 72 79 20 format {[binary
0470: 64 65 63 6f 64 65 20 68 65 78 20 25 73 5d 7d 20 decode hex %s]}
0480: 24 64 61 74 61 5d 0a 09 09 7d 0a 09 09 69 66 20 $data]...}...if
0490: 7b 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 {[string length
04a0: 24 64 61 74 61 5d 20 3e 20 30 7d 20 7b 0a 09 09 $data] > 0} {...
04b0: 20 20 20 20 61 70 70 65 6e 64 20 63 6d 64 20 22 append cmd "
04c0: 20 22 20 24 70 61 72 61 6d 20 22 20 22 20 24 64 " $param " " $d
04d0: 61 74 61 20 22 20 5c 5c 5c 6e 5c 74 5c 74 22 0a ata " \\\n\t\t".
04e0: 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 ..}.. }..}.
04f0: 20 20 7d 0a 20 20 20 20 61 70 70 65 6e 64 20 6c }. append l
0500: 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 2d 62 6f ine [format {-bo
0510: 64 79 20 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 dy {binary encod
0520: 65 20 68 65 78 20 5b 25 73 5d 7d 7d 20 5b 73 74 e hex [%s]}} [st
0530: 72 69 6e 67 20 74 72 69 6d 72 69 67 68 74 20 24 ring trimright $
0540: 63 6d 64 20 22 20 5c 5c 5c 6e 5c 74 22 5d 5d 0a cmd " \\\n\t"]].
0550: 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 append line
0560: 22 20 5c 5c 5c 6e 5c 74 22 0a 0a 20 20 20 20 23 " \\\n\t".. #
0570: 20 54 65 73 74 20 63 6c 65 61 6e 75 70 0a 0a 20 Test cleanup..
0580: 20 20 20 23 20 54 65 73 74 20 72 65 73 75 6c 74 # Test result
0590: 0a 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 . set result
05a0: 22 22 0a 20 20 20 20 66 6f 72 65 61 63 68 20 6b "". foreach k
05b0: 65 79 20 24 6c 69 73 74 32 20 7b 0a 09 69 66 20 ey $list2 {..if
05c0: 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 20 63 6f {[info exists co
05d0: 6e 66 69 67 28 24 6b 65 79 29 5d 7d 20 7b 0a 09 nfig($key)]} {..
05e0: 20 20 20 20 73 65 74 20 72 65 73 75 6c 74 20 24 set result $
05f0: 63 6f 6e 66 69 67 28 24 6b 65 79 29 0a 09 20 20 config($key)..
0600: 20 20 23 20 43 6f 6e 76 65 72 74 20 68 65 78 20 # Convert hex
0610: 74 6f 20 6c 6f 77 65 72 63 61 73 65 0a 09 20 20 to lowercase..
0620: 20 20 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e if {[string in
0630: 64 65 78 20 24 72 65 73 75 6c 74 20 30 5d 20 6e dex $result 0] n
0640: 65 20 22 5c 22 22 7d 20 7b 0a 09 09 73 65 74 20 e "\""} {...set
0650: 72 65 73 75 6c 74 20 5b 73 74 72 69 6e 67 20 74 result [string t
0660: 6f 6c 6f 77 65 72 20 24 72 65 73 75 6c 74 5d 0a olower $result].
0670: 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a . }..}. }.
0680: 20 20 20 20 0a 20 20 20 20 61 70 70 65 6e 64 20 . append
0690: 6c 69 6e 65 20 5b 66 6f 72 6d 61 74 20 7b 2d 6d line [format {-m
06a0: 61 74 63 68 20 65 78 61 63 74 20 2d 72 65 73 75 atch exact -resu
06b0: 6c 74 20 25 73 7d 20 24 72 65 73 75 6c 74 5d 0a lt %s} $result].
06c0: 0a 20 20 20 20 23 20 52 65 74 75 72 6e 20 63 6f . # Return co
06d0: 64 65 73 0a 20 20 20 20 23 61 70 70 65 6e 64 20 des. #append
06e0: 6c 69 6e 65 20 7b 20 2d 72 65 74 75 72 6e 43 6f line { -returnCo
06f0: 64 65 73 20 30 7d 0a 20 20 20 20 72 65 74 75 72 des 0}. retur
0700: 6e 20 24 6c 69 6e 65 0a 7d 0a 0a 23 0a 23 20 50 n $line.}..#.# P
0710: 61 72 73 65 20 74 65 73 74 20 76 65 63 74 6f 72 arse test vector
0720: 20 66 69 6c 65 20 61 6e 64 20 67 65 74 20 74 65 file and get te
0730: 73 74 20 63 61 73 65 73 20 63 6f 6e 66 69 67 20 st cases config
0740: 69 6e 66 6f 0a 23 0a 70 72 6f 63 20 70 61 72 73 info.#.proc pars
0750: 65 20 7b 67 72 6f 75 70 20 66 69 6c 65 6e 61 6d e {group filenam
0760: 65 20 74 65 73 74 5f 6e 75 6d 20 63 69 70 68 65 e test_num ciphe
0770: 72 7d 20 7b 0a 20 20 20 20 73 65 74 20 74 63 20 r} {. set tc
0780: 30 0a 20 20 20 20 73 65 74 20 70 61 72 61 6d 73 0. set params
0790: 20 5b 6c 69 73 74 5d 0a 0a 20 20 20 20 23 20 4f [list].. # O
07a0: 70 65 6e 20 69 6e 70 75 74 20 66 69 6c 65 0a 20 pen input file.
07b0: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f if {[catch {o
07c0: 70 65 6e 20 24 66 69 6c 65 6e 61 6d 65 20 72 7d pen $filename r}
07d0: 20 63 68 5d 7d 20 7b 0a 09 72 65 74 75 72 6e 20 ch]} {..return
07e0: 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 63 68 0a -code error $ch.
07f0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 4f 70 65 }.. # Ope
0800: 6e 20 6f 75 74 70 75 74 20 66 69 6c 65 0a 20 20 n output file.
0810: 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 70 if {[catch {op
0820: 65 6e 20 5b 66 6f 72 6d 61 74 20 22 25 73 2e 74 en [format "%s.t
0830: 65 73 74 22 20 5b 66 69 6c 65 20 72 6f 6f 74 6e est" [file rootn
0840: 61 6d 65 20 24 66 69 6c 65 6e 61 6d 65 5d 5d 20 ame $filename]]
0850: 77 7d 20 6f 75 74 5d 7d 20 7b 0a 09 72 65 74 75 w} out]} {..retu
0860: 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 rn -code error $
0870: 63 68 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 ch. }.. #
0880: 41 64 64 20 63 6f 6e 66 69 67 20 69 6e 66 6f 0a Add config info.
0890: 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 5b 66 puts $out [f
08a0: 6f 72 6d 61 74 20 22 23 20 41 75 74 6f 20 67 65 ormat "# Auto ge
08b0: 6e 65 72 61 74 65 64 20 66 72 6f 6d 20 5c 22 25 nerated from \"%
08c0: 73 5c 22 22 20 5b 66 69 6c 65 20 74 61 69 6c 20 s\"" [file tail
08d0: 24 66 69 6c 65 6e 61 6d 65 5d 5d 0a 20 20 20 20 $filename]].
08e0: 70 75 74 73 20 24 6f 75 74 20 5b 66 6f 72 6d 61 puts $out [forma
08f0: 74 20 22 6c 61 70 70 65 6e 64 20 61 75 74 6f 5f t "lappend auto_
0900: 70 61 74 68 20 25 73 22 20 7b 5b 66 69 6c 65 20 path %s" {[file
0910: 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 dirname [file di
0920: 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e rname [file dirn
0930: 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d ame [file dirnam
0940: 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 77 e [file join [pw
0950: 64 5d 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 5d d] [info script]
0960: 5d 5d 5d 5d 5d 7d 5d 0a 20 20 20 20 70 75 74 73 ]]]]]}]. puts
0970: 20 24 6f 75 74 20 22 70 61 63 6b 61 67 65 20 72 $out "package r
0980: 65 71 75 69 72 65 20 74 6c 73 22 0a 20 20 20 20 equire tls".
0990: 70 75 74 73 20 24 6f 75 74 20 22 70 61 63 6b 61 puts $out "packa
09a0: 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 ge require tclte
09b0: 73 74 5c 6e 22 0a 20 20 20 20 70 75 74 73 20 24 st\n". puts $
09c0: 6f 75 74 20 22 63 61 74 63 68 20 7b 74 6c 73 3a out "catch {tls:
09d0: 3a 70 72 6f 76 69 64 65 72 20 6c 65 67 61 63 79 :provider legacy
09e0: 7d 22 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 }". puts $out
09f0: 20 5b 66 6f 72 6d 61 74 20 22 74 63 6c 74 65 73 [format "tcltes
0a00: 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e t::testConstrain
0a10: 74 20 25 73 20 25 73 22 20 5b 73 74 72 69 6e 67 t %s %s" [string
0a20: 20 6d 61 70 20 5b 6c 69 73 74 20 22 2d 22 20 22 map [list "-" "
0a30: 5f 22 5d 20 24 63 69 70 68 65 72 5d 20 5c 0a 09 _"] $cipher] \..
0a40: 5b 66 6f 72 6d 61 74 20 7b 5b 65 78 70 72 20 7b [format {[expr {
0a50: 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 65 [lsearch -nocase
0a60: 20 5b 74 6c 73 3a 3a 63 69 70 68 65 72 73 5d 20 [tls::ciphers]
0a70: 25 73 5d 20 3e 20 2d 31 7d 5d 7d 20 24 63 69 70 %s] > -1}]} $cip
0a80: 68 65 72 5d 5d 0a 20 20 20 20 70 75 74 73 20 24 her]]. puts $
0a90: 6f 75 74 20 22 22 0a 0a 20 20 20 20 23 20 50 72 out "".. # Pr
0aa0: 6f 63 65 73 73 20 66 69 6c 65 0a 20 20 20 20 77 ocess file. w
0ab0: 68 69 6c 65 20 7b 21 5b 65 6f 66 20 24 63 68 5d hile {![eof $ch]
0ac0: 7d 20 7b 0a 09 67 65 74 73 20 24 63 68 20 6c 69 } {..gets $ch li
0ad0: 6e 65 0a 09 73 65 74 20 6c 69 6e 65 20 5b 73 74 ne..set line [st
0ae0: 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d ring trim $line]
0af0: 0a 09 73 65 74 20 6c 65 6e 20 5b 73 74 72 69 6e ..set len [strin
0b00: 67 20 6c 65 6e 67 74 68 20 24 6c 69 6e 65 5d 0a g length $line].
0b10: 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e ..if {[string in
0b20: 64 65 78 20 24 6c 69 6e 65 20 30 5d 20 69 6e 20 dex $line 0] in
0b30: 5b 6c 69 73 74 20 22 23 22 20 22 5c 5b 22 5d 7d [list "#" "\["]}
0b40: 20 7b 0a 09 20 20 20 20 23 20 53 6b 69 70 20 63 {.. # Skip c
0b50: 6f 6d 6d 65 6e 74 73 20 61 6e 64 20 69 6e 66 6f omments and info
0b60: 20 6c 69 6e 65 73 0a 09 20 20 20 20 63 6f 6e 74 lines.. cont
0b70: 69 6e 75 65 0a 0a 09 7d 20 65 6c 73 65 69 66 20 inue...} elseif
0b80: 7b 24 6c 65 6e 20 3d 3d 20 30 7d 20 7b 0a 09 20 {$len == 0} {..
0b90: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 if {[llength
0ba0: 24 70 61 72 61 6d 73 5d 20 3e 20 30 7d 20 7b 0a $params] > 0} {.
0bb0: 09 09 23 20 44 6f 20 74 65 73 74 20 69 66 20 65 ..# Do test if e
0bc0: 6e 64 20 6f 66 20 70 61 72 61 6d 73 0a 09 09 70 nd of params...p
0bd0: 75 74 73 20 24 6f 75 74 20 5b 64 6f 5f 74 65 73 uts $out [do_tes
0be0: 74 20 24 67 72 6f 75 70 20 24 63 69 70 68 65 72 t $group $cipher
0bf0: 20 24 74 65 73 74 5f 6e 75 6d 20 5b 69 6e 63 72 $test_num [incr
0c00: 20 74 63 5d 20 24 70 61 72 61 6d 73 20 65 6e 63 tc] $params enc
0c10: 72 79 70 74 5d 0a 09 09 70 75 74 73 20 24 6f 75 rypt]...puts $ou
0c20: 74 20 22 22 0a 09 09 70 75 74 73 20 24 6f 75 74 t ""...puts $out
0c30: 20 5b 64 6f 5f 74 65 73 74 20 24 67 72 6f 75 70 [do_test $group
0c40: 20 24 63 69 70 68 65 72 20 24 74 65 73 74 5f 6e $cipher $test_n
0c50: 75 6d 20 5b 69 6e 63 72 20 74 63 5d 20 24 70 61 um [incr tc] $pa
0c60: 72 61 6d 73 20 64 65 63 72 79 70 74 5d 0a 09 09 rams decrypt]...
0c70: 70 75 74 73 20 24 6f 75 74 20 22 22 0a 09 09 73 puts $out ""...s
0c80: 65 74 20 70 61 72 61 6d 73 20 5b 6c 69 73 74 5d et params [list]
0c90: 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 .. } else {..
0ca0: 09 23 20 45 6d 70 74 79 20 6c 69 6e 65 0a 09 20 .# Empty line..
0cb0: 20 20 20 7d 0a 0a 09 7d 20 65 6c 73 65 20 7b 0a }...} else {.
0cc0: 09 20 20 20 20 23 20 41 70 70 65 6e 64 20 61 72 . # Append ar
0cd0: 67 73 20 74 6f 20 70 61 72 61 6d 73 0a 09 20 20 gs to params..
0ce0: 20 20 73 65 74 20 69 6e 64 65 78 20 5b 73 74 72 set index [str
0cf0: 69 6e 67 20 66 69 72 73 74 20 22 3d 22 20 24 6c ing first "=" $l
0d00: 69 6e 65 5d 0a 09 20 20 20 20 69 66 20 7b 24 69 ine].. if {$i
0d10: 6e 64 65 78 20 3e 20 2d 31 7d 20 7b 0a 09 09 73 ndex > -1} {...s
0d20: 65 74 20 6b 65 79 20 5b 73 74 72 69 6e 67 20 74 et key [string t
0d30: 72 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 rim [string rang
0d40: 65 20 24 6c 69 6e 65 20 30 20 5b 65 78 70 72 20 e $line 0 [expr
0d50: 7b 24 69 6e 64 65 78 20 2d 20 31 7d 5d 5d 5d 0a {$index - 1}]]].
0d60: 09 09 73 65 74 20 76 61 6c 75 65 20 5b 73 74 72 ..set value [str
0d70: 69 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e 67 ing trim [string
0d80: 20 72 61 6e 67 65 20 24 6c 69 6e 65 20 5b 65 78 range $line [ex
0d90: 70 72 20 7b 24 69 6e 64 65 78 20 2b 20 31 7d 5d pr {$index + 1}]
0da0: 20 65 6e 64 5d 5d 0a 09 09 6c 61 70 70 65 6e 64 end]]...lappend
0db0: 20 70 61 72 61 6d 73 20 24 6b 65 79 20 24 76 61 params $key $va
0dc0: 6c 75 65 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 lue.. }..}.
0dd0: 20 20 7d 0a 0a 20 20 20 20 23 20 48 61 6e 64 6c }.. # Handl
0de0: 65 20 6c 61 73 74 20 74 65 73 74 20 63 61 73 65 e last test case
0df0: 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 . if {[llengt
0e00: 68 20 24 70 61 72 61 6d 73 5d 20 3e 20 30 7d 20 h $params] > 0}
0e10: 7b 0a 09 70 75 74 73 20 24 6f 75 74 20 5b 64 6f {..puts $out [do
0e20: 5f 74 65 73 74 20 24 67 72 6f 75 70 20 24 63 69 _test $group $ci
0e30: 70 68 65 72 20 24 74 65 73 74 5f 6e 75 6d 20 5b pher $test_num [
0e40: 69 6e 63 72 20 74 63 5d 20 24 70 61 72 61 6d 73 incr tc] $params
0e50: 5d 0a 09 70 75 74 73 20 24 6f 75 74 20 22 22 0a ]..puts $out "".
0e60: 20 20 20 20 7d 0a 20 20 20 20 0a 20 20 20 20 23 }. . #
0e70: 20 43 6c 65 61 6e 75 70 0a 20 20 20 20 70 75 74 Cleanup. put
0e80: 73 20 24 6f 75 74 20 22 23 20 43 6c 65 61 6e 75 s $out "# Cleanu
0e90: 70 5c 6e 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c p\n::tcltest::cl
0ea0: 65 61 6e 75 70 54 65 73 74 73 5c 6e 72 65 74 75 eanupTests\nretu
0eb0: 72 6e 22 0a 20 20 20 20 63 6c 6f 73 65 20 24 63 rn". close $c
0ec0: 68 0a 20 20 20 20 63 6c 6f 73 65 20 24 6f 75 74 h. close $out
0ed0: 0a 7d 0a 0a 23 0a 23 20 52 65 61 64 20 61 6c 6c .}..#.# Read all
0ee0: 20 63 6f 6e 66 69 67 20 66 69 6c 65 73 20 69 6e config files in
0ef0: 20 64 69 72 65 63 74 6f 72 79 0a 23 0a 70 72 6f directory.#.pro
0f00: 63 20 6d 61 69 6e 20 7b 70 61 74 68 7d 20 7b 0a c main {path} {.
0f10: 20 20 20 20 73 65 74 20 74 65 73 74 5f 6e 75 6d set test_num
0f20: 20 30 0a 20 20 20 20 73 65 74 20 67 72 6f 75 70 0. set group
0f30: 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 [file rootname
0f40: 5b 66 69 6c 65 20 74 61 69 6c 20 24 70 61 74 68 [file tail $path
0f50: 5d 5d 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 ]].. foreach
0f60: 66 69 6c 65 6e 61 6d 65 20 5b 67 6c 6f 62 20 2d filename [glob -
0f70: 64 69 72 65 63 74 6f 72 79 20 24 70 61 74 68 20 directory $path
0f80: 2a 2e 74 78 74 5d 20 7b 0a 09 70 75 74 73 20 5b *.txt] {..puts [
0f90: 66 6f 72 6d 61 74 20 22 50 72 6f 63 65 73 73 69 format "Processi
0fa0: 6e 67 20 25 73 22 20 24 66 69 6c 65 6e 61 6d 65 ng %s" $filename
0fb0: 5d 0a 09 73 65 74 20 74 61 69 6c 20 5b 66 69 6c ]..set tail [fil
0fc0: 65 20 74 61 69 6c 20 24 66 69 6c 65 6e 61 6d 65 e tail $filename
0fd0: 5d 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d ]..if {[string m
0fe0: 61 74 63 68 20 2d 6e 6f 63 61 73 65 20 22 52 65 atch -nocase "Re
0ff0: 61 64 6d 65 2e 74 78 74 22 20 24 74 61 69 6c 5d adme.txt" $tail]
1000: 7d 20 7b 0a 09 20 20 20 20 63 6f 6e 74 69 6e 75 } {.. continu
1010: 65 0a 09 7d 0a 0a 09 73 65 74 20 63 69 70 68 65 e..}...set ciphe
1020: 72 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 r [file rootname
1030: 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c [file tail $fil
1040: 65 6e 61 6d 65 5d 5d 0a 09 73 65 74 20 69 64 20 ename]]..set id
1050: 5b 66 6f 72 6d 61 74 20 22 25 73 5f 25 73 22 20 [format "%s_%s"
1060: 24 67 72 6f 75 70 20 24 63 69 70 68 65 72 5d 0a $group $cipher].
1070: 09 73 65 74 20 74 65 73 74 5f 6e 75 6d 20 5b 69 .set test_num [i
1080: 6e 63 72 20 74 65 73 74 5f 69 64 73 28 24 69 64 ncr test_ids($id
1090: 29 5d 0a 09 70 61 72 73 65 20 24 69 64 20 24 66 )]..parse $id $f
10a0: 69 6c 65 6e 61 6d 65 20 24 74 65 73 74 5f 6e 75 ilename $test_nu
10b0: 6d 20 24 63 69 70 68 65 72 0a 20 20 20 20 7d 0a m $cipher. }.
10c0: 7d 0a 0a 6d 61 69 6e 20 5b 70 77 64 5d 0a 65 78 }..main [pwd].ex
10d0: 69 74 0a it.