]> www.wagner.pp.ru Git - openssl-gost/engine.git/blobdiff - tcl_tests/req-genpkey.try
tcl_tests: ca.try: Ignore openssl crl exit status for 'corrupted CRL' test
[openssl-gost/engine.git] / tcl_tests / req-genpkey.try
index e333dc0d2432ecae76c50e6831d59d580e861931..e8b9c419718ff2aee7f4f09edf331743a87038a2 100644 (file)
@@ -1,5 +1,4 @@
 #!/usr/bin/tclsh
-# -*- coding: cp1251 -*-
 # создание секретного ключа
 # создание заявки и самоподписанного сертификата командой req
 # проверка OIDов алгоритма во всех структурах
@@ -35,13 +34,13 @@ test -skip {![file exists $username/seckey.pem]} "OID в секретном кл
 
 test -skip {![file exists $username/seckey.pem]} "Алгоритм $alg, заявка по секретному ключу" {
        makeFile $username/req.conf [makeConf]
-       openssl "req -new -config $username/req.conf -key $username/seckey.pem -out $username/req.pem"  
+       openssl "req -new -config $username/req.conf -key $username/seckey.pem -out $username/req.pem"
        expr {[file size $username/req.pem] > 0}
 } 0 1
 
 test -skip {![file exists $username/req.pem]} "Подпись под заявкой корректна" {
        grep "verif" [openssl "req -verify -in $username/req.pem"]
-} 0 {verify OK
+} 0 {Certificate request self-signature verify OK
 }
 
 test -skip {![file exists $username/req.pem]} "OID в заявке, алгоритм $alg" {
@@ -49,7 +48,7 @@ test -skip {![file exists $username/req.pem]} "OID в заявке, алгори
 } 0 [mkObjList [alg_long_name $alg] [pubkey_long_name $alg] [param_hash_long_name [param_hash $alg]] [hash_with_sign_long_name $alg]]
 
 test -skip {![file exists $username/seckey.pem]} "Алгоритм $alg, сертификат по секретному ключу" {
-       openssl "req -new -x509 -config $username/req.conf -key $username/seckey.pem -out $username/cert.pem"   
+       openssl "req -new -x509 -config $username/req.conf -key $username/seckey.pem -out $username/cert.pem"
        expr {[file size $username/cert.pem] > 0}
 } 0 1
 
@@ -74,7 +73,7 @@ test -skip {![file exists $username/seckey.der]} -createsfiles $username/req2.pe
 
 test -skip {![file exists $username/req2.pem]} "Подпись под заявкой корректна" {
        grep "verif" [openssl "req -verify -in $username/req2.pem"]
-} 0 {verify OK
+} 0 {Certificate request self-signature verify OK
 }
 
 }