Add magma-ecb mode. Fixes #410

[openssl-gost/engine.git] / tcl_tests / ocsp.try

diff --git a/tcl_tests/ocsp.try b/tcl_tests/ocsp.try
index 30c1218bf80c4731bf69a37742e364c63accafc3..92687b12e121b3a0f23e6f3a59388eb5d2644036 100644 (file)
--- a/tcl_tests/ocsp.try
+++ b/tcl_tests/ocsp.try
@@ -1,5 +1,4 @@
 #!/usr/bin/tclsh
-# -*- coding: cp1251 -*-
 lappend auto_path [file dirname [info script]]
 package require ossltest
 cd $::test::dir 
@@ -99,7 +98,7 @@ test -skip {![file exists request3.der]} -createsfiles response3.der "Форми
 } 0 1
 
 test -skip {![file exists response3.der] } "Проверяем ответ на запрос 3" {
-       grep "Response .erif" [openssl "ocsp -[hash_short_name [alg_hash $alg]] $client_args -respin response3.der"]
+       grep "Response .erif" [openssl "ocsp $client_args -respin response3.der"]
 } 0 "Response verify OK\n"
 
 
@@ -140,7 +139,7 @@ test -skip {![file exists request5.der]} -createsfiles response5.der "Форми
 } 0 1
 
 test -skip {![file exists response5.der] } "Проверяем ответ на запрос 5" {
-       grep "Response .erif" [openssl "ocsp -[hash_short_name [alg_hash $alg]] $client_args -respin response5.der"]
+       grep "Response .erif" [openssl "ocsp $client_args -respin response5.der"]
 } 0 "Response verify OK\n"
 
 test -skip {![file exists response5.der]} "Проверяем статус сертификатoв" {