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

diff --git a/tcl_tests/ca.try b/tcl_tests/ca.try
index 3c7b61e..249923b 100644
--- a/tcl_tests/ca.try
+++ b/tcl_tests/ca.try
@@ -61,9 +61,9 @@ test -skip {![file exists $userdir/broken.pem]} "Registering broken request at c
 test  "Revoking certificate" {
 	set revoking_cert $::test::ca/newcerts/[string trim [getFile $::test::ca/serial.old]].pem
 	append serial_list [regsub "serial=" [openssl "x509 -in $revoking_cert -noout -serial"] "    Serial Number: "]
-	grep "Data Base" [openssl "ca -crl_reason keyCompromize -crl_compromise [clock\
-	format [clock seconds]  -format %Y%m%d%H%M%SZ] -revoke $revoking_cert -config $::test::ca/ca.conf"]
-} 0 "Data Base Updated
+	string map {"Data Base" Database Updated updated} [ grep "Data" [openssl "ca -crl_reason keyCompromize -crl_compromise [clock\
+	format [clock seconds]  -format %Y%m%d%H%M%SZ] -revoke $revoking_cert -config $::test::ca/ca.conf"] ]
+} 0 "Database updated
 "
 test -createsfiles test.crl "Generating CRL" {
 	openssl "ca -gencrl -config $::test::ca/ca.conf -out test.crl"