X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Freq-genpkey.try;h=e8b9c419718ff2aee7f4f09edf331743a87038a2;hb=HEAD;hp=e333dc0d2432ecae76c50e6831d59d580e861931;hpb=3b8ddfe2f303b8931842e52bdb5c07c97042f651;p=openssl-gost%2Fengine.git diff --git a/tcl_tests/req-genpkey.try b/tcl_tests/req-genpkey.try index e333dc0..e8b9c41 100644 --- a/tcl_tests/req-genpkey.try +++ b/tcl_tests/req-genpkey.try @@ -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 } }