Hex Artifact Content

Artifact 54d3f899a941e837e215bceb8be1faaf90ef6afbb5e43922225572788332146f:


0000: 23 20 47 72 6f 75 70 2c 4e 61 6d 65 2c 43 6f 6e  # Group,Name,Con
0010: 73 74 72 61 69 6e 74 73 2c 53 65 74 75 70 2c 42  straints,Setup,B
0020: 6f 64 79 2c 43 6c 65 61 6e 75 70 2c 4d 61 74 63  ody,Cleanup,Matc
0030: 68 2c 52 65 73 75 6c 74 2c 4f 75 74 70 75 74 2c  h,Result,Output,
0040: 45 72 72 6f 72 20 4f 75 74 70 75 74 2c 52 65 74  Error Output,Ret
0050: 75 72 6e 20 43 6f 64 65 73 0a 63 6f 6d 6d 61 6e  urn Codes.comman
0060: 64 2c 70 61 63 6b 61 67 65 20 72 65 71 75 69 72  d,package requir
0070: 65 20 74 6c 73 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63  e tls,,,,,,,,,.c
0080: 6f 6d 6d 61 6e 64 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c  ommand,,,,,,,,,,
0090: 0a 63 6f 6d 6d 61 6e 64 2c 23 20 4d 61 6b 65 20  .command,# Make 
00a0: 73 75 72 65 20 70 61 74 68 20 69 6e 63 6c 75 64  sure path includ
00b0: 65 73 20 6c 6f 63 61 74 69 6f 6e 20 6f 66 20 4f  es location of O
00c0: 70 65 6e 53 53 4c 20 65 78 65 63 75 74 61 62 6c  penSSL executabl
00d0: 65 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63 6f 6d 6d 61  e,,,,,,,,,.comma
00e0: 6e 64 2c 22 69 66 20 7b 5b 69 6e 66 6f 20 65 78  nd,"if {[info ex
00f0: 69 73 74 73 20 3a 3a 65 6e 76 28 4f 50 45 4e 53  ists ::env(OPENS
0100: 53 4c 29 5d 7d 20 7b 73 65 74 20 3a 3a 65 6e 76  SL)]} {set ::env
0110: 28 70 61 74 68 29 20 5b 73 74 72 69 6e 67 20 63  (path) [string c
0120: 61 74 20 5b 66 69 6c 65 20 6a 6f 69 6e 20 24 3a  at [file join $:
0130: 3a 65 6e 76 28 4f 50 45 4e 53 53 4c 29 20 62 69  :env(OPENSSL) bi
0140: 6e 20 22 22 3b 22 22 5d 20 24 3a 3a 65 6e 76 28  n "";""] $::env(
0150: 70 61 74 68 29 5d 7d 22 2c 2c 2c 2c 2c 2c 2c 2c  path)]}",,,,,,,,
0160: 2c 0a 63 6f 6d 6d 61 6e 64 2c 2c 2c 2c 2c 2c 2c  ,.command,,,,,,,
0170: 2c 2c 2c 0a 63 6f 6d 6d 61 6e 64 2c 23 20 43 6f  ,,,.command,# Co
0180: 6e 73 74 72 61 69 6e 74 73 2c 2c 2c 2c 2c 2c 2c  nstraints,,,,,,,
0190: 2c 2c 0a 63 6f 6d 6d 61 6e 64 2c 73 65 74 20 70  ,,.command,set p
01a0: 72 6f 74 6f 63 6f 6c 73 20 5b 6c 69 73 74 20 73  rotocols [list s
01b0: 73 6c 32 20 73 73 6c 33 20 74 6c 73 31 20 74 6c  sl2 ssl3 tls1 tl
01c0: 73 31 2e 31 20 74 6c 73 31 2e 32 20 74 6c 73 31  s1.1 tls1.2 tls1
01d0: 2e 33 5d 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63 6f 6d  .3],,,,,,,,,.com
01e0: 6d 61 6e 64 2c 66 6f 72 65 61 63 68 20 70 72 6f  mand,foreach pro
01f0: 74 6f 63 6f 6c 20 24 70 72 6f 74 6f 63 6f 6c 73  tocol $protocols
0200: 20 7b 3a 3a 74 63 6c 74 65 73 74 3a 3a 74 65 73   {::tcltest::tes
0210: 74 43 6f 6e 73 74 72 61 69 6e 74 20 24 70 72 6f  tConstraint $pro
0220: 74 6f 63 6f 6c 20 30 7d 2c 2c 2c 2c 2c 2c 2c 2c  tocol 0},,,,,,,,
0230: 2c 0a 63 6f 6d 6d 61 6e 64 2c 66 6f 72 65 61 63  ,.command,foreac
0240: 68 20 70 72 6f 74 6f 63 6f 6c 20 5b 3a 3a 74 6c  h protocol [::tl
0250: 73 3a 3a 70 72 6f 74 6f 63 6f 6c 73 5d 20 7b 3a  s::protocols] {:
0260: 3a 74 63 6c 74 65 73 74 3a 3a 74 65 73 74 43 6f  :tcltest::testCo
0270: 6e 73 74 72 61 69 6e 74 20 24 70 72 6f 74 6f 63  nstraint $protoc
0280: 6f 6c 20 31 7d 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63  ol 1},,,,,,,,,.c
0290: 6f 6d 6d 61 6e 64 2c 22 3a 3a 74 63 6c 74 65 73  ommand,"::tcltes
02a0: 74 3a 3a 74 65 73 74 43 6f 6e 73 74 72 61 69 6e  t::testConstrain
02b0: 74 20 4f 70 65 6e 53 53 4c 20 5b 73 74 72 69 6e  t OpenSSL [strin
02c0: 67 20 6d 61 74 63 68 20 22 22 4f 70 65 6e 53 53  g match ""OpenSS
02d0: 4c 2a 22 22 20 5b 3a 3a 74 6c 73 3a 3a 76 65 72  L*"" [::tls::ver
02e0: 73 69 6f 6e 5d 5d 22 2c 2c 2c 2c 2c 2c 2c 2c 2c  sion]]",,,,,,,,,
02f0: 0a 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63 6f 6d 6d  .,,,,,,,,,,.comm
0300: 61 6e 64 2c 23 20 48 65 6c 70 65 72 20 66 75 6e  and,# Helper fun
0310: 63 74 69 6f 6e 73 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a  ctions,,,,,,,,,.
0320: 63 6f 6d 6d 61 6e 64 2c 22 70 72 6f 63 20 6c 63  command,"proc lc
0330: 6f 6d 70 61 72 65 20 7b 6c 69 73 74 31 20 6c 69  ompare {list1 li
0340: 73 74 32 7d 20 7b 0a 20 20 20 20 73 65 74 20 6d  st2} {.    set m
0350: 20 22 22 22 22 0a 20 20 20 20 73 65 74 20 75 20   """".    set u 
0360: 22 22 22 22 0a 20 20 20 20 66 6f 72 65 61 63 68  """".    foreach
0370: 20 69 20 24 6c 69 73 74 31 20 7b 0a 20 20 20 20   i $list1 {.    
0380: 20 20 20 20 69 66 20 7b 24 69 20 6e 69 20 24 6c      if {$i ni $l
0390: 69 73 74 32 7d 20 7b 0a 20 20 20 20 20 20 20 20  ist2} {.        
03a0: 20 20 20 20 6c 61 70 70 65 6e 64 20 6d 20 24 69      lappend m $i
03b0: 0a 20 20 20 20 20 20 20 20 7d 0a 20 20 20 20 7d  .        }.    }
03c0: 0a 20 20 20 20 66 6f 72 65 61 63 68 20 69 20 24  .    foreach i $
03d0: 6c 69 73 74 32 20 7b 0a 20 20 20 20 20 20 20 20  list2 {.        
03e0: 69 66 20 7b 24 69 20 6e 69 20 24 6c 69 73 74 31  if {$i ni $list1
03f0: 7d 20 7b 0a 20 20 20 20 20 20 20 20 20 20 20 20  } {.            
0400: 6c 61 70 70 65 6e 64 20 75 20 24 69 0a 20 20 20  lappend u $i.   
0410: 20 20 20 20 20 7d 0a 20 20 20 20 7d 0a 20 20 20       }.    }.   
0420: 20 72 65 74 75 72 6e 20 5b 6c 69 73 74 20 22 22   return [list ""
0430: 6d 69 73 73 69 6e 67 22 22 20 24 6d 20 22 22 75  missing"" $m ""u
0440: 6e 65 78 70 65 63 74 65 64 22 22 20 24 75 5d 0a  nexpected"" $u].
0450: 7d 0a 22 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63 6f 6d  }.",,,,,,,,,.com
0460: 6d 61 6e 64 2c 70 72 6f 63 20 65 78 65 63 5f 67  mand,proc exec_g
0470: 65 74 20 7b 64 65 6c 69 6d 20 61 72 67 73 7d 20  et {delim args} 
0480: 7b 72 65 74 75 72 6e 20 5b 73 70 6c 69 74 20 5b  {return [split [
0490: 65 78 65 63 20 6f 70 65 6e 73 73 6c 20 7b 2a 7d  exec openssl {*}
04a0: 24 61 72 67 73 5d 20 24 64 65 6c 69 6d 5d 7d 2c  $args] $delim]},
04b0: 2c 2c 2c 2c 2c 2c 2c 2c 0a 2c 2c 2c 2c 2c 2c 2c  ,,,,,,,,.,,,,,,,
04c0: 2c 2c 2c 0a 63 6f 6d 6d 61 6e 64 2c 23 20 54 65  ,,,.command,# Te
04d0: 73 74 20 70 72 6f 74 6f 63 6f 6c 73 2c 2c 2c 2c  st protocols,,,,
04e0: 2c 2c 2c 2c 2c 0a 50 72 6f 74 6f 63 6f 6c 73 2c  ,,,,,.Protocols,
04f0: 41 6c 6c 2c 2c 2c 6c 63 6f 6d 70 61 72 65 20 24  All,,,lcompare $
0500: 70 72 6f 74 6f 63 6f 6c 73 20 5b 3a 3a 74 6c 73  protocols [::tls
0510: 3a 3a 70 72 6f 74 6f 63 6f 6c 73 5d 2c 2c 2c 6d  ::protocols],,,m
0520: 69 73 73 69 6e 67 20 7b 73 73 6c 32 20 73 73 6c  issing {ssl2 ssl
0530: 33 7d 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d  3} unexpected {}
0540: 2c 2c 2c 0a 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63  ,,,.,,,,,,,,,,.c
0550: 6f 6d 6d 61 6e 64 2c 23 20 54 65 73 74 20 63 69  ommand,# Test ci
0560: 70 68 65 72 73 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 43  phers,,,,,,,,,.C
0570: 69 70 68 65 72 73 20 42 79 20 50 72 6f 74 6f 63  iphers By Protoc
0580: 6f 6c 2c 53 53 4c 32 2c 73 73 6c 32 2c 2c 22 6c  ol,SSL2,ssl2,,"l
0590: 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 65  compare [exec_ge
05a0: 74 20 22 22 3a 22 22 20 63 69 70 68 65 72 73 20  t "":"" ciphers 
05b0: 2d 73 73 6c 32 5d 20 5b 3a 3a 74 6c 73 3a 3a 63  -ssl2] [::tls::c
05c0: 69 70 68 65 72 73 20 73 73 6c 32 5d 22 2c 2c 2c  iphers ssl2]",,,
05d0: 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70  missing {} unexp
05e0: 65 63 74 65 64 20 7b 7d 2c 2c 2c 0a 43 69 70 68  ected {},,,.Ciph
05f0: 65 72 73 20 42 79 20 50 72 6f 74 6f 63 6f 6c 2c  ers By Protocol,
0600: 53 53 4c 33 2c 73 73 6c 33 2c 2c 22 6c 63 6f 6d  SSL3,ssl3,,"lcom
0610: 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22  pare [exec_get "
0620: 22 3a 22 22 20 63 69 70 68 65 72 73 20 2d 73 73  ":"" ciphers -ss
0630: 6c 33 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68  l3] [::tls::ciph
0640: 65 72 73 20 73 73 6c 33 5d 22 2c 2c 2c 6d 69 73  ers ssl3]",,,mis
0650: 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74  sing {} unexpect
0660: 65 64 20 7b 7d 2c 2c 2c 0a 43 69 70 68 65 72 73  ed {},,,.Ciphers
0670: 20 42 79 20 50 72 6f 74 6f 63 6f 6c 2c 54 4c 53   By Protocol,TLS
0680: 31 2e 30 2c 74 6c 73 31 2c 2c 22 6c 63 6f 6d 70  1.0,tls1,,"lcomp
0690: 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 22  are [exec_get ""
06a0: 3a 22 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73  :"" ciphers -tls
06b0: 31 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65  1] [::tls::ciphe
06c0: 72 73 20 74 6c 73 31 5d 22 2c 2c 2c 6d 69 73 73  rs tls1]",,,miss
06d0: 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65  ing {} unexpecte
06e0: 64 20 7b 7d 2c 2c 2c 0a 43 69 70 68 65 72 73 20  d {},,,.Ciphers 
06f0: 42 79 20 50 72 6f 74 6f 63 6f 6c 2c 54 4c 53 31  By Protocol,TLS1
0700: 2e 31 2c 74 6c 73 31 2e 31 2c 2c 22 6c 63 6f 6d  .1,tls1.1,,"lcom
0710: 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22  pare [exec_get "
0720: 22 3a 22 22 20 63 69 70 68 65 72 73 20 2d 74 6c  ":"" ciphers -tl
0730: 73 31 5f 31 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69  s1_1] [::tls::ci
0740: 70 68 65 72 73 20 74 6c 73 31 2e 31 5d 22 2c 2c  phers tls1.1]",,
0750: 2c 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78  ,missing {} unex
0760: 70 65 63 74 65 64 20 7b 7d 2c 2c 2c 0a 43 69 70  pected {},,,.Cip
0770: 68 65 72 73 20 42 79 20 50 72 6f 74 6f 63 6f 6c  hers By Protocol
0780: 2c 54 4c 53 31 2e 32 2c 74 6c 73 31 2e 32 2c 2c  ,TLS1.2,tls1.2,,
0790: 22 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f  "lcompare [exec_
07a0: 67 65 74 20 22 22 3a 22 22 20 63 69 70 68 65 72  get "":"" cipher
07b0: 73 20 2d 74 6c 73 31 5f 32 5d 20 5b 3a 3a 74 6c  s -tls1_2] [::tl
07c0: 73 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e  s::ciphers tls1.
07d0: 32 5d 22 2c 2c 2c 6d 69 73 73 69 6e 67 20 7b 7d  2]",,,missing {}
07e0: 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 2c 2c   unexpected {},,
07f0: 2c 0a 43 69 70 68 65 72 73 20 42 79 20 50 72 6f  ,.Ciphers By Pro
0800: 74 6f 63 6f 6c 2c 54 4c 53 31 2e 33 2c 74 6c 73  tocol,TLS1.3,tls
0810: 31 2e 33 2c 2c 22 6c 63 6f 6d 70 61 72 65 20 5b  1.3,,"lcompare [
0820: 65 78 65 63 5f 67 65 74 20 22 22 3a 22 22 20 63  exec_get "":"" c
0830: 69 70 68 65 72 73 20 2d 74 6c 73 31 5f 33 5d 20  iphers -tls1_3] 
0840: 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20  [::tls::ciphers 
0850: 74 6c 73 31 2e 33 5d 22 2c 2c 2c 6d 69 73 73 69  tls1.3]",,,missi
0860: 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 64  ng {} unexpected
0870: 20 7b 7d 2c 2c 2c 0a 2c 2c 2c 2c 2c 2c 2c 2c 2c   {},,,.,,,,,,,,,
0880: 2c 0a 63 6f 6d 6d 61 6e 64 2c 23 20 54 65 73 74  ,.command,# Test
0890: 20 63 69 70 68 65 72 20 64 65 73 63 72 69 70 74   cipher descript
08a0: 69 6f 6e 73 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 43 69  ions,,,,,,,,,.Ci
08b0: 70 68 65 72 73 20 57 69 74 68 20 44 65 73 63 72  phers With Descr
08c0: 69 70 74 69 6f 6e 73 2c 53 53 4c 32 2c 73 73 6c  iptions,SSL2,ssl
08d0: 32 2c 2c 22 6c 63 6f 6d 70 61 72 65 20 5b 65 78  2,,"lcompare [ex
08e0: 65 63 5f 67 65 74 20 22 22 5c 72 5c 6e 22 22 20  ec_get ""\r\n"" 
08f0: 63 69 70 68 65 72 73 20 2d 73 73 6c 32 20 2d 76  ciphers -ssl2 -v
0900: 5d 20 5b 73 70 6c 69 74 20 5b 73 74 72 69 6e 67  ] [split [string
0910: 20 74 72 69 6d 20 5b 3a 3a 74 6c 73 3a 3a 63 69   trim [::tls::ci
0920: 70 68 65 72 73 20 73 73 6c 32 20 31 5d 5d 20 5c  phers ssl2 1]] \
0930: 6e 5d 22 2c 2c 2c 6d 69 73 73 69 6e 67 20 7b 7d  n]",,,missing {}
0940: 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 2c 2c   unexpected {},,
0950: 2c 0a 43 69 70 68 65 72 73 20 57 69 74 68 20 44  ,.Ciphers With D
0960: 65 73 63 72 69 70 74 69 6f 6e 73 2c 53 53 4c 33  escriptions,SSL3
0970: 2c 73 73 6c 33 2c 2c 22 6c 63 6f 6d 70 61 72 65  ,ssl3,,"lcompare
0980: 20 5b 65 78 65 63 5f 67 65 74 20 22 22 5c 72 5c   [exec_get ""\r\
0990: 6e 22 22 20 63 69 70 68 65 72 73 20 2d 73 73 6c  n"" ciphers -ssl
09a0: 33 20 2d 76 5d 20 5b 73 70 6c 69 74 20 5b 73 74  3 -v] [split [st
09b0: 72 69 6e 67 20 74 72 69 6d 20 5b 3a 3a 74 6c 73  ring trim [::tls
09c0: 3a 3a 63 69 70 68 65 72 73 20 73 73 6c 33 20 31  ::ciphers ssl3 1
09d0: 5d 5d 20 5c 6e 5d 22 2c 2c 2c 6d 69 73 73 69 6e  ]] \n]",,,missin
09e0: 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 64 20  g {} unexpected 
09f0: 7b 7d 2c 2c 2c 0a 43 69 70 68 65 72 73 20 57 69  {},,,.Ciphers Wi
0a00: 74 68 20 44 65 73 63 72 69 70 74 69 6f 6e 73 2c  th Descriptions,
0a10: 54 4c 53 31 2e 30 2c 74 6c 73 31 2c 2c 22 6c 63  TLS1.0,tls1,,"lc
0a20: 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74  ompare [exec_get
0a30: 20 22 22 5c 72 5c 6e 22 22 20 63 69 70 68 65 72   ""\r\n"" cipher
0a40: 73 20 2d 74 6c 73 31 20 2d 76 5d 20 5b 73 70 6c  s -tls1 -v] [spl
0a50: 69 74 20 5b 73 74 72 69 6e 67 20 74 72 69 6d 20  it [string trim 
0a60: 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20  [::tls::ciphers 
0a70: 74 6c 73 31 20 31 5d 5d 20 5c 6e 5d 22 2c 2c 2c  tls1 1]] \n]",,,
0a80: 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78 70  missing {} unexp
0a90: 65 63 74 65 64 20 7b 7d 2c 2c 2c 0a 43 69 70 68  ected {},,,.Ciph
0aa0: 65 72 73 20 57 69 74 68 20 44 65 73 63 72 69 70  ers With Descrip
0ab0: 74 69 6f 6e 73 2c 54 4c 53 31 2e 31 2c 74 6c 73  tions,TLS1.1,tls
0ac0: 31 2e 31 2c 2c 22 6c 63 6f 6d 70 61 72 65 20 5b  1.1,,"lcompare [
0ad0: 65 78 65 63 5f 67 65 74 20 22 22 5c 72 5c 6e 22  exec_get ""\r\n"
0ae0: 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 5f  " ciphers -tls1_
0af0: 31 20 2d 76 5d 20 5b 73 70 6c 69 74 20 5b 73 74  1 -v] [split [st
0b00: 72 69 6e 67 20 74 72 69 6d 20 5b 3a 3a 74 6c 73  ring trim [::tls
0b10: 3a 3a 63 69 70 68 65 72 73 20 74 6c 73 31 2e 31  ::ciphers tls1.1
0b20: 20 31 5d 5d 20 5c 6e 5d 22 2c 2c 2c 6d 69 73 73   1]] \n]",,,miss
0b30: 69 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65  ing {} unexpecte
0b40: 64 20 7b 7d 2c 2c 2c 0a 43 69 70 68 65 72 73 20  d {},,,.Ciphers 
0b50: 57 69 74 68 20 44 65 73 63 72 69 70 74 69 6f 6e  With Description
0b60: 73 2c 54 4c 53 31 2e 32 2c 74 6c 73 31 2e 32 2c  s,TLS1.2,tls1.2,
0b70: 2c 22 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65 63  ,"lcompare [exec
0b80: 5f 67 65 74 20 22 22 5c 72 5c 6e 22 22 20 63 69  _get ""\r\n"" ci
0b90: 70 68 65 72 73 20 2d 74 6c 73 31 5f 32 20 2d 76  phers -tls1_2 -v
0ba0: 5d 20 5b 73 70 6c 69 74 20 5b 73 74 72 69 6e 67  ] [split [string
0bb0: 20 74 72 69 6d 20 5b 3a 3a 74 6c 73 3a 3a 63 69   trim [::tls::ci
0bc0: 70 68 65 72 73 20 74 6c 73 31 2e 32 20 31 5d 5d  phers tls1.2 1]]
0bd0: 20 5c 6e 5d 22 2c 2c 2c 6d 69 73 73 69 6e 67 20   \n]",,,missing 
0be0: 7b 7d 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d  {} unexpected {}
0bf0: 2c 2c 2c 0a 43 69 70 68 65 72 73 20 57 69 74 68  ,,,.Ciphers With
0c00: 20 44 65 73 63 72 69 70 74 69 6f 6e 73 2c 54 4c   Descriptions,TL
0c10: 53 31 2e 33 2c 74 6c 73 31 2e 33 2c 2c 22 6c 63  S1.3,tls1.3,,"lc
0c20: 6f 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74  ompare [exec_get
0c30: 20 22 22 5c 72 5c 6e 22 22 20 63 69 70 68 65 72   ""\r\n"" cipher
0c40: 73 20 2d 74 6c 73 31 5f 33 20 2d 76 5d 20 5b 73  s -tls1_3 -v] [s
0c50: 70 6c 69 74 20 5b 73 74 72 69 6e 67 20 74 72 69  plit [string tri
0c60: 6d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68 65 72  m [::tls::cipher
0c70: 73 20 74 6c 73 31 2e 33 20 31 5d 5d 20 5c 6e 5d  s tls1.3 1]] \n]
0c80: 22 2c 2c 2c 6d 69 73 73 69 6e 67 20 7b 7d 20 75  ",,,missing {} u
0c90: 6e 65 78 70 65 63 74 65 64 20 7b 7d 2c 2c 2c 0a  nexpected {},,,.
0ca0: 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63 6f 6d 6d 61  ,,,,,,,,,,.comma
0cb0: 6e 64 2c 23 20 54 65 73 74 20 70 72 6f 74 6f 63  nd,# Test protoc
0cc0: 6f 6c 20 73 70 65 63 69 66 69 63 20 63 69 70 68  ol specific ciph
0cd0: 65 72 73 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 43 69 70  ers,,,,,,,,,.Cip
0ce0: 68 65 72 73 20 50 72 6f 74 6f 63 6f 6c 20 53 70  hers Protocol Sp
0cf0: 65 63 69 66 69 63 2c 53 53 4c 32 2c 73 73 6c 32  ecific,SSL2,ssl2
0d00: 2c 2c 22 6c 63 6f 6d 70 61 72 65 20 5b 65 78 65  ,,"lcompare [exe
0d10: 63 5f 67 65 74 20 22 22 3a 22 22 20 63 69 70 68  c_get "":"" ciph
0d20: 65 72 73 20 2d 73 73 6c 32 20 2d 73 5d 20 5b 3a  ers -ssl2 -s] [:
0d30: 3a 74 6c 73 3a 3a 63 69 70 68 65 72 73 20 73 73  :tls::ciphers ss
0d40: 6c 32 20 30 20 31 5d 22 2c 2c 2c 6d 69 73 73 69  l2 0 1]",,,missi
0d50: 6e 67 20 7b 7d 20 75 6e 65 78 70 65 63 74 65 64  ng {} unexpected
0d60: 20 7b 7d 2c 2c 2c 0a 43 69 70 68 65 72 73 20 50   {},,,.Ciphers P
0d70: 72 6f 74 6f 63 6f 6c 20 53 70 65 63 69 66 69 63  rotocol Specific
0d80: 2c 53 53 4c 33 2c 73 73 6c 33 2c 2c 22 6c 63 6f  ,SSL3,ssl3,,"lco
0d90: 6d 70 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20  mpare [exec_get 
0da0: 22 22 3a 22 22 20 63 69 70 68 65 72 73 20 2d 73  "":"" ciphers -s
0db0: 73 6c 33 20 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a  sl3 -s] [::tls::
0dc0: 63 69 70 68 65 72 73 20 73 73 6c 33 20 30 20 31  ciphers ssl3 0 1
0dd0: 5d 22 2c 2c 2c 6d 69 73 73 69 6e 67 20 7b 7d 20  ]",,,missing {} 
0de0: 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 2c 2c 2c  unexpected {},,,
0df0: 0a 43 69 70 68 65 72 73 20 50 72 6f 74 6f 63 6f  .Ciphers Protoco
0e00: 6c 20 53 70 65 63 69 66 69 63 2c 54 4c 53 31 2e  l Specific,TLS1.
0e10: 30 2c 74 6c 73 31 2c 2c 22 6c 63 6f 6d 70 61 72  0,tls1,,"lcompar
0e20: 65 20 5b 65 78 65 63 5f 67 65 74 20 22 22 3a 22  e [exec_get "":"
0e30: 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 20  " ciphers -tls1 
0e40: 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68  -s] [::tls::ciph
0e50: 65 72 73 20 74 6c 73 31 20 30 20 31 5d 22 2c 2c  ers tls1 0 1]",,
0e60: 2c 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e 65 78  ,missing {} unex
0e70: 70 65 63 74 65 64 20 7b 7d 2c 2c 2c 0a 43 69 70  pected {},,,.Cip
0e80: 68 65 72 73 20 50 72 6f 74 6f 63 6f 6c 20 53 70  hers Protocol Sp
0e90: 65 63 69 66 69 63 2c 54 4c 53 31 2e 31 2c 74 6c  ecific,TLS1.1,tl
0ea0: 73 31 2e 31 2c 2c 22 6c 63 6f 6d 70 61 72 65 20  s1.1,,"lcompare 
0eb0: 5b 65 78 65 63 5f 67 65 74 20 22 22 3a 22 22 20  [exec_get "":"" 
0ec0: 63 69 70 68 65 72 73 20 2d 74 6c 73 31 5f 31 20  ciphers -tls1_1 
0ed0: 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69 70 68  -s] [::tls::ciph
0ee0: 65 72 73 20 74 6c 73 31 2e 31 20 30 20 31 5d 22  ers tls1.1 0 1]"
0ef0: 2c 2c 2c 6d 69 73 73 69 6e 67 20 7b 7d 20 75 6e  ,,,missing {} un
0f00: 65 78 70 65 63 74 65 64 20 7b 7d 2c 2c 2c 0a 43  expected {},,,.C
0f10: 69 70 68 65 72 73 20 50 72 6f 74 6f 63 6f 6c 20  iphers Protocol 
0f20: 53 70 65 63 69 66 69 63 2c 54 4c 53 31 2e 32 2c  Specific,TLS1.2,
0f30: 74 6c 73 31 2e 32 2c 2c 22 6c 63 6f 6d 70 61 72  tls1.2,,"lcompar
0f40: 65 20 5b 65 78 65 63 5f 67 65 74 20 22 22 3a 22  e [exec_get "":"
0f50: 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73 31 5f  " ciphers -tls1_
0f60: 32 20 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a 63 69  2 -s] [::tls::ci
0f70: 70 68 65 72 73 20 74 6c 73 31 2e 32 20 30 20 31  phers tls1.2 0 1
0f80: 5d 22 2c 2c 2c 6d 69 73 73 69 6e 67 20 7b 7d 20  ]",,,missing {} 
0f90: 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 2c 2c 2c  unexpected {},,,
0fa0: 0a 43 69 70 68 65 72 73 20 50 72 6f 74 6f 63 6f  .Ciphers Protoco
0fb0: 6c 20 53 70 65 63 69 66 69 63 2c 54 4c 53 31 2e  l Specific,TLS1.
0fc0: 33 2c 74 6c 73 31 2e 33 2c 2c 22 6c 63 6f 6d 70  3,tls1.3,,"lcomp
0fd0: 61 72 65 20 5b 65 78 65 63 5f 67 65 74 20 22 22  are [exec_get ""
0fe0: 3a 22 22 20 63 69 70 68 65 72 73 20 2d 74 6c 73  :"" ciphers -tls
0ff0: 31 5f 33 20 2d 73 5d 20 5b 3a 3a 74 6c 73 3a 3a  1_3 -s] [::tls::
1000: 63 69 70 68 65 72 73 20 74 6c 73 31 2e 33 20 30  ciphers tls1.3 0
1010: 20 31 5d 22 2c 2c 2c 6d 69 73 73 69 6e 67 20 7b   1]",,,missing {
1020: 7d 20 75 6e 65 78 70 65 63 74 65 64 20 7b 7d 2c  } unexpected {},
1030: 2c 2c 0a 2c 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 63 6f  ,,.,,,,,,,,,,.co
1040: 6d 6d 61 6e 64 2c 23 20 54 65 73 74 20 76 65 72  mmand,# Test ver
1050: 73 69 6f 6e 2c 2c 2c 2c 2c 2c 2c 2c 2c 0a 56 65  sion,,,,,,,,,.Ve
1060: 72 73 69 6f 6e 2c 41 6c 6c 2c 2c 2c 3a 3a 74 6c  rsion,All,,,::tl
1070: 73 3a 3a 76 65 72 73 69 6f 6e 2c 2c 67 6c 6f 62  s::version,,glob
1080: 2c 2a 2c 2c 2c 0a 56 65 72 73 69 6f 6e 2c 4f 70  ,*,,,.Version,Op
1090: 65 6e 53 53 4c 2c 4f 70 65 6e 53 53 4c 2c 2c 3a  enSSL,OpenSSL,,:
10a0: 3a 74 6c 73 3a 3a 76 65 72 73 69 6f 6e 2c 2c 67  :tls::version,,g
10b0: 6c 6f 62 2c 4f 70 65 6e 53 53 4c 2a 2c 2c 2c 0a  lob,OpenSSL*,,,.