Artifact
b4dbcd9fd193452f41156088be44366ff376fdf502f51b412532c9eadfe402e8:
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 47 65 74 20 73 74 72 69 .#..#.# Get stri
0020: 6e 67 20 6f 72 20 68 65 78 20 73 74 72 69 6e 67 ng or hex string
0030: 20 76 61 6c 75 65 0a 23 0a 70 72 6f 63 20 67 65 value.#.proc ge
0040: 74 5f 76 61 6c 75 65 20 7b 74 79 70 65 20 64 61 t_value {type da
0050: 74 61 20 7b 63 6f 75 6e 74 20 31 7d 7d 20 7b 0a ta {count 1}} {.
0060: 20 20 20 20 23 20 48 61 6e 64 6c 65 20 68 65 78 # Handle hex
0070: 20 73 74 72 69 6e 67 0a 20 20 20 20 69 66 20 7b string. if {
0080: 24 74 79 70 65 20 65 71 20 22 73 22 20 26 26 20 $type eq "s" &&
0090: 5b 73 74 72 69 6e 67 20 6c 65 6e 67 74 68 20 24 [string length $
00a0: 64 61 74 61 5d 20 3e 20 30 20 26 26 20 5b 73 74 data] > 0 && [st
00b0: 72 69 6e 67 20 69 6e 64 65 78 20 24 64 61 74 61 ring index $data
00c0: 20 30 5d 20 6e 65 20 22 5c 22 22 7d 20 7b 0a 09 0] ne "\""} {..
00d0: 73 65 74 20 64 61 74 61 20 5b 66 6f 72 6d 61 74 set data [format
00e0: 20 7b 5b 62 69 6e 61 72 79 20 64 65 63 6f 64 65 {[binary decode
00f0: 20 68 65 78 20 25 73 5d 7d 20 24 64 61 74 61 5d hex %s]} $data]
0100: 0a 20 20 20 20 7d 0a 20 20 20 20 69 66 20 7b 24 . }. if {$
0110: 74 79 70 65 20 65 71 20 22 73 22 20 26 26 20 24 type eq "s" && $
0120: 63 6f 75 6e 74 20 3e 20 31 7d 20 7b 0a 09 73 65 count > 1} {..se
0130: 74 20 64 61 74 61 20 5b 66 6f 72 6d 61 74 20 7b t data [format {
0140: 5b 73 74 72 69 6e 67 20 72 65 70 65 61 74 20 25 [string repeat %
0150: 73 20 25 64 5d 7d 20 24 64 61 74 61 20 24 63 6f s %d]} $data $co
0160: 75 6e 74 5d 0a 20 20 20 20 7d 0a 20 20 20 20 72 unt]. }. r
0170: 65 74 75 72 6e 20 24 64 61 74 61 0a 7d 0a 0a 23 eturn $data.}..#
0180: 0a 23 20 43 72 65 61 74 65 20 74 65 73 74 20 63 .# Create test c
0190: 61 73 65 20 61 6e 64 20 6f 75 74 70 75 74 20 74 ase and output t
01a0: 6f 20 74 65 73 74 20 66 69 6c 65 0a 23 0a 70 72 o test file.#.pr
01b0: 6f 63 20 64 6f 5f 74 65 73 74 20 7b 67 72 6f 75 oc do_test {grou
01c0: 70 20 63 69 70 68 65 72 20 74 65 73 74 5f 6e 75 p cipher test_nu
01d0: 6d 20 74 63 20 70 61 72 61 6d 73 20 66 6e 7d 20 m tc params fn}
01e0: 7b 0a 20 20 20 20 61 72 72 61 79 20 73 65 74 20 {. array set
01f0: 63 6f 6e 66 69 67 20 5b 6c 69 73 74 20 69 74 65 config [list ite
0200: 72 61 74 69 6f 6e 73 20 31 20 72 65 70 65 61 74 rations 1 repeat
0210: 20 31 5d 0a 20 20 20 20 61 72 72 61 79 20 73 65 1]. array se
0220: 74 20 63 6f 6e 66 69 67 20 24 70 61 72 61 6d 73 t config $params
0230: 0a 0a 20 20 20 20 23 20 54 65 73 74 20 69 6e 66 .. # Test inf
0240: 6f 0a 20 20 20 20 73 65 74 20 6c 69 6e 65 20 5b o. set line [
0250: 66 6f 72 6d 61 74 20 22 74 63 6c 74 65 73 74 3a format "tcltest:
0260: 3a 74 65 73 74 20 25 73 2d 25 64 2e 25 64 20 7b :test %s-%d.%d {
0270: 25 73 20 25 73 7d 20 5c 5c 5c 6e 5c 74 22 20 24 %s %s} \\\n\t" $
0280: 67 72 6f 75 70 20 24 74 65 73 74 5f 6e 75 6d 20 group $test_num
0290: 24 74 63 20 5b 73 74 72 69 6e 67 20 74 6f 74 69 $tc [string toti
02a0: 74 6c 65 20 24 66 6e 5d 20 24 63 69 70 68 65 72 tle $fn] $cipher
02b0: 5d 0a 0a 20 20 20 20 23 20 54 65 73 74 20 63 6f ].. # Test co
02c0: 6e 73 74 72 61 69 6e 74 73 0a 20 20 20 20 61 70 nstraints. ap
02d0: 70 65 6e 64 20 6c 69 6e 65 20 5b 66 6f 72 6d 61 pend line [forma
02e0: 74 20 22 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 t "-constraints
02f0: 25 73 20 5c 5c 5c 6e 5c 74 22 20 5b 73 74 72 69 %s \\\n\t" [stri
0300: 6e 67 20 6d 61 70 20 5b 6c 69 73 74 20 22 2d 22 ng map [list "-"
0310: 20 22 5f 22 5d 20 24 63 69 70 68 65 72 5d 5d 0a "_"] $cipher]].
0320: 0a 20 20 20 20 23 20 54 65 73 74 20 62 6f 64 79 . # Test body
0330: 0a 20 20 20 20 73 65 74 20 63 6d 64 20 5b 66 6f . set cmd [fo
0340: 72 6d 61 74 20 22 74 6c 73 3a 3a 25 73 20 2d 63 rmat "tls::%s -c
0350: 69 70 68 65 72 20 25 73 20 2d 70 61 64 64 69 6e ipher %s -paddin
0360: 67 20 30 20 5c 5c 5c 6e 5c 74 5c 74 22 20 24 66 g 0 \\\n\t\t" $f
0370: 6e 20 24 63 69 70 68 65 72 5d 0a 0a 20 20 20 20 n $cipher]..
0380: 69 66 20 7b 24 66 6e 20 65 71 20 22 65 6e 63 72 if {$fn eq "encr
0390: 79 70 74 22 7d 20 7b 0a 09 73 65 74 20 6c 69 73 ypt"} {..set lis
03a0: 74 31 20 5b 6c 69 73 74 20 70 6c 61 69 6e 74 65 t1 [list plainte
03b0: 78 74 20 6d 73 67 20 64 61 74 61 5d 0a 09 73 65 xt msg data]..se
03c0: 74 20 6c 69 73 74 32 20 5b 6c 69 73 74 20 63 69 t list2 [list ci
03d0: 70 68 65 72 74 65 78 74 20 6f 75 74 70 75 74 20 phertext output
03e0: 72 65 73 75 6c 74 5d 0a 20 20 20 20 7d 20 65 6c result]. } el
03f0: 73 65 20 7b 0a 09 73 65 74 20 6c 69 73 74 31 20 se {..set list1
0400: 5b 6c 69 73 74 20 63 69 70 68 65 72 74 65 78 74 [list ciphertext
0410: 20 6f 75 74 70 75 74 20 72 65 73 75 6c 74 5d 0a output result].
0420: 09 73 65 74 20 6c 69 73 74 32 20 5b 6c 69 73 74 .set list2 [list
0430: 20 70 6c 61 69 6e 74 65 78 74 20 6d 73 67 20 64 plaintext msg d
0440: 61 74 61 5d 0a 20 20 20 20 7d 0a 0a 20 20 20 20 ata]. }..
0450: 23 20 41 64 64 20 74 65 73 74 20 70 61 72 61 6d # Add test param
0460: 65 74 65 72 73 0a 20 20 20 20 66 6f 72 65 61 63 eters. foreac
0470: 68 20 7b 70 61 72 61 6d 20 6e 61 6d 65 73 20 74 h {param names t
0480: 79 70 65 7d 20 5b 6c 69 73 74 20 2d 6b 65 79 20 ype} [list -key
0490: 5b 6c 69 73 74 20 6b 65 79 5d 20 73 20 2d 69 76 [list key] s -iv
04a0: 20 5b 6c 69 73 74 20 69 76 20 6e 6f 6e 63 65 5d [list iv nonce]
04b0: 20 73 20 2d 64 61 74 61 20 24 6c 69 73 74 31 20 s -data $list1
04c0: 73 5d 20 7b 0a 09 66 6f 72 65 61 63 68 20 6e 61 s] {..foreach na
04d0: 6d 65 20 24 6e 61 6d 65 73 20 7b 0a 09 20 20 20 me $names {..
04e0: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74 if {[info exist
04f0: 73 20 63 6f 6e 66 69 67 28 24 6e 61 6d 65 29 5d s config($name)]
0500: 7d 20 7b 0a 09 09 73 65 74 20 64 61 74 61 20 5b } {...set data [
0510: 67 65 74 5f 76 61 6c 75 65 20 24 74 79 70 65 20 get_value $type
0520: 24 63 6f 6e 66 69 67 28 24 6e 61 6d 65 29 5d 0a $config($name)].
0530: 09 09 69 66 20 7b 24 64 61 74 61 20 6e 65 20 22 ..if {$data ne "
0540: 22 7d 20 7b 0a 09 09 20 20 20 20 69 66 20 7b 24 "} {... if {$
0550: 70 61 72 61 6d 20 6e 65 20 22 2d 64 61 74 61 22 param ne "-data"
0560: 20 7c 7c 20 24 63 6f 6e 66 69 67 28 69 74 65 72 || $config(iter
0570: 61 74 69 6f 6e 73 29 20 3d 3d 20 31 7d 20 7b 0a ations) == 1} {.
0580: 09 09 09 61 70 70 65 6e 64 20 63 6d 64 20 22 20 ...append cmd "
0590: 22 20 24 70 61 72 61 6d 20 22 20 22 20 24 64 61 " $param " " $da
05a0: 74 61 20 22 20 5c 5c 5c 6e 5c 74 5c 74 22 0a 09 ta " \\\n\t\t"..
05b0: 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 09 09 . } else {...
05c0: 09 73 65 74 20 63 6d 64 20 5b 73 74 72 69 6e 67 .set cmd [string
05d0: 20 63 61 74 20 22 73 65 74 20 64 61 74 61 20 22 cat "set data "
05e0: 20 24 64 61 74 61 20 22 3b 66 6f 72 20 5c 7b 73 $data ";for \{s
05f0: 65 74 20 69 20 30 5c 7d 20 5c 7b 5c 24 69 20 3c et i 0\} \{\$i <
0600: 20 22 20 24 63 6f 6e 66 69 67 28 69 74 65 72 61 " $config(itera
0610: 74 69 6f 6e 73 29 20 22 5c 7d 20 5c 7b 69 6e 63 tions) "\} \{inc
0620: 72 20 69 5c 7d 20 5c 7b 73 65 74 20 64 61 74 61 r i\} \{set data
0630: 20 5c 5b 22 20 24 63 6d 64 20 22 20 22 20 24 70 \[" $cmd " " $p
0640: 61 72 61 6d 20 22 20 5c 24 64 61 74 61 5c 5d 5c aram " \$data\]\
0650: 7d 3b 73 65 74 20 64 61 74 61 22 5d 0a 09 09 20 };set data"]...
0660: 20 20 20 7d 0a 09 09 7d 0a 09 09 62 72 65 61 6b }...}...break
0670: 0a 09 20 20 20 20 7d 0a 09 7d 0a 20 20 20 20 7d .. }..}. }
0680: 0a 20 20 20 20 61 70 70 65 6e 64 20 6c 69 6e 65 . append line
0690: 20 5b 66 6f 72 6d 61 74 20 7b 2d 62 6f 64 79 20 [format {-body
06a0: 7b 62 69 6e 61 72 79 20 65 6e 63 6f 64 65 20 68 {binary encode h
06b0: 65 78 20 5b 25 73 5d 7d 7d 20 5b 73 74 72 69 6e ex [%s]}} [strin
06c0: 67 20 74 72 69 6d 72 69 67 68 74 20 24 63 6d 64 g trimright $cmd
06d0: 20 22 20 5c 5c 5c 6e 5c 74 22 5d 5d 0a 20 20 20 " \\\n\t"]].
06e0: 20 61 70 70 65 6e 64 20 6c 69 6e 65 20 22 20 5c append line " \
06f0: 5c 5c 6e 5c 74 22 0a 0a 20 20 20 20 23 20 54 65 \\n\t".. # Te
0700: 73 74 20 63 6c 65 61 6e 75 70 0a 0a 20 20 20 20 st cleanup..
0710: 23 20 54 65 73 74 20 72 65 73 75 6c 74 0a 20 20 # Test result.
0720: 20 20 66 6f 72 65 61 63 68 20 6b 65 79 20 24 6c foreach key $l
0730: 69 73 74 32 20 7b 0a 09 69 66 20 7b 5b 69 6e 66 ist2 {..if {[inf
0740: 6f 20 65 78 69 73 74 73 20 63 6f 6e 66 69 67 28 o exists config(
0750: 24 6b 65 79 29 5d 7d 20 7b 0a 09 20 20 20 20 61 $key)]} {.. a
0760: 70 70 65 6e 64 20 6c 69 6e 65 20 5b 66 6f 72 6d ppend line [form
0770: 61 74 20 7b 2d 6d 61 74 63 68 20 65 78 61 63 74 at {-match exact
0780: 20 2d 72 65 73 75 6c 74 20 25 73 7d 20 5b 73 74 -result %s} [st
0790: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 63 6f ring tolower $co
07a0: 6e 66 69 67 28 24 6b 65 79 29 5d 5d 0a 09 20 20 nfig($key)]]..
07b0: 20 20 62 72 65 61 6b 0a 09 7d 0a 20 20 20 20 7d break..}. }
07c0: 0a 0a 20 20 20 20 23 20 52 65 74 75 72 6e 20 63 .. # Return c
07d0: 6f 64 65 73 0a 20 20 20 20 23 61 70 70 65 6e 64 odes. #append
07e0: 20 6c 69 6e 65 20 7b 20 2d 72 65 74 75 72 6e 43 line { -returnC
07f0: 6f 64 65 73 20 30 7d 0a 20 20 20 20 72 65 74 75 odes 0}. retu
0800: 72 6e 20 24 6c 69 6e 65 0a 7d 0a 0a 23 0a 23 20 rn $line.}..#.#
0810: 50 61 72 73 65 20 74 65 73 74 20 76 65 63 74 6f Parse test vecto
0820: 72 20 66 69 6c 65 20 61 6e 64 20 67 65 74 20 74 r file and get t
0830: 65 73 74 20 63 61 73 65 73 20 63 6f 6e 66 69 67 est cases config
0840: 20 69 6e 66 6f 0a 23 0a 70 72 6f 63 20 70 61 72 info.#.proc par
0850: 73 65 20 7b 67 72 6f 75 70 20 66 69 6c 65 6e 61 se {group filena
0860: 6d 65 20 74 65 73 74 5f 6e 75 6d 20 63 69 70 68 me test_num ciph
0870: 65 72 7d 20 7b 0a 20 20 20 20 73 65 74 20 74 63 er} {. set tc
0880: 20 30 0a 20 20 20 20 73 65 74 20 70 61 72 61 6d 0. set param
0890: 73 20 5b 6c 69 73 74 5d 0a 0a 20 20 20 20 23 20 s [list].. #
08a0: 4f 70 65 6e 20 69 6e 70 75 74 20 66 69 6c 65 0a Open input file.
08b0: 20 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b if {[catch {
08c0: 6f 70 65 6e 20 24 66 69 6c 65 6e 61 6d 65 20 72 open $filename r
08d0: 7d 20 63 68 5d 7d 20 7b 0a 09 72 65 74 75 72 6e } ch]} {..return
08e0: 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 24 63 68 -code error $ch
08f0: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 4f 70 . }.. # Op
0900: 65 6e 20 6f 75 74 70 75 74 20 66 69 6c 65 0a 20 en output file.
0910: 20 20 20 69 66 20 7b 5b 63 61 74 63 68 20 7b 6f if {[catch {o
0920: 70 65 6e 20 5b 66 6f 72 6d 61 74 20 22 25 73 2e pen [format "%s.
0930: 74 65 73 74 22 20 5b 66 69 6c 65 20 72 6f 6f 74 test" [file root
0940: 6e 61 6d 65 20 24 66 69 6c 65 6e 61 6d 65 5d 5d name $filename]]
0950: 20 77 7d 20 6f 75 74 5d 7d 20 7b 0a 09 72 65 74 w} out]} {..ret
0960: 75 72 6e 20 2d 63 6f 64 65 20 65 72 72 6f 72 20 urn -code error
0970: 24 63 68 0a 20 20 20 20 7d 0a 0a 20 20 20 20 23 $ch. }.. #
0980: 20 41 64 64 20 63 6f 6e 66 69 67 20 69 6e 66 6f Add config info
0990: 0a 20 20 20 20 70 75 74 73 20 24 6f 75 74 20 5b . puts $out [
09a0: 66 6f 72 6d 61 74 20 22 23 20 41 75 74 6f 20 67 format "# Auto g
09b0: 65 6e 65 72 61 74 65 64 20 66 72 6f 6d 20 5c 22 enerated from \"
09c0: 25 73 5c 22 22 20 5b 66 69 6c 65 20 74 61 69 6c %s\"" [file tail
09d0: 20 24 66 69 6c 65 6e 61 6d 65 5d 5d 0a 20 20 20 $filename]].
09e0: 20 70 75 74 73 20 24 6f 75 74 20 5b 66 6f 72 6d puts $out [form
09f0: 61 74 20 22 6c 61 70 70 65 6e 64 20 61 75 74 6f at "lappend auto
0a00: 5f 70 61 74 68 20 25 73 22 20 7b 5b 66 69 6c 65 _path %s" {[file
0a10: 20 64 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 dirname [file d
0a20: 69 72 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 irname [file dir
0a30: 6e 61 6d 65 20 5b 66 69 6c 65 20 64 69 72 6e 61 name [file dirna
0a40: 6d 65 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 5b 70 me [file join [p
0a50: 77 64 5d 20 5b 69 6e 66 6f 20 73 63 72 69 70 74 wd] [info script
0a60: 5d 5d 5d 5d 5d 5d 7d 5d 0a 20 20 20 20 70 75 74 ]]]]]]}]. put
0a70: 73 20 24 6f 75 74 20 22 70 61 63 6b 61 67 65 20 s $out "package
0a80: 72 65 71 75 69 72 65 20 74 6c 73 22 0a 20 20 20 require tls".
0a90: 20 70 75 74 73 20 24 6f 75 74 20 22 70 61 63 6b puts $out "pack
0aa0: 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 age require tclt
0ab0: 65 73 74 5c 6e 22 0a 20 20 20 20 70 75 74 73 20 est\n". puts
0ac0: 24 6f 75 74 20 22 63 61 74 63 68 20 7b 74 6c 73 $out "catch {tls
0ad0: 3a 3a 70 72 6f 76 69 64 65 72 20 6c 65 67 61 63 ::provider legac
0ae0: 79 7d 22 0a 20 20 20 20 70 75 74 73 20 24 6f 75 y}". puts $ou
0af0: 74 20 5b 66 6f 72 6d 61 74 20 22 74 63 6c 74 65 t [format "tclte
0b00: 73 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 st::testConstrai
0b10: 6e 74 20 25 73 20 25 73 22 20 5b 73 74 72 69 6e nt %s %s" [strin
0b20: 67 20 6d 61 70 20 5b 6c 69 73 74 20 22 2d 22 20 g map [list "-"
0b30: 22 5f 22 5d 20 24 63 69 70 68 65 72 5d 20 5c 0a "_"] $cipher] \.
0b40: 09 5b 66 6f 72 6d 61 74 20 7b 5b 65 78 70 72 20 .[format {[expr
0b50: 7b 5b 6c 73 65 61 72 63 68 20 2d 6e 6f 63 61 73 {[lsearch -nocas
0b60: 65 20 5b 74 6c 73 3a 3a 63 69 70 68 65 72 73 5d e [tls::ciphers]
0b70: 20 25 73 5d 20 3e 20 2d 31 7d 5d 7d 20 24 63 69 %s] > -1}]} $ci
0b80: 70 68 65 72 5d 5d 0a 20 20 20 20 70 75 74 73 20 pher]]. puts
0b90: 24 6f 75 74 20 22 22 0a 0a 20 20 20 20 23 20 50 $out "".. # P
0ba0: 72 6f 63 65 73 73 20 66 69 6c 65 0a 20 20 20 20 rocess file.
0bb0: 77 68 69 6c 65 20 7b 21 5b 65 6f 66 20 24 63 68 while {![eof $ch
0bc0: 5d 7d 20 7b 0a 09 67 65 74 73 20 24 63 68 20 6c ]} {..gets $ch l
0bd0: 69 6e 65 0a 09 73 65 74 20 6c 69 6e 65 20 5b 73 ine..set line [s
0be0: 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 6e 65 tring trim $line
0bf0: 5d 0a 09 73 65 74 20 6c 65 6e 20 5b 73 74 72 69 ]..set len [stri
0c00: 6e 67 20 6c 65 6e 67 74 68 20 24 6c 69 6e 65 5d ng length $line]
0c10: 0a 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 69 ...if {[string i
0c20: 6e 64 65 78 20 24 6c 69 6e 65 20 30 5d 20 69 6e ndex $line 0] in
0c30: 20 5b 6c 69 73 74 20 22 23 22 20 22 5c 5b 22 5d [list "#" "\["]
0c40: 7d 20 7b 0a 09 20 20 20 20 23 20 53 6b 69 70 20 } {.. # Skip
0c50: 63 6f 6d 6d 65 6e 74 73 20 61 6e 64 20 69 6e 66 comments and inf
0c60: 6f 20 6c 69 6e 65 73 0a 09 20 20 20 20 63 6f 6e o lines.. con
0c70: 74 69 6e 75 65 0a 0a 09 7d 20 65 6c 73 65 69 66 tinue...} elseif
0c80: 20 7b 24 6c 65 6e 20 3d 3d 20 30 7d 20 7b 0a 09 {$len == 0} {..
0c90: 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e 67 74 68 if {[llength
0ca0: 20 24 70 61 72 61 6d 73 5d 20 3e 20 30 7d 20 7b $params] > 0} {
0cb0: 0a 09 09 23 20 44 6f 20 74 65 73 74 20 69 66 20 ...# Do test if
0cc0: 65 6e 64 20 6f 66 20 70 61 72 61 6d 73 0a 09 09 end of params...
0cd0: 70 75 74 73 20 24 6f 75 74 20 5b 64 6f 5f 74 65 puts $out [do_te
0ce0: 73 74 20 24 67 72 6f 75 70 20 24 63 69 70 68 65 st $group $ciphe
0cf0: 72 20 24 74 65 73 74 5f 6e 75 6d 20 5b 69 6e 63 r $test_num [inc
0d00: 72 20 74 63 5d 20 24 70 61 72 61 6d 73 20 65 6e r tc] $params en
0d10: 63 72 79 70 74 5d 0a 09 09 70 75 74 73 20 24 6f crypt]...puts $o
0d20: 75 74 20 22 22 0a 09 09 70 75 74 73 20 24 6f 75 ut ""...puts $ou
0d30: 74 20 5b 64 6f 5f 74 65 73 74 20 24 67 72 6f 75 t [do_test $grou
0d40: 70 20 24 63 69 70 68 65 72 20 24 74 65 73 74 5f p $cipher $test_
0d50: 6e 75 6d 20 5b 69 6e 63 72 20 74 63 5d 20 24 70 num [incr tc] $p
0d60: 61 72 61 6d 73 20 64 65 63 72 79 70 74 5d 0a 09 arams decrypt]..
0d70: 09 70 75 74 73 20 24 6f 75 74 20 22 22 0a 09 09 .puts $out ""...
0d80: 73 65 74 20 70 61 72 61 6d 73 20 5b 6c 69 73 74 set params [list
0d90: 5d 0a 09 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a ].. } else {.
0da0: 09 09 23 20 45 6d 70 74 79 20 6c 69 6e 65 0a 09 ..# Empty line..
0db0: 20 20 20 20 7d 0a 0a 09 7d 20 65 6c 73 65 20 7b }...} else {
0dc0: 0a 09 20 20 20 20 23 20 41 70 70 65 6e 64 20 61 .. # Append a
0dd0: 72 67 73 20 74 6f 20 70 61 72 61 6d 73 0a 09 20 rgs to params..
0de0: 20 20 20 73 65 74 20 69 6e 64 65 78 20 5b 73 74 set index [st
0df0: 72 69 6e 67 20 66 69 72 73 74 20 22 3d 22 20 24 ring first "=" $
0e00: 6c 69 6e 65 5d 0a 09 20 20 20 20 69 66 20 7b 24 line].. if {$
0e10: 69 6e 64 65 78 20 3e 20 2d 31 7d 20 7b 0a 09 09 index > -1} {...
0e20: 73 65 74 20 6b 65 79 20 5b 73 74 72 69 6e 67 20 set key [string
0e30: 74 72 69 6d 20 5b 73 74 72 69 6e 67 20 72 61 6e trim [string ran
0e40: 67 65 20 24 6c 69 6e 65 20 30 20 5b 65 78 70 72 ge $line 0 [expr
0e50: 20 7b 24 69 6e 64 65 78 20 2d 20 31 7d 5d 5d 5d {$index - 1}]]]
0e60: 0a 09 09 73 65 74 20 76 61 6c 75 65 20 5b 73 74 ...set value [st
0e70: 72 69 6e 67 20 74 72 69 6d 20 5b 73 74 72 69 6e ring trim [strin
0e80: 67 20 72 61 6e 67 65 20 24 6c 69 6e 65 20 5b 65 g range $line [e
0e90: 78 70 72 20 7b 24 69 6e 64 65 78 20 2b 20 31 7d xpr {$index + 1}
0ea0: 5d 20 65 6e 64 5d 5d 0a 09 09 6c 61 70 70 65 6e ] end]]...lappen
0eb0: 64 20 70 61 72 61 6d 73 20 5b 73 74 72 69 6e 67 d params [string
0ec0: 20 74 6f 6c 6f 77 65 72 20 24 6b 65 79 5d 20 24 tolower $key] $
0ed0: 76 61 6c 75 65 0a 09 20 20 20 20 7d 0a 09 7d 0a value.. }..}.
0ee0: 20 20 20 20 7d 0a 0a 20 20 20 20 23 20 48 61 6e }.. # Han
0ef0: 64 6c 65 20 6c 61 73 74 20 74 65 73 74 20 63 61 dle last test ca
0f00: 73 65 0a 20 20 20 20 69 66 20 7b 5b 6c 6c 65 6e se. if {[llen
0f10: 67 74 68 20 24 70 61 72 61 6d 73 5d 20 3e 20 30 gth $params] > 0
0f20: 7d 20 7b 0a 09 70 75 74 73 20 24 6f 75 74 20 5b } {..puts $out [
0f30: 64 6f 5f 74 65 73 74 20 24 67 72 6f 75 70 20 24 do_test $group $
0f40: 63 69 70 68 65 72 20 24 74 65 73 74 5f 6e 75 6d cipher $test_num
0f50: 20 5b 69 6e 63 72 20 74 63 5d 20 24 70 61 72 61 [incr tc] $para
0f60: 6d 73 20 65 6e 63 72 79 70 74 5d 0a 09 70 75 74 ms encrypt]..put
0f70: 73 20 24 6f 75 74 20 22 22 0a 09 70 75 74 73 20 s $out ""..puts
0f80: 24 6f 75 74 20 5b 64 6f 5f 74 65 73 74 20 24 67 $out [do_test $g
0f90: 72 6f 75 70 20 24 63 69 70 68 65 72 20 24 74 65 roup $cipher $te
0fa0: 73 74 5f 6e 75 6d 20 5b 69 6e 63 72 20 74 63 5d st_num [incr tc]
0fb0: 20 24 70 61 72 61 6d 73 20 64 65 63 72 79 70 74 $params decrypt
0fc0: 5d 0a 09 70 75 74 73 20 24 6f 75 74 20 22 22 0a ]..puts $out "".
0fd0: 20 20 20 20 7d 0a 20 20 20 20 0a 20 20 20 20 23 }. . #
0fe0: 20 43 6c 65 61 6e 75 70 0a 20 20 20 20 70 75 74 Cleanup. put
0ff0: 73 20 24 6f 75 74 20 22 23 20 43 6c 65 61 6e 75 s $out "# Cleanu
1000: 70 5c 6e 3a 3a 74 63 6c 74 65 73 74 3a 3a 63 6c p\n::tcltest::cl
1010: 65 61 6e 75 70 54 65 73 74 73 5c 6e 72 65 74 75 eanupTests\nretu
1020: 72 6e 22 0a 20 20 20 20 63 6c 6f 73 65 20 24 63 rn". close $c
1030: 68 0a 20 20 20 20 63 6c 6f 73 65 20 24 6f 75 74 h. close $out
1040: 0a 7d 0a 0a 23 0a 23 20 52 65 61 64 20 61 6c 6c .}..#.# Read all
1050: 20 63 6f 6e 66 69 67 20 66 69 6c 65 73 20 69 6e config files in
1060: 20 64 69 72 65 63 74 6f 72 79 0a 23 0a 70 72 6f directory.#.pro
1070: 63 20 6d 61 69 6e 20 7b 70 61 74 68 7d 20 7b 0a c main {path} {.
1080: 20 20 20 20 73 65 74 20 74 65 73 74 5f 6e 75 6d set test_num
1090: 20 30 0a 20 20 20 20 73 65 74 20 67 72 6f 75 70 0. set group
10a0: 20 5b 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 [file rootname
10b0: 5b 66 69 6c 65 20 74 61 69 6c 20 24 70 61 74 68 [file tail $path
10c0: 5d 5d 0a 0a 20 20 20 20 66 6f 72 65 61 63 68 20 ]].. foreach
10d0: 66 69 6c 65 6e 61 6d 65 20 5b 67 6c 6f 62 20 2d filename [glob -
10e0: 64 69 72 65 63 74 6f 72 79 20 24 70 61 74 68 20 directory $path
10f0: 2a 2e 74 78 74 5d 20 7b 0a 09 70 75 74 73 20 5b *.txt] {..puts [
1100: 66 6f 72 6d 61 74 20 22 50 72 6f 63 65 73 73 69 format "Processi
1110: 6e 67 20 25 73 22 20 24 66 69 6c 65 6e 61 6d 65 ng %s" $filename
1120: 5d 0a 09 73 65 74 20 74 61 69 6c 20 5b 66 69 6c ]..set tail [fil
1130: 65 20 74 61 69 6c 20 24 66 69 6c 65 6e 61 6d 65 e tail $filename
1140: 5d 0a 09 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d ]..if {[string m
1150: 61 74 63 68 20 2d 6e 6f 63 61 73 65 20 22 52 65 atch -nocase "Re
1160: 61 64 6d 65 2e 74 78 74 22 20 24 74 61 69 6c 5d adme.txt" $tail]
1170: 7d 20 7b 0a 09 20 20 20 20 63 6f 6e 74 69 6e 75 } {.. continu
1180: 65 0a 09 7d 0a 0a 09 73 65 74 20 63 69 70 68 65 e..}...set ciphe
1190: 72 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b r [string trim [
11a0: 66 69 6c 65 20 72 6f 6f 74 6e 61 6d 65 20 5b 66 file rootname [f
11b0: 69 6c 65 20 74 61 69 6c 20 24 66 69 6c 65 6e 61 ile tail $filena
11c0: 6d 65 5d 5d 5d 0a 09 73 65 74 20 69 64 20 5b 66 me]]]..set id [f
11d0: 6f 72 6d 61 74 20 22 25 73 5f 25 73 22 20 24 67 ormat "%s_%s" $g
11e0: 72 6f 75 70 20 24 63 69 70 68 65 72 5d 0a 09 73 roup $cipher]..s
11f0: 65 74 20 74 65 73 74 5f 6e 75 6d 20 5b 69 6e 63 et test_num [inc
1200: 72 20 74 65 73 74 5f 69 64 73 28 24 69 64 29 5d r test_ids($id)]
1210: 0a 09 70 61 72 73 65 20 24 69 64 20 24 66 69 6c ..parse $id $fil
1220: 65 6e 61 6d 65 20 24 74 65 73 74 5f 6e 75 6d 20 ename $test_num
1230: 24 63 69 70 68 65 72 0a 20 20 20 20 7d 0a 7d 0a $cipher. }.}.
1240: 0a 6d 61 69 6e 20 5b 70 77 64 5d 0a 65 78 69 74 .main [pwd].exit
1250: 0a .