tcl_tests/ciphers.try

   1 #!/usr/bin/tclsh
   2 lappend auto_path [file dirname [info script]]
   3 package require ossltest
   4 cd $::test::dir
   5 start_tests "Тесты на команду ciphers"
   6
   7 proc find_ciphers {openssl_args globpattern} {
   8         set found [lsort [lsearch -all -inline [split [string trim [grep $globpattern [openssl $openssl_args] ] "\n" ] : ] "$globpattern*"] ]
   9         return $found
  10 }
  11
  12 test "Проверяем поддержку российских алгоритмов в tls" {
  13         find_ciphers "ciphers" "GOST"
  14 } 0 {GOST2001-GOST89-GOST89 GOST2012-GOST8912-GOST8912}
  15
  16 test "Проверяем поддержку российских алгоритмов без шифрования в tls" {
  17         find_ciphers "ciphers NULL" "GOST"
  18 } 0 {GOST2001-NULL-GOST94 GOST2012-NULL-GOST12}
  19
  20 #test "Проверяем отсутствие российских алгоритмов в ssl2" {
  21 #       find_ciphers "ciphers -ssl2" "GOST"
  22 #} 0 ""
  23
  24 #test "Проверяем работоспособность команды ciphers" {
  25 #       find_ciphers "ciphers AES" "AES"
  26 #} 0 {"ADH-AES256-SHA"
  27 #"DHE-RSA-AES256-SHA"
  28 #"DHE-DSS-AES256-SHA"
  29 #"AES256-SHA"
  30 #"ADH-AES128-SHA"
  31 #"DHE-RSA-AES128-SHA"
  32 #"DHE-DSS-AES128-SHA"
  33 #"AES128-SHA"
  34 #}
  35
  36
  37 end_tests
  38