Artifact
cec271042b3bb42ba50d74c4d462c6e72104d72d3ee4d4fcf50bfcf4b6e599a3:
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 66 69 {group cipher fi
0060: 6c 65 5f 6e 75 6d 20 74 63 20 70 61 72 61 6d 73 le_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 66 69 6c n\t" $group $fil
0130: 65 5f 6e 75 6d 20 24 74 63 20 5b 73 74 72 69 6e e_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 7d 0a config($key)..}.
0600: 20 20 20 20 7d 0a 20 20 20 20 0a 20 20 20 20 61 }. . a
0610: 70 70 65 6e 64 20 6c 69 6e 65 20 5b 66 6f 72 6d ppend line [form
0620: 61 74 20 7b 2d 6d 61 74 63 68 20 65 78 61 63 74 at {-match exact
0630: 20 2d 72 65 73 75 6c 74 20 25 73 7d 20 24 72 65 -result %s} $re
0640: 73 75 6c 74 5d 0a 0a 20 20 20 20 23 20 52 65 74 sult].. # Ret
0650: 75 72 6e 20 63 6f 64 65 73 0a 20 20 20 20 23 61 urn codes. #a
0660: 70 70 65 6e 64 20 6c 69 6e 65 20 7b 20 2d 72 65 ppend line { -re
0670: 74 75 72 6e 43 6f 64 65 73 20 30 7d 0a 20 20 20 turnCodes 0}.
0680: 20 72 65 74 75 72 6e 20 24 6c 69 6e 65 0a 7d 0a return $line.}.
0690: 0a 23 0a 23 20 50 61 72 73 65 20 74 65 73 74 20 .#.# Parse test
06a0: 76 65 63 74 6f 72 20 66 69 6c 65 20 61 6e 64 20 vector file and
06b0: 67 65 74 20 74 65 73 74 20 63 61 73 65 73 20 63 get test cases c
06c0: 6f 6e 66 69 67 20 69 6e 66 6f 0a 23 0a 70 72 6f onfig info.#.pro
06d0: 63 20 70 61 72 73 65 20 7b 67 72 6f 75 70 20 66 c parse {group f
06e0: 69 6c 65 6e 61 6d 65 20 66 69 6c 65 5f 6e 75 6d ilename file_num
06f0: 20 63 69 70 68 65 72 7d 20 7b 0a 20 20 20 20 73 cipher} {. s
0700: 65 74 20 74 63 20 30 0a 20 20 20 20 73 65 74 20 et tc 0. set
0710: 70 61 72 61 6d 73 20 5b 6c 69 73 74 5d 0a 0a 20 params [list]..
0720: 20 20 20 23 20 4f 70 65 6e 20 69 6e 70 75 74 20 # Open input
0730: 66 69 6c 65 0a 20 20 20 20 69 66 20 7b 5b 63 61 file. if {[ca
0740: 74 63 68 20 7b 6f 70 65 6e 20 24 66 69 6c 65 6e tch {open $filen
0750: 61 6d 65 20 72 7d 20 63 68 5d 7d 20 7b 0a 09 72 ame r} ch]} {..r
0760: 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f eturn -code erro
0770: 72 20 24 63 68 0a 20 20 20 20 7d 0a 0a 20 20 20 r $ch. }..
0780: 20 23 20 4f 70 65 6e 20 6f 75 74 70 75 74 20 66 # Open output f
0790: 69 6c 65 0a 20 20 20 20 69 66 20 7b 5b 63 61 74 ile. if {[cat
07a0: 63 68 20 7b 6f 70 65 6e 20 5b 66 6f 72 6d 61 74 ch {open [format
07b0: 20 22 25 73 2e 74 65 73 74 22 20 5b 66 69 6c 65 "%s.test" [file
07c0: 20 72 6f 6f 74 6e 61 6d 65 20 24 66 69 6c 65 6e rootname $filen
07d0: 61 6d 65 5d 5d 20 77 7d 20 6f 75 74 5d 7d 20 7b ame]] w} out]} {
07e0: 0a 09 72 65 74 75 72 6e 20 2d 63 6f 64 65 20 65 ..return -code e
07f0: 72 72 6f 72 20 24 63 68 0a 20 20 20 20 7d 0a 0a rror $ch. }..
0800: 20 20 20 20 23 20 41 64 64 20 63 6f 6e 66 69 67 # Add config
0810: 20 69 6e 66 6f 0a 20 20 20 20 70 75 74 73 20 24 info. puts $
0820: 6f 75 74 20 5b 66 6f 72 6d 61 74 20 22 23 20 41 out [format "# A
0830: 75 74 6f 20 67 65 6e 65 72 61 74 65 64 20 66 72 uto generated fr
0840: 6f 6d 20 5c 22 25 73 5c 22 22 20 5b 66 69 6c 65 om \"%s\"" [file
0850: 20 74 61 69 6c 20 24 66 69 6c 65 6e 61 6d 65 5d tail $filename]
0860: 5d 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 ]. puts $out
0870: 5b 66 6f 72 6d 61 74 20 22 6c 61 70 70 65 6e 64 [format "lappend
0880: 20 61 75 74 6f 5f 70 61 74 68 20 25 73 22 20 7b auto_path %s" {
0890: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 [file dirname [f
08a0: 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c ile dirname [fil
08b0: 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 e dirname [file
08c0: 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 6a 6f dirname [file jo
08d0: 69 6e 20 5b 70 77 64 5d 20 5b 69 6e 66 6f 20 73 in [pwd] [info s
08e0: 63 72 69 70 74 5d 5d 5d 5d 5d 5d 7d 5d 0a 20 20 cript]]]]]]}].
08f0: 20 20 70 75 74 73 20 24 6f 75 74 20 22 70 61 63 puts $out "pac
0900: 6b 61 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 kage require tls
0910: 22 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 ". puts $out
0920: 22 70 61 63 6b 61 67 65 20 72 65 71 75 69 72 65 "package require
0930: 20 74 63 6c 74 65 73 74 5c 6e 22 0a 20 20 20 20 tcltest\n".
0940: 70 75 74 73 20 24 6f 75 74 20 22 63 61 74 63 68 puts $out "catch
0950: 20 7b 74 6c 73 3a 3a 70 72 6f 76 69 64 65 72 20 {tls::provider
0960: 6c 65 67 61 63 79 7d 22 0a 20 20 20 20 70 75 74 legacy}". put
0970: 73 20 24 6f 75 74 20 5b 66 6f 72 6d 61 74 20 22 s $out [format "
0980: 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e tcltest::testCon
0990: 73 74 72 61 69 6e 74 20 25 73 20 25 73 22 20 5b straint %s %s" [
09a0: 73 74 72 69 6e 67 20 6d 61 70 20 5b 6c 69 73 74 string map [list
09b0: 20 22 2d 22 20 22 5f 22 5d 20 24 63 69 70 68 65 "-" "_"] $ciphe
09c0: 72 5d 20 5c 0a 09 5b 66 6f 72 6d 61 74 20 7b 5b r] \..[format {[
09d0: 65 78 70 72 20 7b 5b 6c 73 65 61 72 63 68 20 2d expr {[lsearch -
09e0: 6e 6f 63 61 73 65 20 5b 74 6c 73 3a 3a 63 69 70 nocase [tls::cip
09f0: 68 65 72 73 5d 20 25 73 5d 20 3e 20 2d 31 7d 5d hers] %s] > -1}]
0a00: 7d 20 24 63 69 70 68 65 72 5d 5d 0a 20 20 20 20 } $cipher]].
0a10: 70 75 74 73 20 24 6f 75 74 20 22 22 0a 0a 20 20 puts $out ""..
0a20: 20 20 23 20 50 72 6f 63 65 73 73 20 66 69 6c 65 # Process file
0a30: 0a 20 20 20 20 77 68 69 6c 65 20 7b 21 5b 65 6f . while {![eo
0a40: 66 20 24 63 68 5d 7d 20 7b 0a 09 67 65 74 73 20 f $ch]} {..gets
0a50: 24 63 68 20 6c 69 6e 65 0a 09 73 65 74 20 6c 69 $ch line..set li
0a60: 6e 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 ne [string trim
0a70: 24 6c 69 6e 65 5d 0a 09 73 65 74 20 6c 65 6e 20 $line]..set len
0a80: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
0a90: 6c 69 6e 65 5d 0a 0a 09 69 66 20 7b 5b 73 74 72 line]...if {[str
0aa0: 69 6e 67 20 69 6e 64 65 78 20 24 6c 69 6e 65 20 ing index $line
0ab0: 30 5d 20 69 6e 20 5b 6c 69 73 74 20 22 23 22 20 0] in [list "#"
0ac0: 22 5c 5b 22 5d 7d 20 7b 0a 09 20 20 20 20 23 20 "\["]} {.. #
0ad0: 53 6b 69 70 20 63 6f 6d 6d 65 6e 74 73 20 61 6e Skip comments an
0ae0: 64 20 69 6e 66 6f 20 6c 69 6e 65 73 0a 09 20 20 d info lines..
0af0: 20 20 63 6f 6e 74 69 6e 75 65 0a 0a 09 7d 20 65 continue...} e
0b00: 6c 73 65 69 66 20 7b 24 6c 65 6e 20 3d 3d 20 30 lseif {$len == 0
0b10: 7d 20 7b 0a 09 20 20 20 20 69 66 20 7b 5b 6c 6c } {.. if {[ll
0b20: 65 6e 67 74 68 20 24 70 61 72 61 6d 73 5d 20 3e ength $params] >
0b30: 20 30 7d 20 7b 0a 09 09 23 20 44 6f 20 74 65 73 0} {...# Do tes
0b40: 74 20 69 66 20 65 6e 64 20 6f 66 20 70 61 72 61 t if end of para
0b50: 6d 73 0a 09 09 70 75 74 73 20 24 6f 75 74 20 5b ms...puts $out [
0b60: 64 6f 5f 74 65 73 74 20 24 67 72 6f 75 70 20 24 do_test $group $
0b70: 63 69 70 68 65 72 20 24 66 69 6c 65 5f 6e 75 6d cipher $file_num
0b80: 20 5b 69 6e 63 72 20 74 63 5d 20 24 70 61 72 61 [incr tc] $para
0b90: 6d 73 20 65 6e 63 72 79 70 74 5d 0a 09 09 70 75 ms encrypt]...pu
0ba0: 74 73 20 24 6f 75 74 20 22 22 0a 09 09 70 75 74 ts $out ""...put
0bb0: 73 20 24 6f 75 74 20 5b 64 6f 5f 74 65 73 74 20 s $out [do_test
0bc0: 24 67 72 6f 75 70 20 24 63 69 70 68 65 72 20 24 $group $cipher $
0bd0: 66 69 6c 65 5f 6e 75 6d 20 5b 69 6e 63 72 20 74 file_num [incr t
0be0: 63 5d 20 24 70 61 72 61 6d 73 20 64 65 63 72 79 c] $params decry
0bf0: 70 74 5d 0a 09 09 70 75 74 73 20 24 6f 75 74 20 pt]...puts $out
0c00: 22 22 0a 09 09 73 65 74 20 70 61 72 61 6d 73 20 ""...set params
0c10: 5b 6c 69 73 74 5d 0a 09 20 20 20 20 7d 20 65 6c [list].. } el
0c20: 73 65 20 7b 0a 09 09 23 20 45 6d 70 74 79 20 6c se {...# Empty l
0c30: 69 6e 65 0a 09 20 20 20 20 7d 0a 0a 09 7d 20 65 ine.. }...} e
0c40: 6c 73 65 20 7b 0a 09 20 20 20 20 23 20 41 70 70 lse {.. # App
0c50: 65 6e 64 20 61 72 67 73 20 74 6f 20 70 61 72 61 end args to para
0c60: 6d 73 0a 09 20 20 20 20 73 65 74 20 69 6e 64 65 ms.. set inde
0c70: 78 20 5b 73 74 72 69 6e 67 20 66 69 72 73 74 20 x [string first
0c80: 22 3d 22 20 24 6c 69 6e 65 5d 0a 09 20 20 20 20 "=" $line]..
0c90: 69 66 20 7b 24 69 6e 64 65 78 20 3e 20 2d 31 7d if {$index > -1}
0ca0: 20 7b 0a 09 09 73 65 74 20 6b 65 79 20 5b 73 74 {...set key [st
0cb0: 72 69 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e ring trim [strin
0cc0: 67 20 72 61 6e 67 65 20 24 6c 69 6e 65 20 30 20 g range $line 0
0cd0: 5b 65 78 70 72 20 7b 24 69 6e 64 65 78 20 2d 20 [expr {$index -
0ce0: 31 7d 5d 5d 5d 0a 09 09 73 65 74 20 76 61 6c 75 1}]]]...set valu
0cf0: 65 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b e [string trim [
0d00: 73 74 72 69 6e 67 20 72 61 6e 67 65 20 24 6c 69 string range $li
0d10: 6e 65 20 5b 65 78 70 72 20 7b 24 69 6e 64 65 78 ne [expr {$index
0d20: 20 2b 20 31 7d 5d 20 65 6e 64 5d 5d 0a 09 09 6c + 1}] end]]...l
0d30: 61 70 70 65 6e 64 20 70 61 72 61 6d 73 20 24 6b append params $k
0d40: 65 79 20 24 76 61 6c 75 65 0a 09 20 20 20 20 7d ey $value.. }
0d50: 0a 09 7d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 ..}. }.. #
0d60: 20 48 61 6e 64 6c 65 20 6c 61 73 74 20 74 65 73 Handle last tes
0d70: 74 20 63 61 73 65 0a 20 20 20 20 69 66 20 7b 5b t case. if {[
0d80: 6c 6c 65 6e 67 74 68 20 24 70 61 72 61 6d 73 5d llength $params]
0d90: 20 3e 20 30 7d 20 7b 0a 09 70 75 74 73 20 24 6f > 0} {..puts $o
0da0: 75 74 20 5b 64 6f 5f 74 65 73 74 20 24 67 72 6f ut [do_test $gro
0db0: 75 70 20 24 63 69 70 68 65 72 20 24 66 69 6c 65 up $cipher $file
0dc0: 5f 6e 75 6d 20 5b 69 6e 63 72 20 74 63 5d 20 24 _num [incr tc] $
0dd0: 70 61 72 61 6d 73 5d 0a 09 70 75 74 73 20 24 6f params]..puts $o
0de0: 75 74 20 22 22 0a 20 20 20 20 7d 0a 20 20 20 20 ut "". }.
0df0: 0a 20 20 20 20 23 20 43 6c 65 61 6e 75 70 0a 20 . # Cleanup.
0e00: 20 20 20 70 75 74 73 20 24 6f 75 74 20 22 23 20 puts $out "#
0e10: 43 6c 65 61 6e 75 70 5c 6e 3a 3a 74 63 6c 74 65 Cleanup\n::tclte
0e20: 73 74 3a 3a 63 6c 65 61 6e 75 70 54 65 73 74 73 st::cleanupTests
0e30: 5c 6e 72 65 74 75 72 6e 22 0a 20 20 20 20 63 6c \nreturn". cl
0e40: 6f 73 65 20 24 63 68 0a 20 20 20 20 63 6c 6f 73 ose $ch. clos
0e50: 65 20 24 6f 75 74 0a 7d 0a 0a 23 0a 23 20 52 65 e $out.}..#.# Re
0e60: 61 64 20 61 6c 6c 20 63 6f 6e 66 69 67 20 66 69 ad all config fi
0e70: 6c 65 73 20 69 6e 20 64 69 72 65 63 74 6f 72 79 les in directory
0e80: 0a 23 0a 70 72 6f 63 20 6d 61 69 6e 20 7b 70 61 .#.proc main {pa
0e90: 74 68 7d 20 7b 0a 20 20 20 20 73 65 74 20 66 69 th} {. set fi
0ea0: 6c 65 5f 6e 75 6d 20 30 0a 20 20 20 20 73 65 74 le_num 0. set
0eb0: 20 67 72 6f 75 70 20 5b 66 69 6c 65 20 72 6f 6f group [file roo
0ec0: 74 6e 61 6d 65 20 5b 66 69 6c 65 20 74 61 69 6c tname [file tail
0ed0: 20 24 70 61 74 68 5d 5d 0a 0a 20 20 20 20 66 6f $path]].. fo
0ee0: 72 65 61 63 68 20 66 69 6c 65 6e 61 6d 65 20 5b reach filename [
0ef0: 67 6c 6f 62 20 2d 64 69 72 65 63 74 6f 72 79 20 glob -directory
0f00: 24 70 61 74 68 20 2a 2e 74 78 74 5d 20 7b 0a 09 $path *.txt] {..
0f10: 70 75 74 73 20 5b 66 6f 72 6d 61 74 20 22 50 72 puts [format "Pr
0f20: 6f 63 65 73 73 69 6e 67 20 25 73 22 20 24 66 69 ocessing %s" $fi
0f30: 6c 65 6e 61 6d 65 5d 0a 09 73 65 74 20 74 61 69 lename]..set tai
0f40: 6c 20 5b 66 69 6c 65 20 74 61 69 6c 20 24 66 69 l [file tail $fi
0f50: 6c 65 6e 61 6d 65 5d 0a 09 69 66 20 7b 5b 73 74 lename]..if {[st
0f60: 72 69 6e 67 20 6d 61 74 63 68 20 2d 6e 6f 63 61 ring match -noca
0f70: 73 65 20 22 52 65 61 64 6d 65 2e 74 78 74 22 20 se "Readme.txt"
0f80: 24 74 61 69 6c 5d 7d 20 7b 0a 09 20 20 20 20 63 $tail]} {.. c
0f90: 6f 6e 74 69 6e 75 65 0a 09 7d 0a 0a 09 73 65 74 ontinue..}...set
0fa0: 20 63 69 70 68 65 72 20 5b 66 69 6c 65 20 72 6f cipher [file ro
0fb0: 6f 74 6e 61 6d 65 20 5b 66 69 6c 65 20 74 61 69 otname [file tai
0fc0: 6c 20 24 66 69 6c 65 6e 61 6d 65 5d 5d 0a 09 73 l $filename]]..s
0fd0: 65 74 20 69 64 20 5b 66 6f 72 6d 61 74 20 22 25 et id [format "%
0fe0: 73 5f 25 73 22 20 24 67 72 6f 75 70 20 24 63 69 s_%s" $group $ci
0ff0: 70 68 65 72 5d 0a 09 73 65 74 20 74 65 73 74 5f pher]..set test_
1000: 6e 75 6d 20 5b 69 6e 63 72 20 74 65 73 74 5f 69 num [incr test_i
1010: 64 73 28 24 69 64 29 5d 0a 09 70 61 72 73 65 20 ds($id)]..parse
1020: 24 69 64 20 24 66 69 6c 65 6e 61 6d 65 20 24 74 $id $filename $t
1030: 65 73 74 5f 6e 75 6d 20 24 63 69 70 68 65 72 0a est_num $cipher.
1040: 20 20 20 20 7d 0a 7d 0a 0a 6d 61 69 6e 20 5b 70 }.}..main [p
1050: 77 64 5d 0a 65 78 69 74 0a wd].exit.