MSVC: Avoid use `htonl' since it requires linking with Winsock

[openssl-gost/engine.git] / tcl_tests / req-newkey.try

diff --git a/tcl_tests/req-newkey.try b/tcl_tests/req-newkey.try
index 7664a36a166867285d281da6dd9412f30830f497..634e0dfabb3ed9674ae4618a56244970d7ced8d7 100644 (file)
--- a/tcl_tests/req-newkey.try
+++ b/tcl_tests/req-newkey.try
@@ -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
@@ -65,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]]
@@ -90,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