]> wagner.pp.ru Git - openssl-gost/engine.git/blob - tcl_tests/ciphers.try
gost_crypt: Add magma_ctr_acpkm_omac_cipher
[openssl-gost/engine.git] / 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