Artifact
7abebb70198e7844a29377e366e1a6fe2c5d663fb16375be832ddf7c604f5c42:
0000: 23 20 41 75 74 6f 20 67 65 6e 65 72 61 74 65 64 # Auto generated
0010: 20 74 65 73 74 20 63 61 73 65 73 20 66 6f 72 20 test cases for
0020: 63 69 70 68 65 72 73 2e 63 73 76 0a 0a 23 20 4c ciphers.csv..# L
0030: 6f 61 64 20 54 63 6c 20 54 65 73 74 20 70 61 63 oad Tcl Test pac
0040: 6b 61 67 65 0a 69 66 20 7b 5b 6c 73 65 61 72 63 kage.if {[lsearc
0050: 68 20 5b 6e 61 6d 65 73 70 61 63 65 20 63 68 69 h [namespace chi
0060: 6c 64 72 65 6e 5d 20 3a 3a 74 63 6c 74 65 73 74 ldren] ::tcltest
0070: 5d 20 3d 3d 20 2d 31 7d 20 7b 0a 09 70 61 63 6b ] == -1} {..pack
0080: 61 67 65 20 72 65 71 75 69 72 65 20 74 63 6c 74 age require tclt
0090: 65 73 74 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 est..namespace i
00a0: 6d 70 6f 72 74 20 3a 3a 74 63 6c 74 65 73 74 3a mport ::tcltest:
00b0: 3a 2a 0a 7d 0a 0a 73 65 74 20 61 75 74 6f 5f 70 :*.}..set auto_p
00c0: 61 74 68 20 5b 63 6f 6e 63 61 74 20 5b 6c 69 73 ath [concat [lis
00d0: 74 20 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 t [file dirname
00e0: 5b 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 [file dirname [i
00f0: 6e 66 6f 20 73 63 72 69 70 74 5d 5d 5d 5d 20 24 nfo script]]]] $
0100: 61 75 74 6f 5f 70 61 74 68 5d 0a 0a 70 61 63 6b auto_path]..pack
0110: 61 67 65 20 72 65 71 75 69 72 65 20 74 6c 73 0a age require tls.
0120: 0a 23 20 4d 61 6b 65 20 73 75 72 65 20 70 61 74 .# Make sure pat
0130: 68 20 69 6e 63 6c 75 64 65 73 20 6c 6f 63 61 74 h includes locat
0140: 69 6f 6e 20 6f 66 20 4f 70 65 6e 53 53 4c 20 65 ion of OpenSSL e
0150: 78 65 63 75 74 61 62 6c 65 0a 69 66 20 7b 5b 69 xecutable.if {[i
0160: 6e 66 6f 20 65 78 69 73 74 73 20 3a 3a 65 6e 76 nfo exists ::env
0170: 28 4f 50 45 4e 53 53 4c 29 5d 7d 20 7b 73 65 74 (OPENSSL)]} {set
0180: 20 3a 3a 65 6e 76 28 70 61 74 68 29 20 5b 73 74 ::env(path) [st
0190: 72 69 6e 67 20 63 61 74 20 5b 66 69 6c 65 20 6a ring cat [file j
01a0: 6f 69 6e 20 24 3a 3a 65 6e 76 28 4f 50 45 4e 53 oin $::env(OPENS
01b0: 53 4c 29 20 62 69 6e 5d 20 22 3b 22 20 24 3a 3a SL) bin] ";" $::
01c0: 65 6e 76 28 70 61 74 68 29 5d 7d 0a 0a 23 20 43 env(path)]}..# C
01d0: 6f 6e 73 74 72 61 69 6e 74 73 0a 73 65 74 20 70 onstraints.set p
01e0: 72 6f 74 6f 63 6f 6c 73 20 5b 6c 69 73 74 20 73 rotocols [list s
01f0: 73 6c 32 20 73 73 6c 33 20 74 6c 73 31 20 74 6c sl2 ssl3 tls1 tl
0200: 73 31 2e 31 20 74 6c 73 31 2e 32 20 74 6c 73 31 s1.1 tls1.2 tls1
0210: 2e 33 5d 0a 66 6f 72 65 61 63 68 20 70 72 6f 74 .3].foreach prot
0220: 6f 63 6f 6c 20 24 70 72 6f 74 6f 63 6f 6c 73 20 ocol $protocols
0230: 7b 3a 3a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 {::tcltest::test
0240: 43 6f 6e 73 74 72 61 69 6e 74 20 24 70 72 6f 74 Constraint $prot
0250: 6f 63 6f 6c 20 30 7d 0a 66 6f 72 65 61 63 68 20 ocol 0}.foreach
0260: 70 72 6f 74 6f 63 6f 6c 20 5b 3a 3a 74 6c 73 3a protocol [::tls:
0270: 3a 70 72 6f 74 6f 63 6f 6c 73 5d 20 7b 3a 3a 74 :protocols] {::t
0280: 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f 6e 73 cltest::testCons
0290: 74 72 61 69 6e 74 20 24 70 72 6f 74 6f 63 6f 6c traint $protocol
02a0: 20 31 7d 0a 3a 3a 74 63 6c 74 65 73 74 3a 3a 74 1}.::tcltest::t
02b0: 65 73 74 43 6f 6e 73 74 72 61 69 6e 74 20 4f 70 estConstraint Op
02c0: 65 6e 53 53 4c 20 5b 73 74 72 69 6e 67 20 6d 61 enSSL [string ma
02d0: 74 63 68 20 22 4f 70 65 6e 53 53 4c 2a 22 20 5b tch "OpenSSL*" [
02e0: 3a 3a 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 5d 5d ::tls::version]]
02f0: 0a 23 20 48 65 6c 70 65 72 20 66 75 6e 63 74 69 .# Helper functi
0300: 6f 6e 73 0a 70 72 6f 63 20 6c 63 6f 6d 70 61 72 ons.proc lcompar
0310: 65 20 7b 6c 69 73 74 31 20 6c 69 73 74 32 7d 20 e {list1 list2}
0320: 7b 73 65 74 20 6d 20 22 22 3b 73 65 74 20 75 20 {set m "";set u
0330: 22 22 3b 66 6f 72 65 61 63 68 20 69 20 24 6c 69 "";foreach i $li
0340: 73 74 31 20 7b 69 66 20 7b 24 69 20 6e 69 20 24 st1 {if {$i ni $
0350: 6c 69 73 74 32 7d 20 7b 6c 61 70 70 65 6e 64 20 list2} {lappend
0360: 6d 20 24 69 7d 7d 3b 66 6f 72 65 61 63 68 20 69 m $i}};foreach i
0370: 20 24 6c 69 73 74 32 20 7b 69 66 20 7b 24 69 20 $list2 {if {$i
0380: 6e 69 20 24 6c 69 73 74 31 7d 20 7b 6c 61 70 70 ni $list1} {lapp
0390: 65 6e 64 20 75 20 24 69 7d 7d 3b 72 65 74 75 72 end u $i}};retur
03a0: 6e 20 5b 6c 69 73 74 20 22 6d 69 73 73 69 6e 67 n [list "missing
03b0: 22 20 24 6d 20 22 75 6e 65 78 70 65 63 74 65 64 " $m "unexpected
03c0: 22 20 24 75 5d 7d 0a 70 72 6f 63 20 65 78 65 63 " $u]}.proc exec
03d0: 5f 67 65 74 20 7b 64 65 6c 69 6d 20 61 72 67 73 _get {delim args
03e0: 7d 20 7b 72 65 74 75 72 6e 20 5b 73 70 6c 69 74 } {return [split
03f0: 20 5b 65 78 65 63 20 6f 70 65 6e 73 73 6c 20 7b [exec openssl {
0400: 2a 7d 24 61 72 67 73 5d 20 24 64 65 6c 69 6d 5d *}$args] $delim]
0410: 7d 0a 70 72 6f 63 20 65 78 65 63 5f 67 65 74 5f }.proc exec_get_
0420: 63 69 70 68 65 72 73 20 7b 7d 20 7b 73 65 74 20 ciphers {} {set
0430: 6c 69 73 74 20 5b 6c 69 73 74 5d 3b 73 65 74 20 list [list];set
0440: 64 61 74 61 20 5b 65 78 65 63 20 6f 70 65 6e 73 data [exec opens
0450: 73 6c 20 6c 69 73 74 20 2d 63 69 70 68 65 72 2d sl list -cipher-
0460: 61 6c 67 6f 72 69 74 68 6d 73 5d 3b 66 6f 72 65 algorithms];fore
0470: 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 ach line [split
0480: 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b 66 6f 72 $data "\n"] {for
0490: 65 61 63 68 20 7b 63 69 70 68 65 72 20 6e 75 6c each {cipher nul
04a0: 6c 20 61 6c 69 61 73 7d 20 5b 73 70 6c 69 74 20 l alias} [split
04b0: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 [string trim $li
04c0: 6e 65 5d 5d 20 7b 6c 61 70 70 65 6e 64 20 6c 69 ne]] {lappend li
04d0: 73 74 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 st [string tolow
04e0: 65 72 20 24 63 69 70 68 65 72 5d 7d 7d 3b 72 65 er $cipher]}};re
04f0: 74 75 72 6e 20 5b 6c 73 6f 72 74 20 2d 75 6e 69 turn [lsort -uni
0500: 71 75 65 20 24 6c 69 73 74 5d 7d 0a 70 72 6f 63 que $list]}.proc
0510: 20 65 78 65 63 5f 67 65 74 5f 64 69 67 65 73 74 exec_get_digest
0520: 73 20 7b 7d 20 7b 73 65 74 20 6c 69 73 74 20 5b s {} {set list [
0530: 6c 69 73 74 5d 3b 73 65 74 20 64 61 74 61 20 5b list];set data [
0540: 65 78 65 63 20 6f 70 65 6e 73 73 6c 20 64 67 73 exec openssl dgs
0550: 74 20 2d 6c 69 73 74 5d 3b 66 6f 72 65 61 63 68 t -list];foreach
0560: 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 24 64 61 line [split $da
0570: 74 61 20 22 5c 6e 22 5d 20 7b 66 6f 72 65 61 63 ta "\n"] {foreac
0580: 68 20 64 69 67 65 73 74 20 24 6c 69 6e 65 20 7b h digest $line {
0590: 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d 61 74 63 if {[string matc
05a0: 68 20 22 2d 2a 22 20 24 64 69 67 65 73 74 5d 7d h "-*" $digest]}
05b0: 20 7b 6c 61 70 70 65 6e 64 20 6c 69 73 74 20 5b {lappend list [
05c0: 73 74 72 69 6e 67 20 74 72 69 6d 6c 65 66 74 20 string trimleft
05d0: 24 64 69 67 65 73 74 20 22 2d 22 5d 7d 7d 7d 3b $digest "-"]}}};
05e0: 72 65 74 75 72 6e 20 5b 6c 73 6f 72 74 20 24 6c return [lsort $l
05f0: 69 73 74 5d 7d 0a 63 6f 6d 6d 61 6e 64 2c 70 72 ist]}.command,pr
0600: 6f 63 20 65 78 65 63 5f 67 65 74 5f 6d 61 63 73 oc exec_get_macs
0610: 20 7b 7d 20 7b 72 65 74 75 72 6e 20 5b 6c 69 73 {} {return [lis
0620: 74 20 63 6d 61 63 20 68 6d 61 63 5d 7d 2c 2c 2c t cmac hmac]},,,
0630: 2c 2c 2c 2c 2c 2c 0a 70 72 6f 63 20 72 65 61 64 ,,,,,,.proc read
0640: 5f 63 68 61 6e 20 7b 6d 64 20 66 69 6c 65 6e 61 _chan {md filena
0650: 6d 65 20 61 72 67 73 7d 20 7b 73 65 74 20 63 68 me args} {set ch
0660: 20 5b 6f 70 65 6e 20 24 66 69 6c 65 6e 61 6d 65 [open $filename
0670: 20 72 62 5d 3b 66 63 6f 6e 66 69 67 75 72 65 20 rb];fconfigure
0680: 24 63 68 20 2d 74 72 61 6e 73 6c 61 74 69 6f 6e $ch -translation
0690: 20 62 69 6e 61 72 79 3b 73 65 74 20 62 73 69 7a binary;set bsiz
06a0: 65 20 5b 66 63 6f 6e 66 69 67 75 72 65 20 24 63 e [fconfigure $c
06b0: 68 20 2d 62 75 66 66 65 72 73 69 7a 65 5d 3b 73 h -buffersize];s
06c0: 65 74 20 6e 65 77 20 5b 74 6c 73 3a 3a 64 69 67 et new [tls::dig
06d0: 65 73 74 20 24 6d 64 20 7b 2a 7d 24 61 72 67 73 est $md {*}$args
06e0: 20 2d 63 68 61 6e 20 24 63 68 5d 3b 77 68 69 6c -chan $ch];whil
06f0: 65 20 7b 21 5b 65 6f 66 20 24 6e 65 77 5d 7d 20 e {![eof $new]}
0700: 7b 73 65 74 20 72 65 73 75 6c 74 20 5b 72 65 61 {set result [rea
0710: 64 20 24 6e 65 77 20 24 62 73 69 7a 65 5d 7d 3b d $new $bsize]};
0720: 63 6c 6f 73 65 20 24 6e 65 77 3b 72 65 74 75 72 close $new;retur
0730: 6e 20 24 72 65 73 75 6c 74 7d 0a 23 20 54 65 73 n $result}.# Tes
0740: 74 20 6c 69 73 74 20 63 69 70 68 65 72 73 0a 0a t list ciphers..
0750: 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f 4c 69 .test Ciphers_Li
0760: 73 74 2d 31 2e 31 20 7b 41 6c 6c 7d 20 2d 62 6f st-1.1 {All} -bo
0770: 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b dy {..lcompare [
0780: 6c 73 6f 72 74 20 5b 65 78 65 63 5f 67 65 74 5f lsort [exec_get_
0790: 63 69 70 68 65 72 73 5d 5d 20 5b 6c 69 73 74 5f ciphers]] [list_
07a0: 74 6f 6c 6f 77 65 72 20 5b 6c 73 6f 72 74 20 5b tolower [lsort [
07b0: 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 5d 5d ::tls::ciphers]]
07c0: 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 ]. } -result
07d0: 7b 6d 69 73 73 69 6e 67 20 7b 72 63 35 20 72 63 {missing {rc5 rc
07e0: 35 2d 63 62 63 20 72 63 35 2d 63 66 62 20 72 63 5-cbc rc5-cfb rc
07f0: 35 2d 65 63 62 20 72 63 35 2d 6f 66 62 7d 20 75 5-ecb rc5-ofb} u
0800: 6e 65 78 70 65 63 74 65 64 20 7b 61 65 73 2d 31 nexpected {aes-1
0810: 32 38 2d 63 63 6d 20 61 65 73 2d 31 32 38 2d 67 28-ccm aes-128-g
0820: 63 6d 20 61 65 73 2d 31 39 32 2d 63 63 6d 20 61 cm aes-192-ccm a
0830: 65 73 2d 31 39 32 2d 67 63 6d 20 61 65 73 2d 32 es-192-gcm aes-2
0840: 35 36 2d 63 63 6d 20 61 65 73 2d 32 35 36 2d 67 56-ccm aes-256-g
0850: 63 6d 7d 7d 0a 23 20 54 65 73 74 20 6c 69 73 74 cm}}.# Test list
0860: 20 63 69 70 68 65 72 73 20 66 6f 72 20 70 72 6f ciphers for pro
0870: 74 6f 63 6f 6c 73 0a 0a 0a 74 65 73 74 20 43 69 tocols...test Ci
0880: 70 68 65 72 73 5f 42 79 5f 50 72 6f 74 6f 63 6f phers_By_Protoco
0890: 6c 2d 32 2e 31 20 7b 53 53 4c 32 7d 20 2d 63 6f l-2.1 {SSL2} -co
08a0: 6e 73 74 72 61 69 6e 74 73 20 7b 73 73 6c 32 7d nstraints {ssl2}
08b0: 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 -body {..lcompa
08c0: 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 3a 22 re [exec_get ":"
08d0: 20 63 69 70 68 65 72 73 20 2d 73 73 6c 32 5d 20 ciphers -ssl2]
08e0: 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 [::tls::ciphers
08f0: 73 73 6c 32 5d 0a 20 20 20 20 7d 20 2d 72 65 73 ssl2]. } -res
0900: 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 ult {missing {}
0910: 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a unexpected {}}..
0920: 74 65 73 74 20 43 69 70 68 65 72 73 5f 42 79 5f test Ciphers_By_
0930: 50 72 6f 74 6f 63 6f 6c 2d 32 2e 32 20 7b 53 53 Protocol-2.2 {SS
0940: 4c 33 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 L3} -constraints
0950: 20 7b 73 73 6c 33 7d 20 2d 62 6f 64 79 20 7b 0a {ssl3} -body {.
0960: 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f .lcompare [exec_
0970: 67 65 74 20 22 3a 22 20 63 69 70 68 65 72 73 20 get ":" ciphers
0980: 2d 73 73 6c 33 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 -ssl3] [::tls::c
0990: 69 70 68 65 72 73 20 73 73 6c 33 5d 0a 20 20 20 iphers ssl3].
09a0: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 73 } -result {miss
09b0: 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 ing {} unexpecte
09c0: 64 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 70 68 d {}}..test Ciph
09d0: 65 72 73 5f 42 79 5f 50 72 6f 74 6f 63 6f 6c 2d ers_By_Protocol-
09e0: 32 2e 33 20 7b 54 4c 53 31 7d 20 2d 63 6f 6e 73 2.3 {TLS1} -cons
09f0: 74 72 61 69 6e 74 73 20 7b 74 6c 73 31 7d 20 2d traints {tls1} -
0a00: 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 body {..lcompare
0a10: 20 5b 65 78 65 63 5f 67 65 74 20 22 3a 22 20 63 [exec_get ":" c
0a20: 69 70 68 65 72 73 20 2d 74 6c 73 31 5d 20 5b 3a iphers -tls1] [:
0a30: 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 6c :tls::ciphers tl
0a40: 73 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c s1]. } -resul
0a50: 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e t {missing {} un
0a60: 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 65 expected {}}..te
0a70: 73 74 20 43 69 70 68 65 72 73 5f 42 79 5f 50 72 st Ciphers_By_Pr
0a80: 6f 74 6f 63 6f 6c 2d 32 2e 34 20 7b 54 4c 53 31 otocol-2.4 {TLS1
0a90: 2e 31 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 .1} -constraints
0aa0: 20 7b 74 6c 73 31 2e 31 7d 20 2d 62 6f 64 79 20 {tls1.1} -body
0ab0: 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 {..lcompare [exe
0ac0: 63 5f 67 65 74 20 22 3a 22 20 63 69 70 68 65 72 c_get ":" cipher
0ad0: 73 20 2d 74 6c 73 31 5f 31 5d 20 5b 3a 3a 74 6c s -tls1_1] [::tl
0ae0: 73 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e s::ciphers tls1.
0af0: 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 1]. } -result
0b00: 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 {missing {} une
0b10: 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 xpected {}}..tes
0b20: 74 20 43 69 70 68 65 72 73 5f 42 79 5f 50 72 6f t Ciphers_By_Pro
0b30: 74 6f 63 6f 6c 2d 32 2e 35 20 7b 54 4c 53 31 2e tocol-2.5 {TLS1.
0b40: 32 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 2} -constraints
0b50: 7b 74 6c 73 31 2e 32 7d 20 2d 62 6f 64 79 20 7b {tls1.2} -body {
0b60: 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 ..lcompare [exec
0b70: 5f 67 65 74 20 22 3a 22 20 63 69 70 68 65 72 73 _get ":" ciphers
0b80: 20 2d 74 6c 73 31 5f 32 5d 20 5b 3a 3a 74 6c 73 -tls1_2] [::tls
0b90: 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e 32 ::ciphers tls1.2
0ba0: 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 ]. } -result
0bb0: 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 {missing {} unex
0bc0: 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 74 pected {}}..test
0bd0: 20 43 69 70 68 65 72 73 5f 42 79 5f 50 72 6f 74 Ciphers_By_Prot
0be0: 6f 63 6f 6c 2d 32 2e 36 20 7b 54 4c 53 31 2e 33 ocol-2.6 {TLS1.3
0bf0: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b } -constraints {
0c00: 74 6c 73 31 2e 33 7d 20 2d 62 6f 64 79 20 7b 0a tls1.3} -body {.
0c10: 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f .lcompare [exec_
0c20: 67 65 74 20 22 3a 22 20 63 69 70 68 65 72 73 20 get ":" ciphers
0c30: 2d 74 6c 73 31 5f 33 5d 20 5b 3a 3a 74 6c 73 3a -tls1_3] [::tls:
0c40: 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e 33 5d :ciphers tls1.3]
0c50: 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b . } -result {
0c60: 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 missing {} unexp
0c70: 65 63 74 65 64 20 7b 7d 7d 0a 23 20 54 65 73 74 ected {}}.# Test
0c80: 20 63 69 70 68 65 72 20 64 65 73 63 72 69 70 74 cipher descript
0c90: 69 6f 6e 73 0a 0a 0a 74 65 73 74 20 43 69 70 68 ions...test Ciph
0ca0: 65 72 73 5f 57 69 74 68 5f 44 65 73 63 72 69 70 ers_With_Descrip
0cb0: 74 69 6f 6e 73 2d 33 2e 31 20 7b 53 53 4c 32 7d tions-3.1 {SSL2}
0cc0: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 73 -constraints {s
0cd0: 73 6c 32 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 sl2} -body {..lc
0ce0: 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 ompare [exec_get
0cf0: 20 22 5c 72 5c 6e 22 20 63 69 70 68 65 72 73 20 "\r\n" ciphers
0d00: 2d 73 73 6c 32 20 2d 76 5d 20 5b 73 70 6c 69 74 -ssl2 -v] [split
0d10: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b 3a [string trim [:
0d20: 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 73 73 :tls::ciphers ss
0d30: 6c 32 20 31 5d 5d 20 5c 6e 5d 0a 20 20 20 20 7d l2 1]] \n]. }
0d40: 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 73 69 6e -result {missin
0d50: 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 64 20 g {} unexpected
0d60: 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 70 68 65 72 {}}..test Cipher
0d70: 73 5f 57 69 74 68 5f 44 65 73 63 72 69 70 74 69 s_With_Descripti
0d80: 6f 6e 73 2d 33 2e 32 20 7b 53 53 4c 33 7d 20 2d ons-3.2 {SSL3} -
0d90: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 73 73 6c constraints {ssl
0da0: 33 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 3} -body {..lcom
0db0: 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 pare [exec_get "
0dc0: 5c 72 5c 6e 22 20 63 69 70 68 65 72 73 20 2d 73 \r\n" ciphers -s
0dd0: 73 6c 33 20 2d 76 5d 20 5b 73 70 6c 69 74 20 5b sl3 -v] [split [
0de0: 73 74 72 69 6e 67 20 74 72 69 6d 20 5b 3a 3a 74 string trim [::t
0df0: 6c 73 3a 3a 63 69 70 68 65 72 73 20 73 73 6c 33 ls::ciphers ssl3
0e00: 20 31 5d 5d 20 5c 6e 5d 0a 20 20 20 20 7d 20 2d 1]] \n]. } -
0e10: 72 65 73 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 result {missing
0e20: 7b 7d 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d {} unexpected {}
0e30: 7d 0a 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f }..test Ciphers_
0e40: 57 69 74 68 5f 44 65 73 63 72 69 70 74 69 6f 6e With_Description
0e50: 73 2d 33 2e 33 20 7b 54 4c 53 31 7d 20 2d 63 6f s-3.3 {TLS1} -co
0e60: 6e 73 74 72 61 69 6e 74 73 20 7b 74 6c 73 31 7d nstraints {tls1}
0e70: 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 -body {..lcompa
0e80: 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 5c 72 re [exec_get "\r
0e90: 5c 6e 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 \n" ciphers -tls
0ea0: 31 20 2d 76 5d 20 5b 73 70 6c 69 74 20 5b 73 74 1 -v] [split [st
0eb0: 72 69 6e 67 20 74 72 69 6d 20 5b 3a 3a 74 6c 73 ring trim [::tls
0ec0: 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 20 31 ::ciphers tls1 1
0ed0: 5d 5d 20 5c 6e 5d 0a 20 20 20 20 7d 20 2d 72 65 ]] \n]. } -re
0ee0: 73 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d sult {missing {}
0ef0: 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a unexpected {}}.
0f00: 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f 57 69 .test Ciphers_Wi
0f10: 74 68 5f 44 65 73 63 72 69 70 74 69 6f 6e 73 2d th_Descriptions-
0f20: 33 2e 34 20 7b 54 4c 53 31 2e 31 7d 20 2d 63 6f 3.4 {TLS1.1} -co
0f30: 6e 73 74 72 61 69 6e 74 73 20 7b 74 6c 73 31 2e nstraints {tls1.
0f40: 31 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 1} -body {..lcom
0f50: 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 pare [exec_get "
0f60: 5c 72 5c 6e 22 20 63 69 70 68 65 72 73 20 2d 74 \r\n" ciphers -t
0f70: 6c 73 31 5f 31 20 2d 76 5d 20 5b 73 70 6c 69 74 ls1_1 -v] [split
0f80: 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b 3a [string trim [:
0f90: 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 6c :tls::ciphers tl
0fa0: 73 31 2e 31 20 31 5d 5d 20 5c 6e 5d 0a 20 20 20 s1.1 1]] \n].
0fb0: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 73 } -result {miss
0fc0: 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 ing {} unexpecte
0fd0: 64 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 70 68 d {}}..test Ciph
0fe0: 65 72 73 5f 57 69 74 68 5f 44 65 73 63 72 69 70 ers_With_Descrip
0ff0: 74 69 6f 6e 73 2d 33 2e 35 20 7b 54 4c 53 31 2e tions-3.5 {TLS1.
1000: 32 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 2} -constraints
1010: 7b 74 6c 73 31 2e 32 7d 20 2d 62 6f 64 79 20 7b {tls1.2} -body {
1020: 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 ..lcompare [exec
1030: 5f 67 65 74 20 22 5c 72 5c 6e 22 20 63 69 70 68 _get "\r\n" ciph
1040: 65 72 73 20 2d 74 6c 73 31 5f 32 20 2d 76 5d 20 ers -tls1_2 -v]
1050: 5b 73 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 [split [string t
1060: 72 69 6d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 rim [::tls::ciph
1070: 65 72 73 20 74 6c 73 31 2e 32 20 31 5d 5d 20 5c ers tls1.2 1]] \
1080: 6e 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 n]. } -result
1090: 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 {missing {} une
10a0: 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 xpected {}}..tes
10b0: 74 20 43 69 70 68 65 72 73 5f 57 69 74 68 5f 44 t Ciphers_With_D
10c0: 65 73 63 72 69 70 74 69 6f 6e 73 2d 33 2e 36 20 escriptions-3.6
10d0: 7b 54 4c 53 31 2e 33 7d 20 2d 63 6f 6e 73 74 72 {TLS1.3} -constr
10e0: 61 69 6e 74 73 20 7b 74 6c 73 31 2e 33 7d 20 2d aints {tls1.3} -
10f0: 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 body {..lcompare
1100: 20 5b 65 78 65 63 5f 67 65 74 20 22 5c 72 5c 6e [exec_get "\r\n
1110: 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 5f " ciphers -tls1_
1120: 33 20 2d 76 5d 20 5b 73 70 6c 69 74 20 5b 73 74 3 -v] [split [st
1130: 72 69 6e 67 20 74 72 69 6d 20 5b 3a 3a 74 6c 73 ring trim [::tls
1140: 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e 33 ::ciphers tls1.3
1150: 20 31 5d 5d 20 5c 6e 5d 0a 20 20 20 20 7d 20 2d 1]] \n]. } -
1160: 72 65 73 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 result {missing
1170: 7b 7d 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d {} unexpected {}
1180: 7d 0a 23 20 54 65 73 74 20 70 72 6f 74 6f 63 6f }.# Test protoco
1190: 6c 20 73 70 65 63 69 66 69 63 20 63 69 70 68 65 l specific ciphe
11a0: 72 73 0a 0a 0a 74 65 73 74 20 43 69 70 68 65 72 rs...test Cipher
11b0: 73 5f 50 72 6f 74 6f 63 6f 6c 5f 53 70 65 63 69 s_Protocol_Speci
11c0: 66 69 63 2d 34 2e 31 20 7b 53 53 4c 32 7d 20 2d fic-4.1 {SSL2} -
11d0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 73 73 6c constraints {ssl
11e0: 32 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 2} -body {..lcom
11f0: 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 pare [exec_get "
1200: 3a 22 20 63 69 70 68 65 72 73 20 2d 73 73 6c 32 :" ciphers -ssl2
1210: 20 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 -s] [::tls::cip
1220: 68 65 72 73 20 73 73 6c 32 20 30 20 31 5d 0a 20 hers ssl2 0 1].
1230: 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 } -result {mi
1240: 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 ssing {} unexpec
1250: 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 ted {}}..test Ci
1260: 70 68 65 72 73 5f 50 72 6f 74 6f 63 6f 6c 5f 53 phers_Protocol_S
1270: 70 65 63 69 66 69 63 2d 34 2e 32 20 7b 53 53 4c pecific-4.2 {SSL
1280: 33 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 3} -constraints
1290: 7b 73 73 6c 33 7d 20 2d 62 6f 64 79 20 7b 0a 09 {ssl3} -body {..
12a0: 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 lcompare [exec_g
12b0: 65 74 20 22 3a 22 20 63 69 70 68 65 72 73 20 2d et ":" ciphers -
12c0: 73 73 6c 33 20 2d 73 5d 20 5b 3a 3a 74 6c 73 3a ssl3 -s] [::tls:
12d0: 3a 63 69 70 68 65 72 73 20 73 73 6c 33 20 30 20 :ciphers ssl3 0
12e0: 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 1]. } -result
12f0: 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 {missing {} une
1300: 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 xpected {}}..tes
1310: 74 20 43 69 70 68 65 72 73 5f 50 72 6f 74 6f 63 t Ciphers_Protoc
1320: 6f 6c 5f 53 70 65 63 69 66 69 63 2d 34 2e 33 20 ol_Specific-4.3
1330: 7b 54 4c 53 31 7d 20 2d 63 6f 6e 73 74 72 61 69 {TLS1} -constrai
1340: 6e 74 73 20 7b 74 6c 73 31 7d 20 2d 62 6f 64 79 nts {tls1} -body
1350: 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 {..lcompare [ex
1360: 65 63 5f 67 65 74 20 22 3a 22 20 63 69 70 68 65 ec_get ":" ciphe
1370: 72 73 20 2d 74 6c 73 31 20 2d 73 5d 20 5b 3a 3a rs -tls1 -s] [::
1380: 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 tls::ciphers tls
1390: 31 20 30 20 31 5d 0a 20 20 20 20 7d 20 2d 72 65 1 0 1]. } -re
13a0: 73 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d sult {missing {}
13b0: 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a unexpected {}}.
13c0: 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f 50 72 .test Ciphers_Pr
13d0: 6f 74 6f 63 6f 6c 5f 53 70 65 63 69 66 69 63 2d otocol_Specific-
13e0: 34 2e 34 20 7b 54 4c 53 31 2e 31 7d 20 2d 63 6f 4.4 {TLS1.1} -co
13f0: 6e 73 74 72 61 69 6e 74 73 20 7b 74 6c 73 31 2e nstraints {tls1.
1400: 31 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 1} -body {..lcom
1410: 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 pare [exec_get "
1420: 3a 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 :" ciphers -tls1
1430: 5f 31 20 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 _1 -s] [::tls::c
1440: 69 70 68 65 72 73 20 74 6c 73 31 2e 31 20 30 20 iphers tls1.1 0
1450: 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 1]. } -result
1460: 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 {missing {} une
1470: 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 xpected {}}..tes
1480: 74 20 43 69 70 68 65 72 73 5f 50 72 6f 74 6f 63 t Ciphers_Protoc
1490: 6f 6c 5f 53 70 65 63 69 66 69 63 2d 34 2e 35 20 ol_Specific-4.5
14a0: 7b 54 4c 53 31 2e 32 7d 20 2d 63 6f 6e 73 74 72 {TLS1.2} -constr
14b0: 61 69 6e 74 73 20 7b 74 6c 73 31 2e 32 7d 20 2d aints {tls1.2} -
14c0: 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 body {..lcompare
14d0: 20 5b 65 78 65 63 5f 67 65 74 20 22 3a 22 20 63 [exec_get ":" c
14e0: 69 70 68 65 72 73 20 2d 74 6c 73 31 5f 32 20 2d iphers -tls1_2 -
14f0: 73 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 s] [::tls::ciphe
1500: 72 73 20 74 6c 73 31 2e 32 20 30 20 31 5d 0a 20 rs tls1.2 0 1].
1510: 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 } -result {mi
1520: 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 ssing {} unexpec
1530: 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 ted {}}..test Ci
1540: 70 68 65 72 73 5f 50 72 6f 74 6f 63 6f 6c 5f 53 phers_Protocol_S
1550: 70 65 63 69 66 69 63 2d 34 2e 36 20 7b 54 4c 53 pecific-4.6 {TLS
1560: 31 2e 33 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 1.3} -constraint
1570: 73 20 7b 74 6c 73 31 2e 33 7d 20 2d 62 6f 64 79 s {tls1.3} -body
1580: 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 63 6f {..lcompare [co
1590: 6e 63 61 74 20 5b 65 78 65 63 5f 67 65 74 20 22 ncat [exec_get "
15a0: 3a 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 :" ciphers -tls1
15b0: 5f 33 20 2d 73 5d 20 5b 65 78 65 63 5f 67 65 74 _3 -s] [exec_get
15c0: 20 22 3a 22 20 63 69 70 68 65 72 73 20 2d 74 6c ":" ciphers -tl
15d0: 73 31 5f 32 20 2d 73 5d 5d 20 5b 3a 3a 74 6c 73 s1_2 -s]] [::tls
15e0: 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e 33 ::ciphers tls1.3
15f0: 20 30 20 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 0 1]. } -res
1600: 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 ult {missing {}
1610: 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 23 unexpected {}}.#
1620: 20 54 65 73 74 20 6c 69 73 74 20 64 69 67 65 73 Test list diges
1630: 74 73 0a 0a 0a 74 65 73 74 20 44 69 67 65 73 74 ts...test Digest
1640: 5f 4c 69 73 74 2d 35 2e 31 20 7b 41 6c 6c 7d 20 _List-5.1 {All}
1650: 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 -body {..lcompar
1660: 65 20 5b 6c 73 6f 72 74 20 5b 65 78 65 63 5f 67 e [lsort [exec_g
1670: 65 74 5f 64 69 67 65 73 74 73 5d 5d 20 5b 6c 73 et_digests]] [ls
1680: 6f 72 74 20 5b 74 6c 73 3a 3a 64 69 67 65 73 74 ort [tls::digest
1690: 73 5d 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c s]]. } -resul
16a0: 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e t {missing {} un
16b0: 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 23 20 54 expected {}}.# T
16c0: 65 73 74 20 64 69 67 65 73 74 20 63 6f 6d 6d 61 est digest comma
16d0: 6e 64 73 0a 0a 0a 74 65 73 74 20 44 69 67 65 73 nds...test Diges
16e0: 74 5f 43 6d 64 73 2d 36 2e 31 20 7b 6d 64 34 20 t_Cmds-6.1 {md4
16f0: 63 6d 64 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c cmd} -body {..tl
1700: 73 3a 3a 6d 64 34 20 22 45 78 61 6d 70 6c 65 20 s::md4 "Example
1710: 73 74 72 69 6e 67 20 66 6f 72 20 6d 65 73 73 61 string for messa
1720: 67 65 20 64 69 67 65 73 74 20 74 65 73 74 73 2e ge digest tests.
1730: 22 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 ". } -result
1740: 7b 31 38 31 43 44 43 46 39 44 42 39 42 36 46 41 {181CDCF9DB9B6FA
1750: 38 46 43 30 41 33 42 46 39 43 33 34 45 32 39 44 8FC0A3BF9C34E29D
1760: 39 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 74 5f 9}..test Digest_
1770: 43 6d 64 73 2d 36 2e 32 20 7b 6d 64 35 20 63 6d Cmds-6.2 {md5 cm
1780: 64 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 3a d} -body {..tls:
1790: 3a 6d 64 35 20 22 45 78 61 6d 70 6c 65 20 73 74 :md5 "Example st
17a0: 72 69 6e 67 20 66 6f 72 20 6d 65 73 73 61 67 65 ring for message
17b0: 20 64 69 67 65 73 74 20 74 65 73 74 73 2e 22 0a digest tests.".
17c0: 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 43 } -result {C
17d0: 43 42 31 42 45 32 45 31 31 44 38 31 38 33 45 38 CB1BE2E11D8183E8
17e0: 34 33 46 46 37 33 44 41 38 43 36 44 32 30 36 7d 43FF73DA8C6D206}
17f0: 0a 0a 74 65 73 74 20 44 69 67 65 73 74 5f 43 6d ..test Digest_Cm
1800: 64 73 2d 36 2e 33 20 7b 73 68 61 31 20 63 6d 64 ds-6.3 {sha1 cmd
1810: 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 3a 3a } -body {..tls::
1820: 73 68 61 31 20 22 45 78 61 6d 70 6c 65 20 73 74 sha1 "Example st
1830: 72 69 6e 67 20 66 6f 72 20 6d 65 73 73 61 67 65 ring for message
1840: 20 64 69 67 65 73 74 20 74 65 73 74 73 2e 22 0a digest tests.".
1850: 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 33 } -result {3
1860: 41 45 46 45 38 34 30 43 41 34 39 32 43 33 38 37 AEFE840CA492C387
1870: 45 39 30 33 46 31 35 45 44 36 30 31 39 45 37 41 E903F15ED6019E7A
1880: 44 38 33 33 42 34 37 7d 0a 0a 74 65 73 74 20 44 D833B47}..test D
1890: 69 67 65 73 74 5f 43 6d 64 73 2d 36 2e 34 20 7b igest_Cmds-6.4 {
18a0: 73 68 61 32 35 36 20 63 6d 64 7d 20 2d 62 6f 64 sha256 cmd} -bod
18b0: 79 20 7b 0a 09 74 6c 73 3a 3a 73 68 61 32 35 36 y {..tls::sha256
18c0: 20 22 45 78 61 6d 70 6c 65 20 73 74 72 69 6e 67 "Example string
18d0: 20 66 6f 72 20 6d 65 73 73 61 67 65 20 64 69 67 for message dig
18e0: 65 73 74 20 74 65 73 74 73 2e 22 0a 20 20 20 20 est tests.".
18f0: 7d 20 2d 72 65 73 75 6c 74 20 7b 42 37 44 46 44 } -result {B7DFD
1900: 44 45 42 30 33 31 34 41 37 34 46 46 35 36 41 38 DEB0314A74FF56A8
1910: 41 43 31 45 33 44 43 35 37 44 46 30 39 42 42 35 AC1E3DC57DF09BB5
1920: 32 41 39 36 44 41 35 30 46 36 35 34 39 45 42 36 2A96DA50F6549EB6
1930: 32 43 41 36 31 41 30 41 34 39 31 7d 0a 0a 74 65 2CA61A0A491}..te
1940: 73 74 20 44 69 67 65 73 74 5f 43 6d 64 73 2d 36 st Digest_Cmds-6
1950: 2e 35 20 7b 73 68 61 35 31 32 20 63 6d 64 7d 20 .5 {sha512 cmd}
1960: 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 3a 3a 73 68 -body {..tls::sh
1970: 61 35 31 32 20 22 45 78 61 6d 70 6c 65 20 73 74 a512 "Example st
1980: 72 69 6e 67 20 66 6f 72 20 6d 65 73 73 61 67 65 ring for message
1990: 20 64 69 67 65 73 74 20 74 65 73 74 73 2e 22 0a digest tests.".
19a0: 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 42 } -result {B
19b0: 35 36 45 43 35 35 45 33 33 31 39 33 45 31 37 42 56EC55E33193E17B
19c0: 36 31 44 36 36 39 46 42 37 42 30 34 41 44 32 34 61D669FB7B04AD24
19d0: 38 33 44 45 39 33 46 45 38 34 37 43 34 31 31 42 83DE93FE847C411B
19e0: 42 45 41 45 36 34 34 30 45 43 45 41 36 43 37 43 BEAE6440ECEA6C7C
19f0: 46 44 44 32 45 36 46 33 35 41 30 36 43 42 31 38 FDD2E6F35A06CB18
1a00: 39 46 43 36 32 44 37 39 39 45 37 38 35 43 44 42 9FC62D799E785CDB
1a10: 37 41 32 33 31 37 38 33 32 33 37 38 39 44 30 30 7A23178323789D00
1a20: 31 42 43 38 45 34 34 41 30 42 35 39 30 37 46 7d 1BC8E44A0B5907F}
1a30: 0a 23 20 54 65 73 74 20 64 69 67 65 73 74 20 63 .# Test digest c
1a40: 6f 6d 6d 61 6e 64 20 66 6f 72 20 64 61 74 61 0a ommand for data.
1a50: 0a 0a 74 65 73 74 20 44 69 67 65 73 74 5f 44 61 ..test Digest_Da
1a60: 74 61 2d 37 2e 31 20 7b 6d 64 34 7d 20 2d 62 6f ta-7.1 {md4} -bo
1a70: 64 79 20 7b 0a 09 74 6c 73 3a 3a 64 69 67 65 73 dy {..tls::diges
1a80: 74 20 6d 64 34 20 22 45 78 61 6d 70 6c 65 20 73 t md4 "Example s
1a90: 74 72 69 6e 67 20 66 6f 72 20 6d 65 73 73 61 67 tring for messag
1aa0: 65 20 64 69 67 65 73 74 20 74 65 73 74 73 2e 22 e digest tests."
1ab0: 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b . } -result {
1ac0: 31 38 31 43 44 43 46 39 44 42 39 42 36 46 41 38 181CDCF9DB9B6FA8
1ad0: 46 43 30 41 33 42 46 39 43 33 34 45 32 39 44 39 FC0A3BF9C34E29D9
1ae0: 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 74 5f 44 }..test Digest_D
1af0: 61 74 61 2d 37 2e 32 20 7b 6d 64 35 7d 20 2d 62 ata-7.2 {md5} -b
1b00: 6f 64 79 20 7b 0a 09 74 6c 73 3a 3a 64 69 67 65 ody {..tls::dige
1b10: 73 74 20 6d 64 35 20 22 45 78 61 6d 70 6c 65 20 st md5 "Example
1b20: 73 74 72 69 6e 67 20 66 6f 72 20 6d 65 73 73 61 string for messa
1b30: 67 65 20 64 69 67 65 73 74 20 74 65 73 74 73 2e ge digest tests.
1b40: 22 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 ". } -result
1b50: 7b 43 43 42 31 42 45 32 45 31 31 44 38 31 38 33 {CCB1BE2E11D8183
1b60: 45 38 34 33 46 46 37 33 44 41 38 43 36 44 32 30 E843FF73DA8C6D20
1b70: 36 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 74 5f 6}..test Digest_
1b80: 44 61 74 61 2d 37 2e 33 20 7b 73 68 61 31 7d 20 Data-7.3 {sha1}
1b90: 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 3a 3a 64 69 -body {..tls::di
1ba0: 67 65 73 74 20 73 68 61 31 20 22 45 78 61 6d 70 gest sha1 "Examp
1bb0: 6c 65 20 73 74 72 69 6e 67 20 66 6f 72 20 6d 65 le string for me
1bc0: 73 73 61 67 65 20 64 69 67 65 73 74 20 74 65 73 ssage digest tes
1bd0: 74 73 2e 22 0a 20 20 20 20 7d 20 2d 72 65 73 75 ts.". } -resu
1be0: 6c 74 20 7b 33 41 45 46 45 38 34 30 43 41 34 39 lt {3AEFE840CA49
1bf0: 32 43 33 38 37 45 39 30 33 46 31 35 45 44 36 30 2C387E903F15ED60
1c00: 31 39 45 37 41 44 38 33 33 42 34 37 7d 0a 0a 74 19E7AD833B47}..t
1c10: 65 73 74 20 44 69 67 65 73 74 5f 44 61 74 61 2d est Digest_Data-
1c20: 37 2e 34 20 7b 73 68 61 32 35 36 7d 20 2d 62 6f 7.4 {sha256} -bo
1c30: 64 79 20 7b 0a 09 74 6c 73 3a 3a 64 69 67 65 73 dy {..tls::diges
1c40: 74 20 73 68 61 32 35 36 20 22 45 78 61 6d 70 6c t sha256 "Exampl
1c50: 65 20 73 74 72 69 6e 67 20 66 6f 72 20 6d 65 73 e string for mes
1c60: 73 61 67 65 20 64 69 67 65 73 74 20 74 65 73 74 sage digest test
1c70: 73 2e 22 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c s.". } -resul
1c80: 74 20 7b 42 37 44 46 44 44 45 42 30 33 31 34 41 t {B7DFDDEB0314A
1c90: 37 34 46 46 35 36 41 38 41 43 31 45 33 44 43 35 74FF56A8AC1E3DC5
1ca0: 37 44 46 30 39 42 42 35 32 41 39 36 44 41 35 30 7DF09BB52A96DA50
1cb0: 46 36 35 34 39 45 42 36 32 43 41 36 31 41 30 41 F6549EB62CA61A0A
1cc0: 34 39 31 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 491}..test Diges
1cd0: 74 5f 44 61 74 61 2d 37 2e 35 20 7b 73 68 61 35 t_Data-7.5 {sha5
1ce0: 31 32 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 12} -body {..tls
1cf0: 3a 3a 64 69 67 65 73 74 20 73 68 61 35 31 32 20 ::digest sha512
1d00: 22 45 78 61 6d 70 6c 65 20 73 74 72 69 6e 67 20 "Example string
1d10: 66 6f 72 20 6d 65 73 73 61 67 65 20 64 69 67 65 for message dige
1d20: 73 74 20 74 65 73 74 73 2e 22 0a 20 20 20 20 7d st tests.". }
1d30: 20 2d 72 65 73 75 6c 74 20 7b 42 35 36 45 43 35 -result {B56EC5
1d40: 35 45 33 33 31 39 33 45 31 37 42 36 31 44 36 36 5E33193E17B61D66
1d50: 39 46 42 37 42 30 34 41 44 32 34 38 33 44 45 39 9FB7B04AD2483DE9
1d60: 33 46 45 38 34 37 43 34 31 31 42 42 45 41 45 36 3FE847C411BBEAE6
1d70: 34 34 30 45 43 45 41 36 43 37 43 46 44 44 32 45 440ECEA6C7CFDD2E
1d80: 36 46 33 35 41 30 36 43 42 31 38 39 46 43 36 32 6F35A06CB189FC62
1d90: 44 37 39 39 45 37 38 35 43 44 42 37 41 32 33 31 D799E785CDB7A231
1da0: 37 38 33 32 33 37 38 39 44 30 30 31 42 43 38 45 78323789D001BC8E
1db0: 34 34 41 30 42 35 39 30 37 46 7d 0a 0a 74 65 73 44A0B5907F}..tes
1dc0: 74 20 44 69 67 65 73 74 5f 44 61 74 61 2d 37 2e t Digest_Data-7.
1dd0: 36 20 7b 6d 64 35 20 62 69 6e 7d 20 2d 62 6f 64 6 {md5 bin} -bod
1de0: 79 20 7b 0a 09 73 74 72 69 6e 67 20 74 6f 75 70 y {..string toup
1df0: 70 65 72 20 5b 62 69 6e 61 72 79 20 65 6e 63 6f per [binary enco
1e00: 64 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 69 67 de hex [tls::dig
1e10: 65 73 74 20 6d 64 35 20 2d 62 69 6e 20 22 45 78 est md5 -bin "Ex
1e20: 61 6d 70 6c 65 20 73 74 72 69 6e 67 20 66 6f 72 ample string for
1e30: 20 6d 65 73 73 61 67 65 20 64 69 67 65 73 74 20 message digest
1e40: 74 65 73 74 73 2e 22 5d 5d 0a 20 20 20 20 7d 20 tests."]]. }
1e50: 2d 72 65 73 75 6c 74 20 7b 43 43 42 31 42 45 32 -result {CCB1BE2
1e60: 45 31 31 44 38 31 38 33 45 38 34 33 46 46 37 33 E11D8183E843FF73
1e70: 44 41 38 43 36 44 32 30 36 7d 0a 0a 74 65 73 74 DA8C6D206}..test
1e80: 20 44 69 67 65 73 74 5f 44 61 74 61 2d 37 2e 37 Digest_Data-7.7
1e90: 20 7b 6d 64 35 20 68 65 78 7d 20 2d 62 6f 64 79 {md5 hex} -body
1ea0: 20 7b 0a 09 74 6c 73 3a 3a 64 69 67 65 73 74 20 {..tls::digest
1eb0: 6d 64 35 20 2d 68 65 78 20 22 45 78 61 6d 70 6c md5 -hex "Exampl
1ec0: 65 20 73 74 72 69 6e 67 20 66 6f 72 20 6d 65 73 e string for mes
1ed0: 73 61 67 65 20 64 69 67 65 73 74 20 74 65 73 74 sage digest test
1ee0: 73 2e 22 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c s.". } -resul
1ef0: 74 20 7b 43 43 42 31 42 45 32 45 31 31 44 38 31 t {CCB1BE2E11D81
1f00: 38 33 45 38 34 33 46 46 37 33 44 41 38 43 36 44 83E843FF73DA8C6D
1f10: 32 30 36 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 206}..test Diges
1f20: 74 5f 44 61 74 61 2d 37 2e 38 20 7b 6d 64 35 20 t_Data-7.8 {md5
1f30: 77 69 74 68 20 61 72 67 7d 20 2d 62 6f 64 79 20 with arg} -body
1f40: 7b 0a 09 74 6c 73 3a 3a 64 69 67 65 73 74 20 6d {..tls::digest m
1f50: 64 35 20 2d 64 61 74 61 20 22 45 78 61 6d 70 6c d5 -data "Exampl
1f60: 65 20 73 74 72 69 6e 67 20 66 6f 72 20 6d 65 73 e string for mes
1f70: 73 61 67 65 20 64 69 67 65 73 74 20 74 65 73 74 sage digest test
1f80: 73 2e 22 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c s.". } -resul
1f90: 74 20 7b 43 43 42 31 42 45 32 45 31 31 44 38 31 t {CCB1BE2E11D81
1fa0: 38 33 45 38 34 33 46 46 37 33 44 41 38 43 36 44 83E843FF73DA8C6D
1fb0: 32 30 36 7d 0a 23 20 54 65 73 74 20 64 69 67 65 206}.# Test dige
1fc0: 73 74 20 63 6f 6d 6d 61 6e 64 20 66 6f 72 20 66 st command for f
1fd0: 69 6c 65 73 0a 0a 0a 74 65 73 74 20 44 69 67 65 iles...test Dige
1fe0: 73 74 5f 46 69 6c 65 2d 38 2e 31 20 7b 6d 64 34 st_File-8.1 {md4
1ff0: 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 3a 3a } -body {..tls::
2000: 64 69 67 65 73 74 20 6d 64 34 20 2d 66 69 6c 65 digest md4 -file
2010: 20 6d 64 5f 64 61 74 61 2e 64 61 74 0a 20 20 20 md_data.dat.
2020: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 31 38 31 43 } -result {181C
2030: 44 43 46 39 44 42 39 42 36 46 41 38 46 43 30 41 DCF9DB9B6FA8FC0A
2040: 33 42 46 39 43 33 34 45 32 39 44 39 7d 0a 0a 74 3BF9C34E29D9}..t
2050: 65 73 74 20 44 69 67 65 73 74 5f 46 69 6c 65 2d est Digest_File-
2060: 38 2e 32 20 7b 6d 64 35 7d 20 2d 62 6f 64 79 20 8.2 {md5} -body
2070: 7b 0a 09 74 6c 73 3a 3a 64 69 67 65 73 74 20 6d {..tls::digest m
2080: 64 35 20 2d 66 69 6c 65 20 6d 64 5f 64 61 74 61 d5 -file md_data
2090: 2e 64 61 74 0a 20 20 20 20 7d 20 2d 72 65 73 75 .dat. } -resu
20a0: 6c 74 20 7b 43 43 42 31 42 45 32 45 31 31 44 38 lt {CCB1BE2E11D8
20b0: 31 38 33 45 38 34 33 46 46 37 33 44 41 38 43 36 183E843FF73DA8C6
20c0: 44 32 30 36 7d 0a 0a 74 65 73 74 20 44 69 67 65 D206}..test Dige
20d0: 73 74 5f 46 69 6c 65 2d 38 2e 33 20 7b 73 68 61 st_File-8.3 {sha
20e0: 31 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 3a 1} -body {..tls:
20f0: 3a 64 69 67 65 73 74 20 73 68 61 31 20 2d 66 69 :digest sha1 -fi
2100: 6c 65 20 6d 64 5f 64 61 74 61 2e 64 61 74 0a 20 le md_data.dat.
2110: 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 33 41 } -result {3A
2120: 45 46 45 38 34 30 43 41 34 39 32 43 33 38 37 45 EFE840CA492C387E
2130: 39 30 33 46 31 35 45 44 36 30 31 39 45 37 41 44 903F15ED6019E7AD
2140: 38 33 33 42 34 37 7d 0a 0a 74 65 73 74 20 44 69 833B47}..test Di
2150: 67 65 73 74 5f 46 69 6c 65 2d 38 2e 34 20 7b 73 gest_File-8.4 {s
2160: 68 61 32 35 36 7d 20 2d 62 6f 64 79 20 7b 0a 09 ha256} -body {..
2170: 74 6c 73 3a 3a 64 69 67 65 73 74 20 73 68 61 32 tls::digest sha2
2180: 35 36 20 2d 66 69 6c 65 20 6d 64 5f 64 61 74 61 56 -file md_data
2190: 2e 64 61 74 0a 20 20 20 20 7d 20 2d 72 65 73 75 .dat. } -resu
21a0: 6c 74 20 7b 42 37 44 46 44 44 45 42 30 33 31 34 lt {B7DFDDEB0314
21b0: 41 37 34 46 46 35 36 41 38 41 43 31 45 33 44 43 A74FF56A8AC1E3DC
21c0: 35 37 44 46 30 39 42 42 35 32 41 39 36 44 41 35 57DF09BB52A96DA5
21d0: 30 46 36 35 34 39 45 42 36 32 43 41 36 31 41 30 0F6549EB62CA61A0
21e0: 41 34 39 31 7d 0a 0a 74 65 73 74 20 44 69 67 65 A491}..test Dige
21f0: 73 74 5f 46 69 6c 65 2d 38 2e 35 20 7b 73 68 61 st_File-8.5 {sha
2200: 35 31 32 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c 512} -body {..tl
2210: 73 3a 3a 64 69 67 65 73 74 20 73 68 61 35 31 32 s::digest sha512
2220: 20 2d 66 69 6c 65 20 6d 64 5f 64 61 74 61 2e 64 -file md_data.d
2230: 61 74 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 at. } -result
2240: 20 7b 42 35 36 45 43 35 35 45 33 33 31 39 33 45 {B56EC55E33193E
2250: 31 37 42 36 31 44 36 36 39 46 42 37 42 30 34 41 17B61D669FB7B04A
2260: 44 32 34 38 33 44 45 39 33 46 45 38 34 37 43 34 D2483DE93FE847C4
2270: 31 31 42 42 45 41 45 36 34 34 30 45 43 45 41 36 11BBEAE6440ECEA6
2280: 43 37 43 46 44 44 32 45 36 46 33 35 41 30 36 43 C7CFDD2E6F35A06C
2290: 42 31 38 39 46 43 36 32 44 37 39 39 45 37 38 35 B189FC62D799E785
22a0: 43 44 42 37 41 32 33 31 37 38 33 32 33 37 38 39 CDB7A23178323789
22b0: 44 30 30 31 42 43 38 45 34 34 41 30 42 35 39 30 D001BC8E44A0B590
22c0: 37 46 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 74 7F}..test Digest
22d0: 5f 46 69 6c 65 2d 38 2e 36 20 7b 6d 64 35 20 62 _File-8.6 {md5 b
22e0: 69 6e 7d 20 2d 62 6f 64 79 20 7b 0a 09 73 74 72 in} -body {..str
22f0: 69 6e 67 20 74 6f 75 70 70 65 72 20 5b 62 69 6e ing toupper [bin
2300: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
2310: 74 6c 73 3a 3a 64 69 67 65 73 74 20 6d 64 35 20 tls::digest md5
2320: 2d 62 69 6e 20 2d 66 69 6c 65 20 6d 64 5f 64 61 -bin -file md_da
2330: 74 61 2e 64 61 74 5d 5d 0a 20 20 20 20 7d 20 2d ta.dat]]. } -
2340: 72 65 73 75 6c 74 20 7b 43 43 42 31 42 45 32 45 result {CCB1BE2E
2350: 31 31 44 38 31 38 33 45 38 34 33 46 46 37 33 44 11D8183E843FF73D
2360: 41 38 43 36 44 32 30 36 7d 0a 0a 74 65 73 74 20 A8C6D206}..test
2370: 44 69 67 65 73 74 5f 46 69 6c 65 2d 38 2e 37 20 Digest_File-8.7
2380: 7b 6d 64 35 20 68 65 78 7d 20 2d 62 6f 64 79 20 {md5 hex} -body
2390: 7b 0a 09 74 6c 73 3a 3a 64 69 67 65 73 74 20 6d {..tls::digest m
23a0: 64 35 20 2d 68 65 78 20 2d 66 69 6c 65 20 6d 64 d5 -hex -file md
23b0: 5f 64 61 74 61 2e 64 61 74 0a 20 20 20 20 7d 20 _data.dat. }
23c0: 2d 72 65 73 75 6c 74 20 7b 43 43 42 31 42 45 32 -result {CCB1BE2
23d0: 45 31 31 44 38 31 38 33 45 38 34 33 46 46 37 33 E11D8183E843FF73
23e0: 44 41 38 43 36 44 32 30 36 7d 0a 23 20 54 65 73 DA8C6D206}.# Tes
23f0: 74 20 64 69 67 65 73 74 20 63 6f 6d 6d 61 6e 64 t digest command
2400: 20 66 6f 72 20 63 68 61 6e 6e 65 6c 0a 0a 0a 74 for channel...t
2410: 65 73 74 20 44 69 67 65 73 74 5f 43 68 61 6e 2d est Digest_Chan-
2420: 39 2e 31 20 7b 6d 64 34 7d 20 2d 62 6f 64 79 20 9.1 {md4} -body
2430: 7b 0a 09 72 65 61 64 5f 63 68 61 6e 20 6d 64 34 {..read_chan md4
2440: 20 6d 64 5f 64 61 74 61 2e 64 61 74 0a 20 20 20 md_data.dat.
2450: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 31 38 31 43 } -result {181C
2460: 44 43 46 39 44 42 39 42 36 46 41 38 46 43 30 41 DCF9DB9B6FA8FC0A
2470: 33 42 46 39 43 33 34 45 32 39 44 39 7d 0a 0a 74 3BF9C34E29D9}..t
2480: 65 73 74 20 44 69 67 65 73 74 5f 43 68 61 6e 2d est Digest_Chan-
2490: 39 2e 32 20 7b 6d 64 35 7d 20 2d 62 6f 64 79 20 9.2 {md5} -body
24a0: 7b 0a 09 72 65 61 64 5f 63 68 61 6e 20 6d 64 35 {..read_chan md5
24b0: 20 6d 64 5f 64 61 74 61 2e 64 61 74 0a 20 20 20 md_data.dat.
24c0: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 43 43 42 31 } -result {CCB1
24d0: 42 45 32 45 31 31 44 38 31 38 33 45 38 34 33 46 BE2E11D8183E843F
24e0: 46 37 33 44 41 38 43 36 44 32 30 36 7d 0a 0a 74 F73DA8C6D206}..t
24f0: 65 73 74 20 44 69 67 65 73 74 5f 43 68 61 6e 2d est Digest_Chan-
2500: 39 2e 33 20 7b 73 68 61 31 7d 20 2d 62 6f 64 79 9.3 {sha1} -body
2510: 20 7b 0a 09 72 65 61 64 5f 63 68 61 6e 20 73 68 {..read_chan sh
2520: 61 31 20 6d 64 5f 64 61 74 61 2e 64 61 74 0a 20 a1 md_data.dat.
2530: 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 33 41 } -result {3A
2540: 45 46 45 38 34 30 43 41 34 39 32 43 33 38 37 45 EFE840CA492C387E
2550: 39 30 33 46 31 35 45 44 36 30 31 39 45 37 41 44 903F15ED6019E7AD
2560: 38 33 33 42 34 37 7d 0a 0a 74 65 73 74 20 44 69 833B47}..test Di
2570: 67 65 73 74 5f 43 68 61 6e 2d 39 2e 34 20 7b 73 gest_Chan-9.4 {s
2580: 68 61 32 35 36 7d 20 2d 62 6f 64 79 20 7b 0a 09 ha256} -body {..
2590: 72 65 61 64 5f 63 68 61 6e 20 73 68 61 32 35 36 read_chan sha256
25a0: 20 6d 64 5f 64 61 74 61 2e 64 61 74 0a 20 20 20 md_data.dat.
25b0: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 42 37 44 46 } -result {B7DF
25c0: 44 44 45 42 30 33 31 34 41 37 34 46 46 35 36 41 DDEB0314A74FF56A
25d0: 38 41 43 31 45 33 44 43 35 37 44 46 30 39 42 42 8AC1E3DC57DF09BB
25e0: 35 32 41 39 36 44 41 35 30 46 36 35 34 39 45 42 52A96DA50F6549EB
25f0: 36 32 43 41 36 31 41 30 41 34 39 31 7d 0a 0a 74 62CA61A0A491}..t
2600: 65 73 74 20 44 69 67 65 73 74 5f 43 68 61 6e 2d est Digest_Chan-
2610: 39 2e 35 20 7b 73 68 61 35 31 32 7d 20 2d 62 6f 9.5 {sha512} -bo
2620: 64 79 20 7b 0a 09 72 65 61 64 5f 63 68 61 6e 20 dy {..read_chan
2630: 73 68 61 35 31 32 20 6d 64 5f 64 61 74 61 2e 64 sha512 md_data.d
2640: 61 74 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 at. } -result
2650: 20 7b 42 35 36 45 43 35 35 45 33 33 31 39 33 45 {B56EC55E33193E
2660: 31 37 42 36 31 44 36 36 39 46 42 37 42 30 34 41 17B61D669FB7B04A
2670: 44 32 34 38 33 44 45 39 33 46 45 38 34 37 43 34 D2483DE93FE847C4
2680: 31 31 42 42 45 41 45 36 34 34 30 45 43 45 41 36 11BBEAE6440ECEA6
2690: 43 37 43 46 44 44 32 45 36 46 33 35 41 30 36 43 C7CFDD2E6F35A06C
26a0: 42 31 38 39 46 43 36 32 44 37 39 39 45 37 38 35 B189FC62D799E785
26b0: 43 44 42 37 41 32 33 31 37 38 33 32 33 37 38 39 CDB7A23178323789
26c0: 44 30 30 31 42 43 38 45 34 34 41 30 42 35 39 30 D001BC8E44A0B590
26d0: 37 46 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 74 7F}..test Digest
26e0: 5f 43 68 61 6e 2d 39 2e 36 20 7b 6d 64 35 20 62 _Chan-9.6 {md5 b
26f0: 69 6e 7d 20 2d 62 6f 64 79 20 7b 0a 09 73 74 72 in} -body {..str
2700: 69 6e 67 20 74 6f 75 70 70 65 72 20 5b 62 69 6e ing toupper [bin
2710: 61 72 79 20 65 6e 63 6f 64 65 20 68 65 78 20 5b ary encode hex [
2720: 72 65 61 64 5f 63 68 61 6e 20 6d 64 35 20 6d 64 read_chan md5 md
2730: 5f 64 61 74 61 2e 64 61 74 20 2d 62 69 6e 5d 5d _data.dat -bin]]
2740: 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b . } -result {
2750: 43 43 42 31 42 45 32 45 31 31 44 38 31 38 33 45 CCB1BE2E11D8183E
2760: 38 34 33 46 46 37 33 44 41 38 43 36 44 32 30 36 843FF73DA8C6D206
2770: 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 74 5f 43 }..test Digest_C
2780: 68 61 6e 2d 39 2e 37 20 7b 6d 64 35 20 68 65 78 han-9.7 {md5 hex
2790: 7d 20 2d 62 6f 64 79 20 7b 0a 09 72 65 61 64 5f } -body {..read_
27a0: 63 68 61 6e 20 6d 64 35 20 6d 64 5f 64 61 74 61 chan md5 md_data
27b0: 2e 64 61 74 20 2d 68 65 78 0a 20 20 20 20 7d 20 .dat -hex. }
27c0: 2d 72 65 73 75 6c 74 20 7b 43 43 42 31 42 45 32 -result {CCB1BE2
27d0: 45 31 31 44 38 31 38 33 45 38 34 33 46 46 37 33 E11D8183E843FF73
27e0: 44 41 38 43 36 44 32 30 36 7d 0a 23 20 54 65 73 DA8C6D206}.# Tes
27f0: 74 20 48 4d 41 43 0a 0a 0a 74 65 73 74 20 44 69 t HMAC...test Di
2800: 67 65 73 74 5f 48 4d 41 43 2d 31 30 2e 31 20 7b gest_HMAC-10.1 {
2810: 64 61 74 61 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 data} -body {..t
2820: 6c 73 3a 3a 64 69 67 65 73 74 20 6d 64 35 20 2d ls::digest md5 -
2830: 6b 65 79 20 22 45 78 61 6d 70 6c 65 20 6b 65 79 key "Example key
2840: 22 20 2d 64 61 74 61 20 22 45 78 61 6d 70 6c 65 " -data "Example
2850: 20 73 74 72 69 6e 67 20 66 6f 72 20 6d 65 73 73 string for mess
2860: 61 67 65 20 64 69 67 65 73 74 20 74 65 73 74 73 age digest tests
2870: 2e 22 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 .". } -result
2880: 20 7b 39 30 31 44 41 36 45 36 39 37 36 41 37 31 {901DA6E6976A71
2890: 36 35 30 43 37 37 34 34 33 43 33 37 46 46 39 43 650C77443C37FF9C
28a0: 37 46 7d 0a 0a 74 65 73 74 20 44 69 67 65 73 74 7F}..test Digest
28b0: 5f 48 4d 41 43 2d 31 30 2e 32 20 7b 66 69 6c 65 _HMAC-10.2 {file
28c0: 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 3a 3a } -body {..tls::
28d0: 64 69 67 65 73 74 20 6d 64 35 20 2d 6b 65 79 20 digest md5 -key
28e0: 22 45 78 61 6d 70 6c 65 20 6b 65 79 22 20 2d 66 "Example key" -f
28f0: 69 6c 65 20 6d 64 5f 64 61 74 61 2e 64 61 74 0a ile md_data.dat.
2900: 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 39 } -result {9
2910: 30 31 44 41 36 45 36 39 37 36 41 37 31 36 35 30 01DA6E6976A71650
2920: 43 37 37 34 34 33 43 33 37 46 46 39 43 37 46 7d C77443C37FF9C7F}
2930: 0a 0a 74 65 73 74 20 44 69 67 65 73 74 5f 48 4d ..test Digest_HM
2940: 41 43 2d 31 30 2e 33 20 7b 63 68 61 6e 6e 65 6c AC-10.3 {channel
2950: 7d 20 2d 62 6f 64 79 20 7b 0a 09 72 65 61 64 5f } -body {..read_
2960: 63 68 61 6e 20 6d 64 35 20 6d 64 5f 64 61 74 61 chan md5 md_data
2970: 2e 64 61 74 20 2d 6b 65 79 20 22 45 78 61 6d 70 .dat -key "Examp
2980: 6c 65 20 6b 65 79 22 0a 20 20 20 20 7d 20 2d 72 le key". } -r
2990: 65 73 75 6c 74 20 7b 39 30 31 44 41 36 45 36 39 esult {901DA6E69
29a0: 37 36 41 37 31 36 35 30 43 37 37 34 34 33 43 33 76A71650C77443C3
29b0: 37 46 46 39 43 37 46 7d 0a 0a 74 65 73 74 20 44 7FF9C7F}..test D
29c0: 69 67 65 73 74 5f 48 4d 41 43 2d 31 30 2e 34 20 igest_HMAC-10.4
29d0: 7b 64 61 74 61 20 62 69 6e 7d 20 2d 62 6f 64 79 {data bin} -body
29e0: 20 7b 0a 09 73 74 72 69 6e 67 20 74 6f 75 70 70 {..string toupp
29f0: 65 72 20 5b 62 69 6e 61 72 79 20 65 6e 63 6f 64 er [binary encod
2a00: 65 20 68 65 78 20 5b 74 6c 73 3a 3a 64 69 67 65 e hex [tls::dige
2a10: 73 74 20 6d 64 35 20 2d 62 69 6e 20 2d 6b 65 79 st md5 -bin -key
2a20: 20 22 45 78 61 6d 70 6c 65 20 6b 65 79 22 20 2d "Example key" -
2a30: 64 61 74 61 20 22 45 78 61 6d 70 6c 65 20 73 74 data "Example st
2a40: 72 69 6e 67 20 66 6f 72 20 6d 65 73 73 61 67 65 ring for message
2a50: 20 64 69 67 65 73 74 20 74 65 73 74 73 2e 22 5d digest tests."]
2a60: 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 ]. } -result
2a70: 7b 39 30 31 44 41 36 45 36 39 37 36 41 37 31 36 {901DA6E6976A716
2a80: 35 30 43 37 37 34 34 33 43 33 37 46 46 39 43 37 50C77443C37FF9C7
2a90: 46 7d 0a 23 20 54 65 73 74 20 6c 69 73 74 20 4d F}.# Test list M
2aa0: 41 43 73 0a 0a 0a 74 65 73 74 20 4d 41 43 5f 4c ACs...test MAC_L
2ab0: 69 73 74 2d 31 31 2e 31 20 7b 41 6c 6c 7d 20 2d ist-11.1 {All} -
2ac0: 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 body {..lcompare
2ad0: 20 5b 65 78 65 63 5f 67 65 74 5f 6d 61 63 73 5d [exec_get_macs]
2ae0: 20 5b 74 6c 73 3a 3a 6d 61 63 73 5d 0a 20 20 20 [tls::macs].
2af0: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 73 } -result {miss
2b00: 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 ing {} unexpecte
2b10: 64 20 7b 7d 7d 0a 23 20 54 65 73 74 20 6c 69 73 d {}}.# Test lis
2b20: 74 20 70 72 6f 74 6f 63 6f 6c 73 0a 0a 0a 74 65 t protocols...te
2b30: 73 74 20 50 72 6f 74 6f 63 6f 6c 73 2d 31 32 2e st Protocols-12.
2b40: 31 20 7b 41 6c 6c 7d 20 2d 62 6f 64 79 20 7b 0a 1 {All} -body {.
2b50: 09 6c 63 6f 6d 70 61 72 65 20 24 70 72 6f 74 6f .lcompare $proto
2b60: 63 6f 6c 73 20 5b 3a 3a 74 6c 73 3a 3a 70 72 6f cols [::tls::pro
2b70: 74 6f 63 6f 6c 73 5d 0a 20 20 20 20 7d 20 2d 72 tocols]. } -r
2b80: 65 73 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b esult {missing {
2b90: 73 73 6c 32 20 73 73 6c 33 7d 20 75 6e 65 78 70 ssl2 ssl3} unexp
2ba0: 65 63 74 65 64 20 7b 7d 7d 0a 23 20 54 65 73 74 ected {}}.# Test
2bb0: 20 73 68 6f 77 20 76 65 72 73 69 6f 6e 0a 0a 0a show version...
2bc0: 74 65 73 74 20 56 65 72 73 69 6f 6e 2d 31 33 2e test Version-13.
2bd0: 31 20 7b 41 6c 6c 7d 20 2d 62 6f 64 79 20 7b 0a 1 {All} -body {.
2be0: 09 3a 3a 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 0a .::tls::version.
2bf0: 20 20 20 20 7d 20 2d 6d 61 74 63 68 20 7b 67 6c } -match {gl
2c00: 6f 62 7d 20 2d 72 65 73 75 6c 74 20 7b 2a 7d 0a ob} -result {*}.
2c10: 0a 74 65 73 74 20 56 65 72 73 69 6f 6e 2d 31 33 .test Version-13
2c20: 2e 32 20 7b 4f 70 65 6e 53 53 4c 7d 20 2d 63 6f .2 {OpenSSL} -co
2c30: 6e 73 74 72 61 69 6e 74 73 20 7b 4f 70 65 6e 53 nstraints {OpenS
2c40: 53 4c 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 SL} -body {..::t
2c50: 6c 73 3a 3a 76 65 72 73 69 6f 6e 0a 20 20 20 20 ls::version.
2c60: 7d 20 2d 6d 61 74 63 68 20 7b 67 6c 6f 62 7d 20 } -match {glob}
2c70: 2d 72 65 73 75 6c 74 20 7b 4f 70 65 6e 53 53 4c -result {OpenSSL
2c80: 2a 7d 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a *}..# Cleanup.::
2c90: 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 tcltest::cleanup
2ca0: 54 65 73 74 73 0a 72 65 74 75 72 6e 0a Tests.return.