Artifact
9fc9485cebd688e76a865401f38ace929120037382d3d8ac6cf65583cd3b83c6:
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: 69 6e 66 6f 2e 63 73 76 0a 0a 23 20 4c 6f 61 64 info.csv..# Load
0030: 20 54 63 6c 20 54 65 73 74 20 70 61 63 6b 61 67 Tcl Test packag
0040: 65 0a 69 66 20 7b 5b 6c 73 65 61 72 63 68 20 5b e.if {[lsearch [
0050: 6e 61 6d 65 73 70 61 63 65 20 63 68 69 6c 64 72 namespace childr
0060: 65 6e 5d 20 3a 3a 74 63 6c 74 65 73 74 5d 20 3d en] ::tcltest] =
0070: 3d 20 2d 31 7d 20 7b 0a 09 70 61 63 6b 61 67 65 = -1} {..package
0080: 20 72 65 71 75 69 72 65 20 74 63 6c 74 65 73 74 require tcltest
0090: 0a 09 6e 61 6d 65 73 70 61 63 65 20 69 6d 70 6f ..namespace impo
00a0: 72 74 20 3a 3a 74 63 6c 74 65 73 74 3a 3a 2a 0a rt ::tcltest::*.
00b0: 7d 0a 0a 73 65 74 20 61 75 74 6f 5f 70 61 74 68 }..set auto_path
00c0: 20 5b 63 6f 6e 63 61 74 20 5b 6c 69 73 74 20 5b [concat [list [
00d0: 66 69 6c 65 20 64 69 72 6e 61 6d 65 20 5b 66 69 file dirname [fi
00e0: 6c 65 20 64 69 72 6e 61 6d 65 20 5b 69 6e 66 6f le dirname [info
00f0: 20 73 63 72 69 70 74 5d 5d 5d 5d 20 24 61 75 74 script]]]] $aut
0100: 6f 5f 70 61 74 68 5d 0a 0a 70 61 63 6b 61 67 65 o_path]..package
0110: 20 72 65 71 75 69 72 65 20 74 6c 73 0a 0a 23 20 require tls..#
0120: 4d 61 6b 65 20 73 75 72 65 20 70 61 74 68 20 69 Make sure path i
0130: 6e 63 6c 75 64 65 73 20 6c 6f 63 61 74 69 6f 6e ncludes location
0140: 20 6f 66 20 4f 70 65 6e 53 53 4c 20 65 78 65 63 of OpenSSL exec
0150: 75 74 61 62 6c 65 0a 69 66 20 7b 5b 69 6e 66 6f utable.if {[info
0160: 20 65 78 69 73 74 73 20 3a 3a 65 6e 76 28 4f 50 exists ::env(OP
0170: 45 4e 53 53 4c 29 5d 7d 20 7b 73 65 74 20 3a 3a ENSSL)]} {set ::
0180: 65 6e 76 28 70 61 74 68 29 20 5b 73 74 72 69 6e env(path) [strin
0190: 67 20 63 61 74 20 5b 66 69 6c 65 20 6a 6f 69 6e g cat [file join
01a0: 20 24 3a 3a 65 6e 76 28 4f 50 45 4e 53 53 4c 29 $::env(OPENSSL)
01b0: 20 62 69 6e 5d 20 22 3b 22 20 24 3a 3a 65 6e 76 bin] ";" $::env
01c0: 28 70 61 74 68 29 5d 7d 0a 0a 23 20 43 6f 6e 73 (path)]}..# Cons
01d0: 74 72 61 69 6e 74 73 0a 73 6f 75 72 63 65 20 63 traints.source c
01e0: 6f 6d 6d 6f 6e 2e 74 63 6c 0a 0a 23 20 48 65 6c ommon.tcl..# Hel
01f0: 70 65 72 20 66 75 6e 63 74 69 6f 6e 73 0a 70 72 per functions.pr
0200: 6f 63 20 6c 63 6f 6d 70 61 72 65 20 7b 6c 69 73 oc lcompare {lis
0210: 74 31 20 6c 69 73 74 32 7d 20 7b 73 65 74 20 6d t1 list2} {set m
0220: 20 22 22 0a 09 73 65 74 20 75 20 22 22 0a 09 66 ""..set u ""..f
0230: 6f 72 65 61 63 68 20 69 20 24 6c 69 73 74 31 20 oreach i $list1
0240: 7b 69 66 20 7b 24 69 20 6e 69 20 24 6c 69 73 74 {if {$i ni $list
0250: 32 7d 20 7b 6c 61 70 70 65 6e 64 20 6d 20 24 69 2} {lappend m $i
0260: 7d 7d 0a 09 66 6f 72 65 61 63 68 20 69 20 24 6c }}..foreach i $l
0270: 69 73 74 32 20 7b 69 66 20 7b 24 69 20 6e 69 20 ist2 {if {$i ni
0280: 24 6c 69 73 74 31 7d 20 7b 6c 61 70 70 65 6e 64 $list1} {lappend
0290: 20 75 20 24 69 7d 7d 0a 09 72 65 74 75 72 6e 20 u $i}}..return
02a0: 5b 6c 69 73 74 20 22 6d 69 73 73 69 6e 67 22 20 [list "missing"
02b0: 24 6d 20 22 75 6e 65 78 70 65 63 74 65 64 22 20 $m "unexpected"
02c0: 24 75 5d 7d 0a 70 72 6f 63 20 65 78 65 63 5f 67 $u]}.proc exec_g
02d0: 65 74 20 7b 64 65 6c 69 6d 20 61 72 67 73 7d 20 et {delim args}
02e0: 7b 72 65 74 75 72 6e 20 5b 73 70 6c 69 74 20 5b {return [split [
02f0: 65 78 65 63 20 6f 70 65 6e 73 73 6c 20 7b 2a 7d exec openssl {*}
0300: 24 61 72 67 73 5d 20 24 64 65 6c 69 6d 5d 7d 0a $args] $delim]}.
0310: 70 72 6f 63 20 65 78 65 63 5f 67 65 74 5f 63 69 proc exec_get_ci
0320: 70 68 65 72 73 20 7b 7d 20 7b 73 65 74 20 6c 69 phers {} {set li
0330: 73 74 20 5b 6c 69 73 74 5d 0a 09 73 65 74 20 64 st [list]..set d
0340: 61 74 61 20 5b 65 78 65 63 20 6f 70 65 6e 73 73 ata [exec openss
0350: 6c 20 6c 69 73 74 20 2d 63 69 70 68 65 72 2d 61 l list -cipher-a
0360: 6c 67 6f 72 69 74 68 6d 73 5d 0a 09 66 6f 72 65 lgorithms]..fore
0370: 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 ach line [split
0380: 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b 66 6f 72 $data "\n"] {for
0390: 65 61 63 68 20 7b 63 69 70 68 65 72 20 6e 75 6c each {cipher nul
03a0: 6c 20 61 6c 69 61 73 7d 20 5b 73 70 6c 69 74 20 l alias} [split
03b0: 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 24 6c 69 [string trim $li
03c0: 6e 65 5d 5d 20 7b 6c 61 70 70 65 6e 64 20 6c 69 ne]] {lappend li
03d0: 73 74 20 5b 73 74 72 69 6e 67 20 74 6f 6c 6f 77 st [string tolow
03e0: 65 72 20 24 63 69 70 68 65 72 5d 7d 7d 0a 09 72 er $cipher]}}..r
03f0: 65 74 75 72 6e 20 5b 6c 73 6f 72 74 20 2d 75 6e eturn [lsort -un
0400: 69 71 75 65 20 24 6c 69 73 74 5d 7d 0a 70 72 6f ique $list]}.pro
0410: 63 20 65 78 65 63 5f 67 65 74 5f 64 69 67 65 73 c exec_get_diges
0420: 74 73 20 7b 7d 20 7b 73 65 74 20 6c 69 73 74 20 ts {} {set list
0430: 5b 6c 69 73 74 5d 0a 09 73 65 74 20 64 61 74 61 [list]..set data
0440: 20 5b 65 78 65 63 20 6f 70 65 6e 73 73 6c 20 64 [exec openssl d
0450: 67 73 74 20 2d 6c 69 73 74 5d 0a 09 66 6f 72 65 gst -list]..fore
0460: 61 63 68 20 6c 69 6e 65 20 5b 73 70 6c 69 74 20 ach line [split
0470: 24 64 61 74 61 20 22 5c 6e 22 5d 20 7b 66 6f 72 $data "\n"] {for
0480: 65 61 63 68 20 64 69 67 65 73 74 20 24 6c 69 6e each digest $lin
0490: 65 20 7b 69 66 20 7b 5b 73 74 72 69 6e 67 20 6d e {if {[string m
04a0: 61 74 63 68 20 22 2d 2a 22 20 24 64 69 67 65 73 atch "-*" $diges
04b0: 74 5d 7d 20 7b 6c 61 70 70 65 6e 64 20 6c 69 73 t]} {lappend lis
04c0: 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 6c 65 t [string trimle
04d0: 66 74 20 24 64 69 67 65 73 74 20 22 2d 22 5d 7d ft $digest "-"]}
04e0: 7d 7d 0a 09 72 65 74 75 72 6e 20 5b 6c 73 6f 72 }}..return [lsor
04f0: 74 20 24 6c 69 73 74 5d 7d 0a 70 72 6f 63 20 65 t $list]}.proc e
0500: 78 65 63 5f 67 65 74 5f 6d 61 63 73 20 7b 7d 20 xec_get_macs {}
0510: 7b 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 63 6d {return [list cm
0520: 61 63 20 68 6d 61 63 5d 7d 0a 70 72 6f 63 20 6c ac hmac]}.proc l
0530: 69 73 74 5f 74 6f 6c 6f 77 65 72 20 7b 6c 69 73 ist_tolower {lis
0540: 74 7d 20 7b 73 65 74 20 72 65 73 75 6c 74 20 5b t} {set result [
0550: 6c 69 73 74 5d 0a 09 66 6f 72 65 61 63 68 20 65 list]..foreach e
0560: 6c 65 6d 65 6e 74 20 24 6c 69 73 74 20 7b 6c 61 lement $list {la
0570: 70 70 65 6e 64 20 72 65 73 75 6c 74 20 5b 73 74 ppend result [st
0580: 72 69 6e 67 20 74 6f 6c 6f 77 65 72 20 24 65 6c ring tolower $el
0590: 65 6d 65 6e 74 5d 7d 0a 09 72 65 74 75 72 6e 20 ement]}..return
05a0: 24 72 65 73 75 6c 74 7d 0a 0a 23 20 54 65 73 74 $result}..# Test
05b0: 20 6c 69 73 74 20 63 69 70 68 65 72 73 0a 0a 0a list ciphers...
05c0: 74 65 73 74 20 43 69 70 68 65 72 73 5f 4c 69 73 test Ciphers_Lis
05d0: 74 2d 31 2e 31 20 7b 41 6c 6c 7d 20 2d 62 6f 64 t-1.1 {All} -bod
05e0: 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 6c y {..lcompare [l
05f0: 73 6f 72 74 20 5b 65 78 65 63 5f 67 65 74 5f 63 sort [exec_get_c
0600: 69 70 68 65 72 73 5d 5d 20 5b 6c 69 73 74 5f 74 iphers]] [list_t
0610: 6f 6c 6f 77 65 72 20 5b 6c 73 6f 72 74 20 5b 3a olower [lsort [:
0620: 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 5d 5d 5d :tls::ciphers]]]
0630: 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b . } -result {
0640: 6d 69 73 73 69 6e 67 20 7b 72 63 35 20 72 63 35 missing {rc5 rc5
0650: 2d 63 62 63 20 72 63 35 2d 63 66 62 20 72 63 35 -cbc rc5-cfb rc5
0660: 2d 65 63 62 20 72 63 35 2d 6f 66 62 7d 20 75 6e -ecb rc5-ofb} un
0670: 65 78 70 65 63 74 65 64 20 7b 61 65 73 2d 31 32 expected {aes-12
0680: 38 2d 63 63 6d 20 61 65 73 2d 31 32 38 2d 67 63 8-ccm aes-128-gc
0690: 6d 20 61 65 73 2d 31 39 32 2d 63 63 6d 20 61 65 m aes-192-ccm ae
06a0: 73 2d 31 39 32 2d 67 63 6d 20 61 65 73 2d 32 35 s-192-gcm aes-25
06b0: 36 2d 63 63 6d 20 61 65 73 2d 32 35 36 2d 67 63 6-ccm aes-256-gc
06c0: 6d 7d 7d 0a 0a 23 20 54 65 73 74 20 6c 69 73 74 m}}..# Test list
06d0: 20 63 69 70 68 65 72 73 20 66 6f 72 20 70 72 6f ciphers for pro
06e0: 74 6f 63 6f 6c 73 0a 0a 0a 74 65 73 74 20 43 69 tocols...test Ci
06f0: 70 68 65 72 73 5f 42 79 5f 50 72 6f 74 6f 63 6f phers_By_Protoco
0700: 6c 2d 32 2e 31 20 7b 53 53 4c 32 7d 20 2d 63 6f l-2.1 {SSL2} -co
0710: 6e 73 74 72 61 69 6e 74 73 20 7b 73 73 6c 32 7d nstraints {ssl2}
0720: 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 -body {..lcompa
0730: 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 3a 22 re [exec_get ":"
0740: 20 63 69 70 68 65 72 73 20 2d 73 73 6c 32 5d 20 ciphers -ssl2]
0750: 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 [::tls::ciphers
0760: 73 73 6c 32 5d 0a 20 20 20 20 7d 20 2d 72 65 73 ssl2]. } -res
0770: 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 ult {missing {}
0780: 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a unexpected {}}..
0790: 74 65 73 74 20 43 69 70 68 65 72 73 5f 42 79 5f test Ciphers_By_
07a0: 50 72 6f 74 6f 63 6f 6c 2d 32 2e 32 20 7b 53 53 Protocol-2.2 {SS
07b0: 4c 33 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 L3} -constraints
07c0: 20 7b 73 73 6c 33 7d 20 2d 62 6f 64 79 20 7b 0a {ssl3} -body {.
07d0: 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f .lcompare [exec_
07e0: 67 65 74 20 22 3a 22 20 63 69 70 68 65 72 73 20 get ":" ciphers
07f0: 2d 73 73 6c 33 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 -ssl3] [::tls::c
0800: 69 70 68 65 72 73 20 73 73 6c 33 5d 0a 20 20 20 iphers ssl3].
0810: 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 73 } -result {miss
0820: 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 ing {} unexpecte
0830: 64 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 70 68 d {}}..test Ciph
0840: 65 72 73 5f 42 79 5f 50 72 6f 74 6f 63 6f 6c 2d ers_By_Protocol-
0850: 32 2e 33 20 7b 54 4c 53 31 2e 30 7d 20 2d 63 6f 2.3 {TLS1.0} -co
0860: 6e 73 74 72 61 69 6e 74 73 20 7b 74 6c 73 31 7d nstraints {tls1}
0870: 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 -body {..lcompa
0880: 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 3a 22 re [exec_get ":"
0890: 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 5d 20 ciphers -tls1]
08a0: 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 [::tls::ciphers
08b0: 74 6c 73 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 tls1]. } -res
08c0: 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 ult {missing {}
08d0: 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a unexpected {}}..
08e0: 74 65 73 74 20 43 69 70 68 65 72 73 5f 42 79 5f test Ciphers_By_
08f0: 50 72 6f 74 6f 63 6f 6c 2d 32 2e 34 20 7b 54 4c Protocol-2.4 {TL
0900: 53 31 2e 31 7d 20 2d 63 6f 6e 73 74 72 61 69 6e S1.1} -constrain
0910: 74 73 20 7b 74 6c 73 31 2e 31 7d 20 2d 62 6f 64 ts {tls1.1} -bod
0920: 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 y {..lcompare [e
0930: 78 65 63 5f 67 65 74 20 22 3a 22 20 63 69 70 68 xec_get ":" ciph
0940: 65 72 73 20 2d 74 6c 73 31 5f 31 5d 20 5b 3a 3a ers -tls1_1] [::
0950: 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 tls::ciphers tls
0960: 31 2e 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 1.1]. } -resu
0970: 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 lt {missing {} u
0980: 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 nexpected {}}..t
0990: 65 73 74 20 43 69 70 68 65 72 73 5f 42 79 5f 50 est Ciphers_By_P
09a0: 72 6f 74 6f 63 6f 6c 2d 32 2e 35 20 7b 54 4c 53 rotocol-2.5 {TLS
09b0: 31 2e 32 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 1.2} -constraint
09c0: 73 20 7b 74 6c 73 31 2e 32 7d 20 2d 62 6f 64 79 s {tls1.2} -body
09d0: 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 {..lcompare [ex
09e0: 65 63 5f 67 65 74 20 22 3a 22 20 63 69 70 68 65 ec_get ":" ciphe
09f0: 72 73 20 2d 74 6c 73 31 5f 32 5d 20 5b 3a 3a 74 rs -tls1_2] [::t
0a00: 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 ls::ciphers tls1
0a10: 2e 32 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c .2]. } -resul
0a20: 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e t {missing {} un
0a30: 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 65 expected {}}..te
0a40: 73 74 20 43 69 70 68 65 72 73 5f 42 79 5f 50 72 st Ciphers_By_Pr
0a50: 6f 74 6f 63 6f 6c 2d 32 2e 36 20 7b 54 4c 53 31 otocol-2.6 {TLS1
0a60: 2e 33 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 .3} -constraints
0a70: 20 7b 74 6c 73 31 2e 33 7d 20 2d 62 6f 64 79 20 {tls1.3} -body
0a80: 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 {..lcompare [exe
0a90: 63 5f 67 65 74 20 22 3a 22 20 63 69 70 68 65 72 c_get ":" cipher
0aa0: 73 20 2d 74 6c 73 31 5f 33 5d 20 5b 3a 3a 74 6c s -tls1_3] [::tl
0ab0: 73 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e s::ciphers tls1.
0ac0: 33 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 3]. } -result
0ad0: 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 {missing {} une
0ae0: 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 23 20 54 xpected {}}..# T
0af0: 65 73 74 20 63 69 70 68 65 72 20 64 65 73 63 72 est cipher descr
0b00: 69 70 74 69 6f 6e 73 0a 0a 0a 74 65 73 74 20 43 iptions...test C
0b10: 69 70 68 65 72 73 5f 57 69 74 68 5f 44 65 73 63 iphers_With_Desc
0b20: 72 69 70 74 69 6f 6e 73 2d 33 2e 31 20 7b 53 53 riptions-3.1 {SS
0b30: 4c 32 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 L2} -constraints
0b40: 20 7b 73 73 6c 32 7d 20 2d 62 6f 64 79 20 7b 0a {ssl2} -body {.
0b50: 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f .lcompare [exec_
0b60: 67 65 74 20 22 5c 72 5c 6e 22 20 63 69 70 68 65 get "\r\n" ciphe
0b70: 72 73 20 2d 73 73 6c 32 20 2d 76 5d 20 5b 73 70 rs -ssl2 -v] [sp
0b80: 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d lit [string trim
0b90: 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 [::tls::ciphers
0ba0: 20 73 73 6c 32 20 31 5d 5d 20 5c 6e 5d 0a 20 20 ssl2 1]] \n].
0bb0: 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 } -result {mis
0bc0: 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 sing {} unexpect
0bd0: 65 64 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 70 ed {}}..test Cip
0be0: 68 65 72 73 5f 57 69 74 68 5f 44 65 73 63 72 69 hers_With_Descri
0bf0: 70 74 69 6f 6e 73 2d 33 2e 32 20 7b 53 53 4c 33 ptions-3.2 {SSL3
0c00: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b } -constraints {
0c10: 73 73 6c 33 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c ssl3} -body {..l
0c20: 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 65 compare [exec_ge
0c30: 74 20 22 5c 72 5c 6e 22 20 63 69 70 68 65 72 73 t "\r\n" ciphers
0c40: 20 2d 73 73 6c 33 20 2d 76 5d 20 5b 73 70 6c 69 -ssl3 -v] [spli
0c50: 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b t [string trim [
0c60: 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 73 ::tls::ciphers s
0c70: 73 6c 33 20 31 5d 5d 20 5c 6e 5d 0a 20 20 20 20 sl3 1]] \n].
0c80: 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 73 69 } -result {missi
0c90: 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 64 ng {} unexpected
0ca0: 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 70 68 65 {}}..test Ciphe
0cb0: 72 73 5f 57 69 74 68 5f 44 65 73 63 72 69 70 74 rs_With_Descript
0cc0: 69 6f 6e 73 2d 33 2e 33 20 7b 54 4c 53 31 2e 30 ions-3.3 {TLS1.0
0cd0: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b } -constraints {
0ce0: 74 6c 73 31 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c tls1} -body {..l
0cf0: 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 65 compare [exec_ge
0d00: 74 20 22 5c 72 5c 6e 22 20 63 69 70 68 65 72 73 t "\r\n" ciphers
0d10: 20 2d 74 6c 73 31 20 2d 76 5d 20 5b 73 70 6c 69 -tls1 -v] [spli
0d20: 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b t [string trim [
0d30: 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 ::tls::ciphers t
0d40: 6c 73 31 20 31 5d 5d 20 5c 6e 5d 0a 20 20 20 20 ls1 1]] \n].
0d50: 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 73 69 } -result {missi
0d60: 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 64 ng {} unexpected
0d70: 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 70 68 65 {}}..test Ciphe
0d80: 72 73 5f 57 69 74 68 5f 44 65 73 63 72 69 70 74 rs_With_Descript
0d90: 69 6f 6e 73 2d 33 2e 34 20 7b 54 4c 53 31 2e 31 ions-3.4 {TLS1.1
0da0: 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b } -constraints {
0db0: 74 6c 73 31 2e 31 7d 20 2d 62 6f 64 79 20 7b 0a tls1.1} -body {.
0dc0: 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f .lcompare [exec_
0dd0: 67 65 74 20 22 5c 72 5c 6e 22 20 63 69 70 68 65 get "\r\n" ciphe
0de0: 72 73 20 2d 74 6c 73 31 5f 31 20 2d 76 5d 20 5b rs -tls1_1 -v] [
0df0: 73 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 72 split [string tr
0e00: 69 6d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 im [::tls::ciphe
0e10: 72 73 20 74 6c 73 31 2e 31 20 31 5d 5d 20 5c 6e rs tls1.1 1]] \n
0e20: 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 ]. } -result
0e30: 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 {missing {} unex
0e40: 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 74 pected {}}..test
0e50: 20 43 69 70 68 65 72 73 5f 57 69 74 68 5f 44 65 Ciphers_With_De
0e60: 73 63 72 69 70 74 69 6f 6e 73 2d 33 2e 35 20 7b scriptions-3.5 {
0e70: 54 4c 53 31 2e 32 7d 20 2d 63 6f 6e 73 74 72 61 TLS1.2} -constra
0e80: 69 6e 74 73 20 7b 74 6c 73 31 2e 32 7d 20 2d 62 ints {tls1.2} -b
0e90: 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 ody {..lcompare
0ea0: 5b 65 78 65 63 5f 67 65 74 20 22 5c 72 5c 6e 22 [exec_get "\r\n"
0eb0: 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 5f 32 ciphers -tls1_2
0ec0: 20 2d 76 5d 20 5b 73 70 6c 69 74 20 5b 73 74 72 -v] [split [str
0ed0: 69 6e 67 20 74 72 69 6d 20 5b 3a 3a 74 6c 73 3a ing trim [::tls:
0ee0: 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e 32 20 :ciphers tls1.2
0ef0: 31 5d 5d 20 5c 6e 5d 0a 20 20 20 20 7d 20 2d 72 1]] \n]. } -r
0f00: 65 73 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b esult {missing {
0f10: 7d 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d } unexpected {}}
0f20: 0a 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f 57 ..test Ciphers_W
0f30: 69 74 68 5f 44 65 73 63 72 69 70 74 69 6f 6e 73 ith_Descriptions
0f40: 2d 33 2e 36 20 7b 54 4c 53 31 2e 33 7d 20 2d 63 -3.6 {TLS1.3} -c
0f50: 6f 6e 73 74 72 61 69 6e 74 73 20 7b 74 6c 73 31 onstraints {tls1
0f60: 2e 33 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f .3} -body {..lco
0f70: 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 mpare [exec_get
0f80: 22 5c 72 5c 6e 22 20 63 69 70 68 65 72 73 20 2d "\r\n" ciphers -
0f90: 74 6c 73 31 5f 33 20 2d 76 5d 20 5b 73 70 6c 69 tls1_3 -v] [spli
0fa0: 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20 5b t [string trim [
0fb0: 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 ::tls::ciphers t
0fc0: 6c 73 31 2e 33 20 31 5d 5d 20 5c 6e 5d 0a 20 20 ls1.3 1]] \n].
0fd0: 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 } -result {mis
0fe0: 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 sing {} unexpect
0ff0: 65 64 20 7b 7d 7d 0a 0a 23 20 54 65 73 74 20 70 ed {}}..# Test p
1000: 72 6f 74 6f 63 6f 6c 20 73 70 65 63 69 66 69 63 rotocol specific
1010: 20 63 69 70 68 65 72 73 0a 0a 0a 74 65 73 74 20 ciphers...test
1020: 43 69 70 68 65 72 73 5f 50 72 6f 74 6f 63 6f 6c Ciphers_Protocol
1030: 5f 53 70 65 63 69 66 69 63 2d 34 2e 31 20 7b 53 _Specific-4.1 {S
1040: 53 4c 32 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 SL2} -constraint
1050: 73 20 7b 73 73 6c 32 7d 20 2d 62 6f 64 79 20 7b s {ssl2} -body {
1060: 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 ..lcompare [exec
1070: 5f 67 65 74 20 22 3a 22 20 63 69 70 68 65 72 73 _get ":" ciphers
1080: 20 2d 73 73 6c 32 20 2d 73 5d 20 5b 3a 3a 74 6c -ssl2 -s] [::tl
1090: 73 3a 3a 63 69 70 68 65 72 73 20 73 73 6c 32 20 s::ciphers ssl2
10a0: 30 20 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 0 1]. } -resu
10b0: 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 lt {missing {} u
10c0: 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 74 nexpected {}}..t
10d0: 65 73 74 20 43 69 70 68 65 72 73 5f 50 72 6f 74 est Ciphers_Prot
10e0: 6f 63 6f 6c 5f 53 70 65 63 69 66 69 63 2d 34 2e ocol_Specific-4.
10f0: 32 20 7b 53 53 4c 33 7d 20 2d 63 6f 6e 73 74 72 2 {SSL3} -constr
1100: 61 69 6e 74 73 20 7b 73 73 6c 33 7d 20 2d 62 6f aints {ssl3} -bo
1110: 64 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b dy {..lcompare [
1120: 65 78 65 63 5f 67 65 74 20 22 3a 22 20 63 69 70 exec_get ":" cip
1130: 68 65 72 73 20 2d 73 73 6c 33 20 2d 73 5d 20 5b hers -ssl3 -s] [
1140: 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 73 ::tls::ciphers s
1150: 73 6c 33 20 30 20 31 5d 0a 20 20 20 20 7d 20 2d sl3 0 1]. } -
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 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f }..test Ciphers_
1190: 50 72 6f 74 6f 63 6f 6c 5f 53 70 65 63 69 66 69 Protocol_Specifi
11a0: 63 2d 34 2e 33 20 7b 54 4c 53 31 2e 30 7d 20 2d c-4.3 {TLS1.0} -
11b0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 74 6c 73 constraints {tls
11c0: 31 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 1} -body {..lcom
11d0: 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 pare [exec_get "
11e0: 3a 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 :" ciphers -tls1
11f0: 20 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 -s] [::tls::cip
1200: 68 65 72 73 20 74 6c 73 31 20 30 20 31 5d 0a 20 hers tls1 0 1].
1210: 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 } -result {mi
1220: 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 ssing {} unexpec
1230: 74 65 64 20 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 ted {}}..test Ci
1240: 70 68 65 72 73 5f 50 72 6f 74 6f 63 6f 6c 5f 53 phers_Protocol_S
1250: 70 65 63 69 66 69 63 2d 34 2e 34 20 7b 54 4c 53 pecific-4.4 {TLS
1260: 31 2e 31 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 1.1} -constraint
1270: 73 20 7b 74 6c 73 31 2e 31 7d 20 2d 62 6f 64 79 s {tls1.1} -body
1280: 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 65 78 {..lcompare [ex
1290: 65 63 5f 67 65 74 20 22 3a 22 20 63 69 70 68 65 ec_get ":" ciphe
12a0: 72 73 20 2d 74 6c 73 31 5f 31 20 2d 73 5d 20 5b rs -tls1_1 -s] [
12b0: 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 ::tls::ciphers t
12c0: 6c 73 31 2e 31 20 30 20 31 5d 0a 20 20 20 20 7d ls1.1 0 1]. }
12d0: 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 73 69 6e -result {missin
12e0: 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 64 20 g {} unexpected
12f0: 7b 7d 7d 0a 0a 74 65 73 74 20 43 69 70 68 65 72 {}}..test Cipher
1300: 73 5f 50 72 6f 74 6f 63 6f 6c 5f 53 70 65 63 69 s_Protocol_Speci
1310: 66 69 63 2d 34 2e 35 20 7b 54 4c 53 31 2e 32 7d fic-4.5 {TLS1.2}
1320: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 74 -constraints {t
1330: 6c 73 31 2e 32 7d 20 2d 62 6f 64 79 20 7b 0a 09 ls1.2} -body {..
1340: 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 lcompare [exec_g
1350: 65 74 20 22 3a 22 20 63 69 70 68 65 72 73 20 2d et ":" ciphers -
1360: 74 6c 73 31 5f 32 20 2d 73 5d 20 5b 3a 3a 74 6c tls1_2 -s] [::tl
1370: 73 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e s::ciphers tls1.
1380: 32 20 30 20 31 5d 0a 20 20 20 20 7d 20 2d 72 65 2 0 1]. } -re
1390: 73 75 6c 74 20 7b 6d 69 73 73 69 6e 67 20 7b 7d sult {missing {}
13a0: 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a unexpected {}}.
13b0: 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f 50 72 .test Ciphers_Pr
13c0: 6f 74 6f 63 6f 6c 5f 53 70 65 63 69 66 69 63 2d otocol_Specific-
13d0: 34 2e 36 20 7b 54 4c 53 31 2e 33 7d 20 2d 63 6f 4.6 {TLS1.3} -co
13e0: 6e 73 74 72 61 69 6e 74 73 20 7b 74 6c 73 31 2e nstraints {tls1.
13f0: 33 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 3} -body {..lcom
1400: 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 pare [exec_get "
1410: 3a 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 :" ciphers -tls1
1420: 5f 33 20 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 _3 -s] [::tls::c
1430: 69 70 68 65 72 73 20 74 6c 73 31 2e 33 20 30 20 iphers tls1.3 0
1440: 31 5d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 1]. } -result
1450: 20 7b 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 {missing {} une
1460: 78 70 65 63 74 65 64 20 7b 7d 7d 0a 0a 23 20 43 xpected {}}..# C
1470: 69 70 68 65 72 73 20 45 72 72 6f 72 20 43 61 73 iphers Error Cas
1480: 65 73 0a 0a 0a 74 65 73 74 20 43 69 70 68 65 72 es...test Cipher
1490: 73 5f 45 72 72 6f 72 73 2d 35 2e 31 20 7b 54 6f s_Errors-5.1 {To
14a0: 6f 20 6d 61 6e 79 20 61 72 67 73 7d 20 2d 62 6f o many args} -bo
14b0: 64 79 20 7b 0a 09 3a 3a 74 6c 73 3a 3a 63 69 70 dy {..::tls::cip
14c0: 68 65 72 73 20 74 6f 6f 20 6d 61 6e 79 20 61 72 hers too many ar
14d0: 67 73 20 74 6f 20 70 61 73 73 0a 20 20 20 20 7d gs to pass. }
14e0: 20 2d 72 65 73 75 6c 74 20 7b 77 72 6f 6e 67 20 -result {wrong
14f0: 23 20 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 # args: should b
1500: 65 20 22 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 e "::tls::cipher
1510: 73 20 3f 70 72 6f 74 6f 63 6f 6c 3f 20 3f 76 65 s ?protocol? ?ve
1520: 72 62 6f 73 65 3f 20 3f 73 75 70 70 6f 72 74 65 rbose? ?supporte
1530: 64 3f 22 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 d?"} -returnCode
1540: 73 20 7b 31 7d 0a 0a 74 65 73 74 20 43 69 70 68 s {1}..test Ciph
1550: 65 72 73 5f 45 72 72 6f 72 73 2d 35 2e 32 20 7b ers_Errors-5.2 {
1560: 49 6e 76 61 6c 69 64 20 70 72 6f 74 6f 63 6f 6c Invalid protocol
1570: 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 6c 73 } -body {..::tls
1580: 3a 3a 63 69 70 68 65 72 73 20 62 6f 67 75 73 0a ::ciphers bogus.
1590: 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 62 } -result {b
15a0: 61 64 20 70 72 6f 74 6f 63 6f 6c 20 22 62 6f 67 ad protocol "bog
15b0: 75 73 22 3a 20 6d 75 73 74 20 62 65 20 73 73 6c us": must be ssl
15c0: 32 2c 20 73 73 6c 33 2c 20 74 6c 73 31 2c 20 74 2, ssl3, tls1, t
15d0: 6c 73 31 2e 31 2c 20 74 6c 73 31 2e 32 2c 20 6f ls1.1, tls1.2, o
15e0: 72 20 74 6c 73 31 2e 33 7d 20 2d 72 65 74 75 72 r tls1.3} -retur
15f0: 6e 43 6f 64 65 73 20 7b 31 7d 0a 0a 74 65 73 74 nCodes {1}..test
1600: 20 43 69 70 68 65 72 73 5f 45 72 72 6f 72 73 2d Ciphers_Errors-
1610: 35 2e 33 20 7b 49 6e 76 61 6c 69 64 20 76 65 72 5.3 {Invalid ver
1620: 62 6f 73 65 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a bose} -body {..:
1630: 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 6c :tls::ciphers tl
1640: 73 31 2e 33 20 62 6f 67 75 73 0a 20 20 20 20 7d s1.3 bogus. }
1650: 20 2d 72 65 73 75 6c 74 20 7b 65 78 70 65 63 74 -result {expect
1660: 65 64 20 62 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 ed boolean value
1670: 20 62 75 74 20 67 6f 74 20 22 62 6f 67 75 73 22 but got "bogus"
1680: 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 7b } -returnCodes {
1690: 31 7d 0a 0a 74 65 73 74 20 43 69 70 68 65 72 73 1}..test Ciphers
16a0: 5f 45 72 72 6f 72 73 2d 35 2e 34 20 7b 49 6e 76 _Errors-5.4 {Inv
16b0: 61 6c 69 64 20 73 75 70 70 6f 72 74 65 64 7d 20 alid supported}
16c0: 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 6c 73 3a 3a -body {..::tls::
16d0: 63 69 70 68 65 72 73 20 74 6c 73 31 2e 33 20 31 ciphers tls1.3 1
16e0: 20 62 6f 67 75 73 0a 20 20 20 20 7d 20 2d 72 65 bogus. } -re
16f0: 73 75 6c 74 20 7b 65 78 70 65 63 74 65 64 20 62 sult {expected b
1700: 6f 6f 6c 65 61 6e 20 76 61 6c 75 65 20 62 75 74 oolean value but
1710: 20 67 6f 74 20 22 62 6f 67 75 73 22 7d 20 2d 72 got "bogus"} -r
1720: 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d 0a 0a eturnCodes {1}..
1730: 74 65 73 74 20 43 69 70 68 65 72 73 5f 45 72 72 test Ciphers_Err
1740: 6f 72 73 2d 35 2e 35 20 7b 53 53 4c 32 7d 20 2d ors-5.5 {SSL2} -
1750: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 21 73 73 constraints {!ss
1760: 6c 32 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 l2} -body {..::t
1770: 6c 73 3a 3a 63 69 70 68 65 72 73 20 73 73 6c 32 ls::ciphers ssl2
1780: 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b . } -result {
1790: 73 73 6c 32 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e ssl2: protocol n
17a0: 6f 74 20 73 75 70 70 6f 72 74 65 64 7d 20 2d 72 ot supported} -r
17b0: 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d 0a 0a eturnCodes {1}..
17c0: 74 65 73 74 20 43 69 70 68 65 72 73 5f 45 72 72 test Ciphers_Err
17d0: 6f 72 73 2d 35 2e 36 20 7b 53 53 4c 33 7d 20 2d ors-5.6 {SSL3} -
17e0: 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 21 73 73 constraints {!ss
17f0: 6c 33 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 l3} -body {..::t
1800: 6c 73 3a 3a 63 69 70 68 65 72 73 20 73 73 6c 33 ls::ciphers ssl3
1810: 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b . } -result {
1820: 73 73 6c 33 3a 20 70 72 6f 74 6f 63 6f 6c 20 6e ssl3: protocol n
1830: 6f 74 20 73 75 70 70 6f 72 74 65 64 7d 20 2d 72 ot supported} -r
1840: 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d 0a 0a eturnCodes {1}..
1850: 74 65 73 74 20 43 69 70 68 65 72 73 5f 45 72 72 test Ciphers_Err
1860: 6f 72 73 2d 35 2e 37 20 7b 54 4c 53 31 2e 30 7d ors-5.7 {TLS1.0}
1870: 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 7b 21 -constraints {!
1880: 74 6c 73 31 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a tls1} -body {..:
1890: 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 74 6c :tls::ciphers tl
18a0: 73 31 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 s1. } -result
18b0: 20 7b 74 6c 73 31 3a 20 70 72 6f 74 6f 63 6f 6c {tls1: protocol
18c0: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 7d 20 not supported}
18d0: 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d -returnCodes {1}
18e0: 0a 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f 45 ..test Ciphers_E
18f0: 72 72 6f 72 73 2d 35 2e 38 20 7b 54 4c 53 31 2e rrors-5.8 {TLS1.
1900: 31 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 20 1} -constraints
1910: 7b 21 74 6c 73 31 2e 31 7d 20 2d 62 6f 64 79 20 {!tls1.1} -body
1920: 7b 0a 09 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 {..::tls::cipher
1930: 73 20 74 6c 73 31 2e 31 0a 20 20 20 20 7d 20 2d s tls1.1. } -
1940: 72 65 73 75 6c 74 20 7b 74 6c 73 31 2e 30 3a 20 result {tls1.0:
1950: 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 70 protocol not sup
1960: 70 6f 72 74 65 64 7d 20 2d 72 65 74 75 72 6e 43 ported} -returnC
1970: 6f 64 65 73 20 7b 31 7d 0a 0a 74 65 73 74 20 43 odes {1}..test C
1980: 69 70 68 65 72 73 5f 45 72 72 6f 72 73 2d 35 2e iphers_Errors-5.
1990: 39 20 7b 54 4c 53 31 2e 32 7d 20 2d 63 6f 6e 73 9 {TLS1.2} -cons
19a0: 74 72 61 69 6e 74 73 20 7b 21 74 6c 73 31 2e 32 traints {!tls1.2
19b0: 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 6c 73 } -body {..::tls
19c0: 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e 32 ::ciphers tls1.2
19d0: 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b . } -result {
19e0: 74 6c 73 31 2e 31 3a 20 70 72 6f 74 6f 63 6f 6c tls1.1: protocol
19f0: 20 6e 6f 74 20 73 75 70 70 6f 72 74 65 64 7d 20 not supported}
1a00: 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d -returnCodes {1}
1a10: 0a 0a 74 65 73 74 20 43 69 70 68 65 72 73 5f 45 ..test Ciphers_E
1a20: 72 72 6f 72 73 2d 35 2e 31 30 20 7b 54 4c 53 31 rrors-5.10 {TLS1
1a30: 2e 33 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 .3} -constraints
1a40: 20 7b 21 74 6c 73 31 2e 33 7d 20 2d 62 6f 64 79 {!tls1.3} -body
1a50: 20 7b 0a 09 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 {..::tls::ciphe
1a60: 72 73 20 74 6c 73 31 2e 33 0a 20 20 20 20 7d 20 rs tls1.3. }
1a70: 2d 72 65 73 75 6c 74 20 7b 74 6c 73 31 2e 33 3a -result {tls1.3:
1a80: 20 70 72 6f 74 6f 63 6f 6c 20 6e 6f 74 20 73 75 protocol not su
1a90: 70 70 6f 72 74 65 64 7d 20 2d 72 65 74 75 72 6e pported} -return
1aa0: 43 6f 64 65 73 20 7b 31 7d 0a 0a 23 20 54 65 73 Codes {1}..# Tes
1ab0: 74 20 43 69 70 68 65 72 20 49 6e 66 6f 0a 0a 0a t Cipher Info...
1ac0: 74 65 73 74 20 43 69 70 68 65 72 5f 49 6e 66 6f test Cipher_Info
1ad0: 2d 36 2e 31 20 7b 41 45 53 2d 32 35 36 2d 43 43 -6.1 {AES-256-CC
1ae0: 4d 7d 20 2d 62 6f 64 79 20 7b 0a 09 74 6c 73 3a M} -body {..tls:
1af0: 3a 63 69 70 68 65 72 20 61 65 73 2d 32 35 36 2d :cipher aes-256-
1b00: 63 63 6d 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c ccm. } -resul
1b10: 74 20 7b 6e 69 64 20 61 65 73 2d 32 35 36 2d 63 t {nid aes-256-c
1b20: 63 6d 20 6e 61 6d 65 20 69 64 2d 61 65 73 32 35 cm name id-aes25
1b30: 36 2d 43 43 4d 20 64 65 73 63 72 69 70 74 69 6f 6-CCM descriptio
1b40: 6e 20 7b 7d 20 62 6c 6f 63 6b 5f 73 69 7a 65 20 n {} block_size
1b50: 31 20 6b 65 79 5f 6c 65 6e 67 74 68 20 33 32 20 1 key_length 32
1b60: 69 76 5f 6c 65 6e 67 74 68 20 31 32 20 74 79 70 iv_length 12 typ
1b70: 65 20 61 65 73 2d 32 35 36 2d 63 63 6d 20 70 72 e aes-256-ccm pr
1b80: 6f 76 69 64 65 72 20 7b 7d 20 6d 6f 64 65 20 43 ovider {} mode C
1b90: 43 4d 20 66 6c 61 67 73 20 7b 7b 56 61 72 69 61 CM flags {{Varia
1ba0: 62 6c 65 20 4c 65 6e 67 74 68 7d 20 30 20 7b 41 ble Length} 0 {A
1bb0: 6c 77 61 79 73 20 43 61 6c 6c 20 49 6e 69 74 7d lways Call Init}
1bc0: 20 31 20 7b 43 75 73 74 6f 6d 20 49 56 7d 20 31 1 {Custom IV} 1
1bd0: 20 7b 43 6f 6e 74 72 6f 6c 20 49 6e 69 74 7d 20 {Control Init}
1be0: 31 20 7b 43 75 73 74 6f 6d 20 43 69 70 68 65 72 1 {Custom Cipher
1bf0: 7d 20 31 20 7b 41 45 41 44 20 43 69 70 68 65 72 } 1 {AEAD Cipher
1c00: 7d 20 31 20 7b 43 75 73 74 6f 6d 20 43 6f 70 79 } 1 {Custom Copy
1c10: 7d 20 31 20 7b 4e 6f 6e 20 46 49 50 53 20 41 6c } 1 {Non FIPS Al
1c20: 6c 6f 77 7d 20 30 7d 7d 0a 0a 23 20 54 65 73 74 low} 0}}..# Test
1c30: 20 6c 69 73 74 20 64 69 67 65 73 74 73 0a 0a 0a list digests...
1c40: 74 65 73 74 20 44 69 67 65 73 74 73 5f 4c 69 73 test Digests_Lis
1c50: 74 2d 37 2e 31 20 7b 41 6c 6c 7d 20 2d 62 6f 64 t-7.1 {All} -bod
1c60: 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 5b 6c y {..lcompare [l
1c70: 73 6f 72 74 20 5b 65 78 65 63 5f 67 65 74 5f 64 sort [exec_get_d
1c80: 69 67 65 73 74 73 5d 5d 20 5b 6c 73 6f 72 74 20 igests]] [lsort
1c90: 5b 74 6c 73 3a 3a 64 69 67 65 73 74 73 5d 5d 0a [tls::digests]].
1ca0: 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d } -result {m
1cb0: 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 issing {} unexpe
1cc0: 63 74 65 64 20 7b 7d 7d 0a 0a 23 20 54 65 73 74 cted {}}..# Test
1cd0: 20 44 69 67 65 73 74 20 49 6e 66 6f 0a 0a 0a 74 Digest Info...t
1ce0: 65 73 74 20 44 69 67 65 73 74 5f 49 6e 66 6f 2d est Digest_Info-
1cf0: 38 2e 31 20 7b 6d 64 35 7d 20 2d 62 6f 64 79 20 8.1 {md5} -body
1d00: 7b 0a 09 74 6c 73 3a 3a 64 69 67 65 73 74 73 20 {..tls::digests
1d10: 6d 64 35 0a 20 20 20 20 7d 20 2d 72 65 73 75 6c md5. } -resul
1d20: 74 20 7b 6e 61 6d 65 20 4d 44 35 20 64 65 73 63 t {name MD5 desc
1d30: 72 69 70 74 69 6f 6e 20 7b 7d 20 73 69 7a 65 20 ription {} size
1d40: 31 36 20 62 6c 6f 63 6b 5f 73 69 7a 65 20 36 34 16 block_size 64
1d50: 20 70 72 6f 76 69 64 65 72 20 7b 7d 20 74 79 70 provider {} typ
1d60: 65 20 6d 64 35 20 70 6b 65 79 5f 74 79 70 65 20 e md5 pkey_type
1d70: 6d 64 35 57 69 74 68 52 53 41 45 6e 63 72 79 70 md5WithRSAEncryp
1d80: 74 69 6f 6e 20 66 6c 61 67 73 20 7b 4f 6e 65 2d tion flags {One-
1d90: 73 68 6f 74 20 30 20 58 4f 46 20 30 20 44 69 67 shot 0 XOF 0 Dig
1da0: 65 73 74 41 6c 67 6f 72 69 74 68 6d 49 64 5f 4e estAlgorithmId_N
1db0: 55 4c 4c 20 30 20 44 69 67 65 73 74 41 6c 67 6f ULL 0 DigestAlgo
1dc0: 72 69 74 68 6d 49 64 5f 41 62 73 63 65 6e 74 20 rithmId_Abscent
1dd0: 30 20 44 69 67 65 73 74 41 6c 67 6f 72 69 74 68 0 DigestAlgorith
1de0: 6d 49 64 5f 43 75 73 74 6f 6d 20 30 20 46 49 50 mId_Custom 0 FIP
1df0: 53 20 30 7d 7d 0a 0a 23 20 54 65 73 74 20 6c 69 S 0}}..# Test li
1e00: 73 74 20 4d 41 43 73 0a 0a 0a 74 65 73 74 20 4d st MACs...test M
1e10: 41 43 5f 4c 69 73 74 2d 39 2e 31 20 7b 41 6c 6c AC_List-9.1 {All
1e20: 7d 20 2d 62 6f 64 79 20 7b 0a 09 6c 63 6f 6d 70 } -body {..lcomp
1e30: 61 72 65 20 5b 65 78 65 63 5f 67 65 74 5f 6d 61 are [exec_get_ma
1e40: 63 73 5d 20 5b 74 6c 73 3a 3a 6d 61 63 73 5d 0a cs] [tls::macs].
1e50: 20 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d } -result {m
1e60: 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 issing {} unexpe
1e70: 63 74 65 64 20 7b 7d 7d 0a 0a 23 20 54 65 73 74 cted {}}..# Test
1e80: 20 6c 69 73 74 20 70 72 6f 74 6f 63 6f 6c 73 0a list protocols.
1e90: 0a 0a 74 65 73 74 20 50 72 6f 74 6f 63 6f 6c 73 ..test Protocols
1ea0: 2d 31 30 2e 31 20 7b 41 6c 6c 7d 20 2d 62 6f 64 -10.1 {All} -bod
1eb0: 79 20 7b 0a 09 6c 63 6f 6d 70 61 72 65 20 24 3a y {..lcompare $:
1ec0: 3a 70 72 6f 74 6f 63 6f 6c 73 20 5b 3a 3a 74 6c :protocols [::tl
1ed0: 73 3a 3a 70 72 6f 74 6f 63 6f 6c 73 5d 0a 20 20 s::protocols].
1ee0: 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 6d 69 73 } -result {mis
1ef0: 73 69 6e 67 20 7b 73 73 6c 32 20 73 73 6c 33 7d sing {ssl2 ssl3}
1f00: 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 7d 0a unexpected {}}.
1f10: 0a 23 20 54 65 73 74 20 73 68 6f 77 20 76 65 72 .# Test show ver
1f20: 73 69 6f 6e 0a 0a 0a 74 65 73 74 20 56 65 72 73 sion...test Vers
1f30: 69 6f 6e 2d 31 31 2e 31 20 7b 41 6c 6c 7d 20 2d ion-11.1 {All} -
1f40: 62 6f 64 79 20 7b 0a 09 3a 3a 74 6c 73 3a 3a 76 body {..::tls::v
1f50: 65 72 73 69 6f 6e 0a 20 20 20 20 7d 20 2d 6d 61 ersion. } -ma
1f60: 74 63 68 20 7b 67 6c 6f 62 7d 20 2d 72 65 73 75 tch {glob} -resu
1f70: 6c 74 20 7b 2a 7d 0a 0a 74 65 73 74 20 56 65 72 lt {*}..test Ver
1f80: 73 69 6f 6e 2d 31 31 2e 32 20 7b 4f 70 65 6e 53 sion-11.2 {OpenS
1f90: 53 4c 7d 20 2d 63 6f 6e 73 74 72 61 69 6e 74 73 SL} -constraints
1fa0: 20 7b 4f 70 65 6e 53 53 4c 7d 20 2d 62 6f 64 79 {OpenSSL} -body
1fb0: 20 7b 0a 09 3a 3a 74 6c 73 3a 3a 76 65 72 73 69 {..::tls::versi
1fc0: 6f 6e 0a 20 20 20 20 7d 20 2d 6d 61 74 63 68 20 on. } -match
1fd0: 7b 67 6c 6f 62 7d 20 2d 72 65 73 75 6c 74 20 7b {glob} -result {
1fe0: 4f 70 65 6e 53 53 4c 2a 7d 0a 0a 23 20 45 72 72 OpenSSL*}..# Err
1ff0: 6f 72 20 43 61 73 65 73 0a 0a 0a 74 65 73 74 20 or Cases...test
2000: 45 72 72 6f 72 5f 43 61 73 65 73 2d 31 32 2e 31 Error_Cases-12.1
2010: 20 7b 44 69 67 65 73 74 73 20 54 6f 6f 20 6d 61 {Digests Too ma
2020: 6e 79 20 61 72 67 73 7d 20 2d 62 6f 64 79 20 7b ny args} -body {
2030: 0a 09 3a 3a 74 6c 73 3a 3a 64 69 67 65 73 74 73 ..::tls::digests
2040: 20 74 6f 6f 20 6d 61 6e 79 20 61 72 67 73 0a 20 too many args.
2050: 20 20 20 7d 20 2d 72 65 73 75 6c 74 20 7b 77 72 } -result {wr
2060: 6f 6e 67 20 23 20 61 72 67 73 3a 20 73 68 6f 75 ong # args: shou
2070: 6c 64 20 62 65 20 22 3a 3a 74 6c 73 3a 3a 64 69 ld be "::tls::di
2080: 67 65 73 74 73 22 7d 20 2d 72 65 74 75 72 6e 43 gests"} -returnC
2090: 6f 64 65 73 20 7b 31 7d 0a 0a 74 65 73 74 20 45 odes {1}..test E
20a0: 72 72 6f 72 5f 43 61 73 65 73 2d 31 32 2e 32 20 rror_Cases-12.2
20b0: 7b 4d 41 43 73 20 54 6f 6f 20 6d 61 6e 79 20 61 {MACs Too many a
20c0: 72 67 73 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a 3a rgs} -body {..::
20d0: 74 6c 73 3a 3a 6d 61 63 73 20 74 6f 6f 20 6d 61 tls::macs too ma
20e0: 6e 79 20 61 72 67 73 0a 20 20 20 20 7d 20 2d 72 ny args. } -r
20f0: 65 73 75 6c 74 20 7b 77 72 6f 6e 67 20 23 20 61 esult {wrong # a
2100: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 rgs: should be "
2110: 3a 3a 74 6c 73 3a 3a 6d 61 63 73 22 7d 20 2d 72 ::tls::macs"} -r
2120: 65 74 75 72 6e 43 6f 64 65 73 20 7b 31 7d 0a 0a eturnCodes {1}..
2130: 74 65 73 74 20 45 72 72 6f 72 5f 43 61 73 65 73 test Error_Cases
2140: 2d 31 32 2e 33 20 7b 50 72 6f 74 6f 63 6f 6c 73 -12.3 {Protocols
2150: 20 54 6f 6f 20 6d 61 6e 79 20 61 72 67 73 7d 20 Too many args}
2160: 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 6c 73 3a 3a -body {..::tls::
2170: 70 72 6f 74 6f 63 6f 6c 73 20 74 6f 6f 20 6d 61 protocols too ma
2180: 6e 79 20 61 72 67 73 0a 20 20 20 20 7d 20 2d 72 ny args. } -r
2190: 65 73 75 6c 74 20 7b 77 72 6f 6e 67 20 23 20 61 esult {wrong # a
21a0: 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 22 rgs: should be "
21b0: 3a 3a 74 6c 73 3a 3a 70 72 6f 74 6f 63 6f 6c 73 ::tls::protocols
21c0: 22 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 "} -returnCodes
21d0: 7b 31 7d 0a 0a 74 65 73 74 20 45 72 72 6f 72 5f {1}..test Error_
21e0: 43 61 73 65 73 2d 31 32 2e 34 20 7b 56 65 72 73 Cases-12.4 {Vers
21f0: 69 6f 6e 20 54 6f 6f 20 6d 61 6e 79 20 61 72 67 ion Too many arg
2200: 73 7d 20 2d 62 6f 64 79 20 7b 0a 09 3a 3a 74 6c s} -body {..::tl
2210: 73 3a 3a 76 65 72 73 69 6f 6e 20 74 6f 6f 20 6d s::version too m
2220: 61 6e 79 20 61 72 67 73 0a 20 20 20 20 7d 20 2d any args. } -
2230: 72 65 73 75 6c 74 20 7b 77 72 6f 6e 67 20 23 20 result {wrong #
2240: 61 72 67 73 3a 20 73 68 6f 75 6c 64 20 62 65 20 args: should be
2250: 22 3a 3a 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 22 "::tls::version"
2260: 7d 20 2d 72 65 74 75 72 6e 43 6f 64 65 73 20 7b } -returnCodes {
2270: 31 7d 0a 0a 23 20 43 6c 65 61 6e 75 70 0a 3a 3a 1}..# Cleanup.::
2280: 74 63 6c 74 65 73 74 3a 3a 63 6c 65 61 6e 75 70 tcltest::cleanup
2290: 54 65 73 74 73 0a 72 65 74 75 72 6e 0a Tests.return.