]> wagner.pp.ru Git - openssl-gost/engine.git/blobdiff - tcl_tests/req-newkey.try
Add .editorconfig
[openssl-gost/engine.git] / tcl_tests / req-newkey.try
index 3c4a8a80141a219d4be56c994c3367cb852a0656..634e0dfabb3ed9674ae4618a56244970d7ced8d7 100644 (file)
@@ -1,7 +1,7 @@
 #!/usr/bin/tclsh
 if {[info exists env(PKG_PATH)]} {
        lappend auto_path $env(PKG_PATH)
-} else {       
+} else {
        lappend auto_path [file dirname [info script]]
 }
 package require ossltest
@@ -39,6 +39,11 @@ gost2012_256:A "ГОСТ 2012 256 бит Криптопро A" 0 1.2.643.2.2.35.
 gost2012_256:B "ГОСТ 2012 256 бит Криптопро B" 0 1.2.643.2.2.35.2
 gost2012_256:C "ГОСТ 2012 256 бит Криптопро C" 0 1.2.643.2.2.35.3
 gost2012_256:D "ГОСТ 2012 256 бит Криптопро неверный параметр" 1 invalid_paramset
+gost2012_256:TCA "ГОСТ 2012 256 бит ТК26 A" 0 1.2.643.7.1.2.1.1.1
+gost2012_256:TCB "ГОСТ 2012 256 бит ТК26 B" 0 1.2.643.7.1.2.1.1.2
+gost2012_256:TCC "ГОСТ 2012 256 бит ТК26 C" 0 1.2.643.7.1.2.1.1.3
+gost2012_256:TCD "ГОСТ 2012 256 бит ТК26 D" 0 1.2.643.7.1.2.1.1.4
+gost2012_256:TCE "ГОСТ 2012 256 бит ТК26 неверный параметр" 1 invalid_paramset
 gost2012_256:id-GostR3410-2001-CryptoPro-B-ParamSet  "ГОСТ 2012 256 бит Криптопро B по имени" 0 1.2.643.2.2.35.2
 gost2012_256:1.2.643.2.2.35.1 "ГОСТ 2012 256 бит Криптопро A по OID" 0 1.2.643.2.2.35.1
 gost2012_256:1.2.840.113549.1.1.1 "Недопустимый OID" 1 invalid_paramset
@@ -46,7 +51,8 @@ gost2012_256:RSAencryption: "Недопустимое имя объекта" 1 i
 gost2012_512: "ГОСТ 2012 512 бит" 1 no_param_set
 gost2012_512:A "ГОСТ 2012 512 бит ТК26 A" 0 1.2.643.7.1.2.1.2.1
 gost2012_512:B "ГОСТ 2012 512 бит ТК26 B" 0 1.2.643.7.1.2.1.2.2
-gost2012_512:C "ГОСТ 2012 512 бит неверный параметр" 1 invalid_paramset
+gost2012_512:C "ГОСТ 2012 512 бит ТК26 C" 0 1.2.643.7.1.2.1.2.3
+gost2012_512:D "ГОСТ 2012 512 бит неверный параметр" 1 invalid_paramset
 gost2012_512:id-tc26-gost-3410-2012-512-paramSetB  "ГОСТ 2012 512 бит набор параметров B по имени" 0 1.2.643.7.1.2.1.2.2
 gost2012_512:1.2.643.7.1.2.1.2.1 "ГОСТ 2012 512 бит набор параметров A по OID" 0 1.2.643.7.1.2.1.2.1
 gost2012_512:1.2.643.2.2.35.1 "Недопустимый OID" 1 invalid_paramset
@@ -59,7 +65,7 @@ gost2012_512:RSAencryption: "Недопустимое имя объекта" 1 i
                "no_param_set" { set result $no_param_set }
                "invalid_paramset" { set result $invalid_paramset }
        }
-       
+
        set index [string first ":" $alg]
        if {$index != -1} {
                set algname [string range $alg 0 [expr $index-1]]
@@ -84,11 +90,11 @@ gost2012_512:RSAencryption: "Недопустимое имя объекта" 1 i
                asn::asnGetSequence seq2 seq3
                asn::asnGetObjectIdentifier seq3 oid
                join $oid .
-       } $code $result 
+       } $code $result
        log "errorInfo: $errorInfo"
 
        test -skip {![file exists test.req]} "Заявка подписана корректно" {
                grep "verif" [openssl "req -verify -in test.req"]
-       } 0 "verify OK\n"
+       } 0 "Certificate request self-signature verify OK\n"
 }
 end_tests