#!/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
"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]]
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