X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Ftest.tcl;fp=tcl_tests%2Ftest.tcl;h=276db7eb897ae0185205b758b9c7ba901157ac2f;hb=27245fdabff573bb85d6aeb2e228a854170296ee;hp=e281f1a729c3d5c26c0d006fbbbdc502e50957b9;hpb=e0a500ab877ba72cb14026a24d462dd923b90ced;p=openssl-gost%2Fengine.git

diff --git a/tcl_tests/test.tcl b/tcl_tests/test.tcl
index e281f1a..276db7e 100644
--- a/tcl_tests/test.tcl
+++ b/tcl_tests/test.tcl
@@ -198,7 +198,8 @@ namespace eval test {
 				set timestamp "$teststart+[expr $testend-$teststart]"
 			}
 		}	
-		if {$status!=$exitStatus || ($status==1?![regexp --\
+		if {($exitStatus!=-1 && $status!=$exitStatus) ||
+		       	($exitStatus!=0?![regexp --\
 			[rus $expectedResult] $result]:([info exists opts(-time)]?\
 		    ![listcompare $result $expectedResult $opts(-time)]:\
 			[string compare "$result" "$expectedResult"]))} {