X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Ftest.tcl;h=e281f1a729c3d5c26c0d006fbbbdc502e50957b9;hb=655876655d0a3ab1a7898331c0b5187db6e843ad;hp=cf7c2b7121cc56e6bcf3ef2cb481aa666097a8e1;hpb=b0f5bce10dcc05198e2e58ee08e1cc3dcd3d1aea;p=openssl-gost%2Fengine.git

diff --git a/tcl_tests/test.tcl b/tcl_tests/test.tcl
index cf7c2b7..e281f1a 100644
--- 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"]
 	}
 	#
 	# Вызывается при пропуске теста