Artifact
b7d1fc45617177ce270122ad06dbdd246a8626515ebff4d4eaa09ea58961e567:
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 74 61 69 6c 20 66 69 6c 65 {group tail file
0060: 5f 6e 75 6d 20 74 63 20 6b 64 66 20 64 69 67 65 _num tc kdf dige
0070: 73 74 20 70 61 72 61 6d 73 7d 20 7b 0a 20 20 20 st params} {.
0080: 20 61 72 72 61 79 20 73 65 74 20 63 6f 6e 66 69 array set confi
0090: 67 20 24 70 61 72 61 6d 73 0a 0a 20 20 20 20 23 g $params.. #
00a0: 20 54 65 73 74 20 69 6e 66 6f 0a 20 20 20 20 73 Test info. s
00b0: 65 74 20 6c 69 6e 65 20 5b 66 6f 72 6d 61 74 20 et line [format
00c0: 22 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 20 25 "tcltest::test %
00d0: 73 2d 25 64 2e 25 64 20 7b 25 73 7d 22 20 24 67 s-%d.%d {%s}" $g
00e0: 72 6f 75 70 20 24 66 69 6c 65 5f 6e 75 6d 20 24 roup $file_num $
00f0: 74 63 20 24 74 61 69 6c 5d 0a 20 20 20 20 61 70 tc $tail]. ap
0100: 70 65 6e 64 20 6c 69 6e 65 20 22 20 5c 5c 5c 6e pend line " \\\n
0110: 5c 74 22 0a 0a 20 20 20 20 23 20 54 65 73 74 20 \t".. # Test
0120: 63 6f 6e 73 74 72 61 69 6e 74 73 0a 20 20 20 20 constraints.
0130: 61 70 70 65 6e 64 20 6c 69 6e 65 20 5b 66 6f 72 append line [for
0140: 6d 61 74 20 22 2d 63 6f 6e 73 74 72 61 69 6e 74 mat "-constraint
0150: 73 20 25 73 22 20 24 6b 64 66 5d 0a 20 20 20 20 s %s" $kdf].
0160: 61 70 70 65 6e 64 20 6c 69 6e 65 20 22 20 5c 5c append line " \\
0170: 5c 6e 5c 74 22 0a 0a 20 20 20 20 23 20 54 65 73 \n\t".. # Tes
0180: 74 20 73 65 74 75 70 0a 20 20 20 20 61 70 70 65 t setup. appe
0190: 6e 64 20 6c 69 6e 65 20 22 2d 73 65 74 75 70 20 nd line "-setup
01a0: 7b 7d 20 5c 5c 5c 6e 5c 74 22 0a 0a 20 20 20 20 {} \\\n\t"..
01b0: 23 20 54 65 73 74 20 62 6f 64 79 20 70 61 72 61 # Test body para
01c0: 6d 65 74 65 72 73 0a 20 20 20 20 73 65 74 20 63 meters. set c
01d0: 6d 64 20 5b 66 6f 72 6d 61 74 20 22 74 6c 73 3a md [format "tls:
01e0: 3a 25 73 22 20 5b 73 74 72 69 6e 67 20 74 6f 6c :%s" [string tol
01f0: 6f 77 65 72 20 24 6b 64 66 5d 5d 0a 20 20 20 20 ower $kdf]].
0200: 69 66 20 7b 24 64 69 67 65 73 74 20 6e 65 20 22 if {$digest ne "
0210: 22 7d 20 7b 0a 09 61 70 70 65 6e 64 20 63 6d 64 "} {..append cmd
0220: 20 22 20 2d 64 69 67 65 73 74 20 22 20 24 64 69 " -digest " $di
0230: 67 65 73 74 0a 20 20 20 20 7d 0a 20 20 20 20 66 gest. }. f
0240: 6f 72 65 61 63 68 20 7b 70 61 72 61 6d 20 6e 61 oreach {param na
0250: 6d 65 73 20 74 79 70 65 7d 20 5b 6c 69 73 74 20 mes type} [list
0260: 2d 6b 65 79 20 5b 6c 69 73 74 20 49 4b 4d 20 4b -key [list IKM K
0270: 65 79 20 6b 65 79 5d 20 73 20 2d 69 6e 66 6f 20 ey key] s -info
0280: 5b 6c 69 73 74 20 49 20 69 6e 66 6f 5d 20 73 20 [list I info] s
0290: 2d 70 61 73 73 77 6f 72 64 20 5b 6c 69 73 74 20 -password [list
02a0: 50 5d 20 73 20 5c 0a 09 20 20 20 20 2d 73 61 6c P] s \.. -sal
02b0: 74 20 5b 6c 69 73 74 20 53 20 73 61 6c 74 5d 20 t [list S salt]
02c0: 73 20 2d 69 74 65 72 61 74 69 6f 6e 73 20 5b 6c s -iterations [l
02d0: 69 73 74 20 63 5d 20 69 20 2d 73 69 7a 65 20 5b ist c] i -size [
02e0: 6c 69 73 74 20 4c 20 64 6b 4c 65 6e 20 64 6b 6c list L dkLen dkl
02f0: 65 6e 5d 20 69 20 5c 0a 09 20 20 20 20 2d 4e 20 en] i \.. -N
0300: 5b 6c 69 73 74 20 4e 5d 20 69 20 2d 72 20 5b 6c [list N] i -r [l
0310: 69 73 74 20 72 5d 20 69 20 2d 70 20 5b 6c 69 73 ist r] i -p [lis
0320: 74 20 70 5d 20 69 5d 20 7b 0a 09 66 6f 72 65 61 t p] i] {..forea
0330: 63 68 20 6e 61 6d 65 20 24 6e 61 6d 65 73 20 7b ch name $names {
0340: 0a 09 20 20 20 20 69 66 20 7b 5b 69 6e 66 6f 20 .. if {[info
0350: 65 78 69 73 74 73 20 63 6f 6e 66 69 67 28 24 6e exists config($n
0360: 61 6d 65 29 5d 7d 20 7b 0a 09 09 73 65 74 20 64 ame)]} {...set d
0370: 61 74 61 20 24 63 6f 6e 66 69 67 28 24 6e 61 6d ata $config($nam
0380: 65 29 0a 09 09 23 20 48 61 6e 64 6c 65 20 68 65 e)...# Handle he
0390: 78 20 73 74 72 69 6e 67 0a 09 09 69 66 20 7b 24 x string...if {$
03a0: 74 79 70 65 20 65 71 20 22 73 22 20 26 26 20 5b type eq "s" && [
03b0: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 string length $d
03c0: 61 74 61 5d 20 3e 20 30 20 26 26 20 5b 73 74 72 ata] > 0 && [str
03d0: 69 6e 67 20 69 6e 64 65 78 20 24 64 61 74 61 20 ing index $data
03e0: 30 5d 20 6e 65 20 22 5c 22 22 7d 20 7b 0a 09 09 0] ne "\""} {...
03f0: 20 20 20 20 73 65 74 20 64 61 74 61 20 5b 66 6f set data [fo
0400: 72 6d 61 74 20 7b 5b 62 69 6e 61 72 79 20 64 65 rmat {[binary de
0410: 63 6f 64 65 20 68 65 78 20 25 73 5d 7d 20 24 64 code hex %s]} $d
0420: 61 74 61 5d 0a 09 09 7d 0a 09 09 69 66 20 7b 5b ata]...}...if {[
0430: 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 64 string length $d
0440: 61 74 61 5d 20 3e 20 30 7d 20 7b 0a 09 09 20 20 ata] > 0} {...
0450: 20 20 61 70 70 65 6e 64 20 63 6d 64 20 22 20 22 append cmd " "
0460: 20 24 70 61 72 61 6d 20 22 20 22 20 24 64 61 74 $param " " $dat
0470: 61 0a 09 09 7d 0a 09 20 20 20 20 7d 0a 09 7d 0a a...}.. }..}.
0480: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 54 65 73 }.. # Tes
0490: 74 20 62 6f 64 79 0a 20 20 20 20 61 70 70 65 6e t body. appen
04a0: 64 20 6c 69 6e 65 20 22 2d 62 6f 64 79 20 5c 7b d line "-body \{
04b0: 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 65 binary encode he
04c0: 78 20 5c 5b 22 20 24 63 6d 64 20 22 5c 5d 5c 7d x \[" $cmd "\]\}
04d0: 20 5c 5c 5c 6e 5c 74 22 0a 0a 20 20 20 20 23 20 \\\n\t".. #
04e0: 54 65 73 74 20 63 6c 65 61 6e 75 70 0a 20 20 20 Test cleanup.
04f0: 20 23 61 70 70 65 6e 64 20 6c 69 6e 65 20 22 2d #append line "-
0500: 63 6c 65 61 6e 75 70 20 7b 7d 20 5c 5c 6e 5c 74 cleanup {} \\n\t
0510: 22 0a 0a 20 20 20 20 23 20 54 65 73 74 20 72 65 ".. # Test re
0520: 73 75 6c 74 0a 20 20 20 20 73 65 74 20 72 65 73 sult. set res
0530: 75 6c 74 20 22 22 0a 20 20 20 20 66 6f 72 65 61 ult "". forea
0540: 63 68 20 6e 61 6d 65 20 5b 6c 69 73 74 20 4f 4b ch name [list OK
0550: 4d 20 44 4b 20 4f 75 74 70 75 74 5d 20 7b 0a 09 M DK Output] {..
0560: 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 73 if {[info exists
0570: 20 63 6f 6e 66 69 67 28 24 6e 61 6d 65 29 5d 7d config($name)]}
0580: 20 7b 0a 09 20 20 20 20 73 65 74 20 72 65 73 75 {.. set resu
0590: 6c 74 20 24 63 6f 6e 66 69 67 28 24 6e 61 6d 65 lt $config($name
05a0: 29 0a 09 7d 0a 20 20 20 20 7d 0a 20 20 20 20 0a )..}. }. .
05b0: 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 append line
05c0: 5b 66 6f 72 6d 61 74 20 7b 2d 6d 61 74 63 68 20 [format {-match
05d0: 65 78 61 63 74 20 2d 72 65 73 75 6c 74 20 25 73 exact -result %s
05e0: 7d 20 24 72 65 73 75 6c 74 5d 0a 0a 20 20 20 20 } $result]..
05f0: 23 20 52 65 74 75 72 6e 20 63 6f 64 65 73 0a 20 # Return codes.
0600: 20 20 20 23 61 70 70 65 6e 64 20 6c 69 6e 65 20 #append line
0610: 7b 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 30 { -returnCodes 0
0620: 7d 0a 20 20 20 20 72 65 74 75 72 6e 20 24 6c 69 }. return $li
0630: 6e 65 0a 7d 0a 0a 23 0a 23 20 50 61 72 73 65 20 ne.}..#.# Parse
0640: 74 65 73 74 20 76 65 63 74 6f 72 20 66 69 6c 65 test vector file
0650: 20 61 6e 64 20 67 65 74 20 74 65 73 74 20 63 61 and get test ca
0660: 73 65 73 20 63 6f 6e 66 69 67 20 69 6e 66 6f 0a ses config info.
0670: 23 0a 70 72 6f 63 20 70 61 72 73 65 20 7b 67 72 #.proc parse {gr
0680: 6f 75 70 20 66 69 6c 65 6e 61 6d 65 20 66 69 6c oup filename fil
0690: 65 5f 6e 75 6d 7d 20 7b 0a 20 20 20 20 73 65 74 e_num} {. set
06a0: 20 74 63 20 30 0a 0a 20 20 20 20 23 20 4f 70 65 tc 0.. # Ope
06b0: 6e 20 69 6e 70 75 74 20 66 69 6c 65 0a 20 20 20 n input file.
06c0: 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f 70 65 if {[catch {ope
06d0: 6e 20 24 66 69 6c 65 6e 61 6d 65 20 72 7d 20 63 n $filename r} c
06e0: 68 5d 7d 20 7b 0a 09 72 65 74 75 72 6e 20 2d 63 h]} {..return -c
06f0: 6f 64 65 20 65 72 72 6f 72 20 24 63 68 0a 20 20 ode error $ch.
0700: 20 20 7d 0a 20 20 20 20 73 65 74 20 74 61 69 6c }. set tail
0710: 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 [file rootname
0720: 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 [file tail $file
0730: 6e 61 6d 65 5d 5d 0a 0a 20 20 20 20 23 20 4f 70 name]].. # Op
0740: 65 6e 20 6f 75 74 70 75 74 20 66 69 6c 65 0a 20 en output file.
0750: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f if {[catch {o
0760: 70 65 6e 20 5b 66 6f 72 6d 61 74 20 22 25 73 2e pen [format "%s.
0770: 74 65 73 74 22 20 5b 66 69 6c 65 20 72 6f 6f 74 test" [file root
0780: 6e 61 6d 65 20 24 66 69 6c 65 6e 61 6d 65 5d 5d name $filename]]
0790: 20 77 7d 20 6f 75 74 5d 7d 20 7b 0a 09 72 65 74 w} out]} {..ret
07a0: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 urn -code error
07b0: 24 63 68 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 $ch. }.. #
07c0: 20 47 65 74 20 64 69 67 65 73 74 0a 20 20 20 20 Get digest.
07d0: 6c 61 73 73 69 67 6e 20 5b 73 70 6c 69 74 20 5b lassign [split [
07e0: 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 string map [list
07f0: 20 22 5f 22 20 22 2d 22 5d 20 24 74 61 69 6c 5d "_" "-"] $tail]
0800: 20 22 2d 22 5d 20 6b 64 66 20 64 69 67 65 73 74 "-"] kdf digest
0810: 0a 20 20 20 20 73 65 74 20 70 61 72 61 6d 73 20 . set params
0820: 5b 6c 69 73 74 5d 0a 0a 20 20 20 20 23 20 41 64 [list].. # Ad
0830: 64 20 63 6f 6e 66 69 67 20 69 6e 66 6f 0a 20 20 d config info.
0840: 20 20 70 75 74 73 20 24 6f 75 74 20 5b 66 6f 72 puts $out [for
0850: 6d 61 74 20 22 23 20 41 75 74 6f 20 67 65 6e 65 mat "# Auto gene
0860: 72 61 74 65 64 20 66 72 6f 6d 20 5c 22 25 73 5c rated from \"%s\
0870: 22 22 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 "" [file tail $f
0880: 69 6c 65 6e 61 6d 65 5d 5d 0a 20 20 20 20 70 75 ilename]]. pu
0890: 74 73 20 24 6f 75 74 20 22 70 61 63 6b 61 67 65 ts $out "package
08a0: 20 72 65 71 75 69 72 65 20 74 6c 73 22 0a 20 20 require tls".
08b0: 20 20 70 75 74 73 20 24 6f 75 74 20 22 70 61 63 puts $out "pac
08c0: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c kage require tcl
08d0: 74 65 73 74 5c 6e 22 0a 20 20 20 20 70 75 74 73 test\n". puts
08e0: 20 24 6f 75 74 20 5b 66 6f 72 6d 61 74 20 22 74 $out [format "t
08f0: 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 cltest::testCons
0900: 74 72 61 69 6e 74 20 25 73 20 25 73 22 20 24 6b traint %s %s" $k
0910: 64 66 20 5c 0a 09 5b 66 6f 72 6d 61 74 20 7b 5b df \..[format {[
0920: 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d expr {[lsearch -
0930: 6e 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 6b 64 66 nocase [tls::kdf
0940: 73 5d 20 25 73 5d 20 3e 20 2d 31 7d 5d 7d 20 24 s] %s] > -1}]} $
0950: 6b 64 66 5d 5d 0a 20 20 20 20 70 75 74 73 20 24 kdf]]. puts $
0960: 6f 75 74 20 22 22 0a 0a 20 20 20 20 23 20 50 72 out "".. # Pr
0970: 6f 63 65 73 73 20 66 69 6c 65 0a 20 20 20 20 77 ocess file. w
0980: 68 69 6c 65 20 7b 21 5b 65 6f 66 20 24 63 68 5d hile {![eof $ch]
0990: 7d 20 7b 0a 09 67 65 74 73 20 24 63 68 20 6c 69 } {..gets $ch li
09a0: 6e 65 0a 09 73 65 74 20 6c 69 6e 65 20 5b 73 74 ne..set line [st
09b0: 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 5d ring trim $line]
09c0: 0a 09 73 65 74 20 6c 65 6e 20 5b 73 74 72 69 6e ..set len [strin
09d0: 67 20 6c 65 6e 67 74 68 20 24 6c 69 6e 65 5d 0a g length $line].
09e0: 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 6e ..if {[string in
09f0: 64 65 78 20 24 6c 69 6e 65 20 30 5d 20 69 6e 20 dex $line 0] in
0a00: 5b 6c 69 73 74 20 22 23 22 20 22 5c 5b 22 5d 7d [list "#" "\["]}
0a10: 20 7b 0a 09 20 20 20 20 23 20 53 6b 69 70 20 63 {.. # Skip c
0a20: 6f 6d 6d 65 6e 74 73 20 61 6e 64 20 69 6e 66 6f omments and info
0a30: 20 6c 69 6e 65 73 0a 09 20 20 20 20 63 6f 6e 74 lines.. cont
0a40: 69 6e 75 65 0a 0a 09 7d 20 65 6c 73 65 69 66 20 inue...} elseif
0a50: 7b 24 6c 65 6e 20 3d 3d 20 30 7d 20 7b 0a 09 20 {$len == 0} {..
0a60: 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 if {[llength
0a70: 24 70 61 72 61 6d 73 5d 20 3e 20 30 7d 20 7b 0a $params] > 0} {.
0a80: 09 09 23 20 44 6f 20 74 65 73 74 20 69 66 20 65 ..# Do test if e
0a90: 6e 64 20 6f 66 20 70 61 72 61 6d 73 0a 09 09 70 nd of params...p
0aa0: 75 74 73 20 24 6f 75 74 20 5b 64 6f 5f 74 65 73 uts $out [do_tes
0ab0: 74 20 24 67 72 6f 75 70 20 24 74 61 69 6c 20 24 t $group $tail $
0ac0: 66 69 6c 65 5f 6e 75 6d 20 5b 69 6e 63 72 20 74 file_num [incr t
0ad0: 63 5d 20 24 6b 64 66 20 24 64 69 67 65 73 74 20 c] $kdf $digest
0ae0: 24 70 61 72 61 6d 73 5d 0a 09 09 70 75 74 73 20 $params]...puts
0af0: 24 6f 75 74 20 22 22 0a 09 09 73 65 74 20 70 61 $out ""...set pa
0b00: 72 61 6d 73 20 5b 6c 69 73 74 5d 0a 09 20 20 20 rams [list]..
0b10: 20 7d 20 65 6c 73 65 20 7b 0a 09 09 23 20 45 6d } else {...# Em
0b20: 70 74 79 20 6c 69 6e 65 0a 09 20 20 20 20 7d 0a pty line.. }.
0b30: 0a 09 7d 20 65 6c 73 65 20 7b 0a 09 20 20 20 20 ..} else {..
0b40: 23 20 41 70 70 65 6e 64 20 61 72 67 73 20 74 6f # Append args to
0b50: 20 70 61 72 61 6d 73 0a 09 20 20 20 20 73 65 74 params.. set
0b60: 20 69 6e 64 65 78 20 5b 73 74 72 69 6e 67 20 66 index [string f
0b70: 69 72 73 74 20 22 3d 22 20 24 6c 69 6e 65 5d 0a irst "=" $line].
0b80: 09 20 20 20 20 69 66 20 7b 24 69 6e 64 65 78 20 . if {$index
0b90: 3e 20 2d 31 7d 20 7b 0a 09 09 73 65 74 20 6b 65 > -1} {...set ke
0ba0: 79 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b y [string trim [
0bb0: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 6c 69 string range $li
0bc0: 6e 65 20 30 20 5b 65 78 70 72 20 7b 24 69 6e 64 ne 0 [expr {$ind
0bd0: 65 78 20 2d 20 31 7d 5d 5d 5d 0a 09 09 73 65 74 ex - 1}]]]...set
0be0: 20 76 61 6c 75 65 20 5b 73 74 72 69 6e 67 20 74 value [string t
0bf0: 72 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 6e 67 rim [string rang
0c00: 65 20 24 6c 69 6e 65 20 5b 65 78 70 72 20 7b 24 e $line [expr {$
0c10: 69 6e 64 65 78 20 2b 20 31 7d 5d 20 65 6e 64 5d index + 1}] end]
0c20: 5d 0a 09 09 6c 61 70 70 65 6e 64 20 70 61 72 61 ]...lappend para
0c30: 6d 73 20 24 6b 65 79 20 24 76 61 6c 75 65 0a 09 ms $key $value..
0c40: 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d 0a 0a }..}. }..
0c50: 20 20 20 20 23 20 48 61 6e 64 6c 65 20 6c 61 73 # Handle las
0c60: 74 20 74 65 73 74 20 63 61 73 65 0a 20 20 20 20 t test case.
0c70: 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 20 24 70 61 if {[llength $pa
0c80: 72 61 6d 73 5d 20 3e 20 30 7d 20 7b 0a 09 70 75 rams] > 0} {..pu
0c90: 74 73 20 24 6f 75 74 20 5b 64 6f 5f 74 65 73 74 ts $out [do_test
0ca0: 20 24 67 72 6f 75 70 20 24 74 61 69 6c 20 24 66 $group $tail $f
0cb0: 69 6c 65 5f 6e 75 6d 20 5b 69 6e 63 72 20 74 63 ile_num [incr tc
0cc0: 5d 20 24 6b 64 66 20 24 64 69 67 65 73 74 20 24 ] $kdf $digest $
0cd0: 70 61 72 61 6d 73 5d 0a 09 70 75 74 73 20 24 6f params]..puts $o
0ce0: 75 74 20 22 22 0a 20 20 20 20 7d 0a 20 20 20 20 ut "". }.
0cf0: 0a 20 20 20 20 23 20 43 6c 65 61 6e 75 70 0a 20 . # Cleanup.
0d00: 20 20 20 70 75 74 73 20 24 6f 75 74 20 22 23 20 puts $out "#
0d10: 43 6c 65 61 6e 75 70 5c 6e 3a 3a 74 63 6c 74 65 Cleanup\n::tclte
0d20: 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 st::cleanupTests
0d30: 5c 6e 72 65 74 75 72 6e 22 0a 20 20 20 20 63 6c \nreturn". cl
0d40: 6f 73 65 20 24 63 68 0a 20 20 20 20 63 6c 6f 73 ose $ch. clos
0d50: 65 20 24 6f 75 74 0a 7d 0a 0a 23 0a 23 20 52 65 e $out.}..#.# Re
0d60: 61 64 20 61 6c 6c 20 63 6f 6e 66 69 67 20 66 69 ad all config fi
0d70: 6c 65 73 20 69 6e 20 64 69 72 65 63 74 6f 72 79 les in directory
0d80: 0a 23 0a 70 72 6f 63 20 6d 61 69 6e 20 7b 70 61 .#.proc main {pa
0d90: 74 68 7d 20 7b 0a 20 20 20 20 73 65 74 20 66 69 th} {. set fi
0da0: 6c 65 5f 6e 75 6d 20 30 0a 20 20 20 20 73 65 74 le_num 0. set
0db0: 20 67 72 6f 75 70 20 5b 66 69 6c 65 20 72 6f 6f group [file roo
0dc0: 74 6e 61 6d 65 20 5b 66 69 6c 65 20 74 61 69 6c tname [file tail
0dd0: 20 24 70 61 74 68 5d 5d 0a 0a 20 20 20 20 66 6f $path]].. fo
0de0: 72 65 61 63 68 20 66 69 6c 65 6e 61 6d 65 20 5b reach filename [
0df0: 67 6c 6f 62 20 2d 64 69 72 65 63 74 6f 72 79 20 glob -directory
0e00: 24 70 61 74 68 20 2a 2e 74 78 74 20 2a 53 68 6f $path *.txt *Sho
0e10: 72 74 4d 73 67 2e 72 73 70 20 2a 4c 6f 6e 67 4d rtMsg.rsp *LongM
0e20: 73 67 2e 72 73 70 5d 20 7b 0a 09 70 75 74 73 20 sg.rsp] {..puts
0e30: 5b 66 6f 72 6d 61 74 20 22 50 72 6f 63 65 73 73 [format "Process
0e40: 69 6e 67 20 25 73 22 20 24 66 69 6c 65 6e 61 6d ing %s" $filenam
0e50: 65 5d 0a 09 73 65 74 20 74 61 69 6c 20 5b 66 69 e]..set tail [fi
0e60: 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 6e 61 6d le tail $filenam
0e70: 65 5d 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 e]..if {[string
0e80: 6d 61 74 63 68 20 2d 6e 6f 63 61 73 65 20 22 52 match -nocase "R
0e90: 65 61 64 6d 65 2e 74 78 74 22 20 24 74 61 69 6c eadme.txt" $tail
0ea0: 5d 20 7c 7c 20 5b 73 74 72 69 6e 67 20 6d 61 74 ] || [string mat
0eb0: 63 68 20 2d 6e 6f 63 61 73 65 20 22 2a 4d 6f 6e ch -nocase "*Mon
0ec0: 74 65 2e 74 78 74 22 20 24 74 61 69 6c 5d 7d 20 te.txt" $tail]}
0ed0: 7b 0a 09 20 20 20 20 63 6f 6e 74 69 6e 75 65 0a {.. continue.
0ee0: 09 7d 0a 0a 09 73 65 74 20 74 61 69 6c 20 5b 66 .}...set tail [f
0ef0: 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b 66 69 ile rootname [fi
0f00: 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 6e 61 6d le tail $filenam
0f10: 65 5d 5d 0a 09 73 65 74 20 64 69 67 65 73 74 20 e]]..set digest
0f20: 5b 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 [string map [lis
0f30: 74 20 4c 6f 6e 67 4d 73 67 20 22 22 20 53 68 6f t LongMsg "" Sho
0f40: 72 74 4d 73 67 20 22 22 20 4d 6f 6e 74 65 20 22 rtMsg "" Monte "
0f50: 22 20 22 5f 22 20 22 2d 22 5d 20 24 74 61 69 6c " "_" "-"] $tail
0f60: 5d 0a 09 73 65 74 20 69 64 20 5b 66 6f 72 6d 61 ]..set id [forma
0f70: 74 20 22 25 73 5f 25 73 22 20 24 67 72 6f 75 70 t "%s_%s" $group
0f80: 20 24 64 69 67 65 73 74 5d 0a 09 73 65 74 20 74 $digest]..set t
0f90: 65 73 74 5f 6e 75 6d 20 5b 69 6e 63 72 20 74 65 est_num [incr te
0fa0: 73 74 5f 69 64 73 28 24 69 64 29 5d 0a 09 70 61 st_ids($id)]..pa
0fb0: 72 73 65 20 24 69 64 20 24 66 69 6c 65 6e 61 6d rse $id $filenam
0fc0: 65 20 24 74 65 73 74 5f 6e 75 6d 0a 20 20 20 20 e $test_num.
0fd0: 7d 0a 7d 0a 0a 6d 61 69 6e 20 5b 70 77 64 5d 0a }.}..main [pwd].
0fe0: 65 78 69 74 0a exit.