tcl_tests: Introduce new exitStatus -1 to ignore exit codes

[openssl-gost/engine.git] / tcl_tests / test.tcl

diff --git a/tcl_tests/test.tcl b/tcl_tests/test.tcl
index e281f1a729c3d5c26c0d006fbbbdc502e50957b9..276db7eb897ae0185205b758b9c7ba901157ac2f 100644 (file)
--- 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"]))} {