Make TLS tests on SECLEVEL 0

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

diff --git a/tcl_tests/test.tcl b/tcl_tests/test.tcl
index cf7c2b7121cc56e6bcf3ef2cb481aa666097a8e1..e281f1a729c3d5c26c0d006fbbbdc502e50957b9 100644 (file)
--- a/tcl_tests/test.tcl
+++ b/tcl_tests/test.tcl
@@ -117,7 +117,10 @@ namespace eval test {
                                if [info exists $file] {puts [test_log] "Deleting $file"
                                   file delete $file}
                        }       
-               }       
+               } {
+                       # signal to a caller that we had failures
+                       exit 1
+               }
        }
    #
    # Вовзращает идентификатор канала, куда пишется лог тестов.
@@ -282,7 +285,7 @@ proc rus {string} {
                puts -nonewline [rus [format "Тест%5d: %-60s:" $no [string range $testname 0 59]]]
                flush stdout
                set curtest $testname
-               log [rus "Тест $no: $testname start"]
+               log [rus "\n\nТест $no: $testname start"]
        }
        #
        # Вызывается при пропуске теста