X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Fca.try;h=7da25de2eae2691dcc10e72f944d38a65301d4d2;hb=HEAD;hp=249923b2f9558849ffae2a264e0e8af3678dcd11;hpb=2a8a5e0ecaa3e3d6f4ec722a49aa72476755c2b7;p=openssl-gost%2Fengine.git

diff --git a/tcl_tests/ca.try b/tcl_tests/ca.try
index 249923b..a1ac8ed 100644
--- a/tcl_tests/ca.try
+++ b/tcl_tests/ca.try
@@ -73,11 +73,14 @@ test -createsfiles test.crl "Generating CRL" {
 
 
 test -skip {![file exists test.crl]} "Displaying CRL" {
-	regsub -all " = " [grep "(Serial|Version|Signature Alg|Issuer)" [openssl "crl -text -noout -in test.crl"] ] "="
-} 0 "        Version 2 (0x1)
-        Signature Algorithm: [hash_with_sign_long_name $ca_alg]
-        Issuer: C=RU, L=Moscow, CN=Test CA $ca_alg, O=Cryptocom, OU=OpenSSL CA, emailAddress=openssl@cryptocom.ru
-$serial_list    Signature Algorithm: [hash_with_sign_long_name  $ca_alg]
+	regsub -all " +" [
+		regsub -all " = " [grep "(Serial|Version|Signature Alg|Issuer)" [openssl "crl -text -noout -in test.crl"] ] "="
+	] " "
+} 0 " Version 2 (0x1)
+ Signature Algorithm: [hash_with_sign_long_name $ca_alg]
+ Issuer: C=RU, L=Moscow, CN=Test CA $ca_alg, O=Cryptocom, OU=OpenSSL CA, emailAddress=openssl@cryptocom.ru
+[regsub -all " +" $serial_list " "]\
+ Signature Algorithm: [hash_with_sign_long_name  $ca_alg]
 "
 
 test -skip {![file exists test.crl]} "Verifying CRL OK" {
@@ -88,8 +91,7 @@ test -skip {![file exists test.crl]} "Verifying CRL OK" {
 test -skip {![file exists test.crl]} "Verifying corrupted CRL" {
 	makeFile "badcrl.pem" [hackPem "\01\x1E" [getFile test.crl] "\01\0"]
 	grep verify [openssl "crl -in badcrl.pem -noout -CAfile $::test::ca/cacert.pem"]
-} 0 "verify failure
-"
+} -1 "verify failure"
 
 test "Verifying CA certificate" {
 	grep "(cacert.pem|error|OK)" [openssl "verify -CAfile $::test::ca/cacert.pem $::test::ca/cacert.pem"]