X-Git-Url: http://wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Fruntest.sh;h=0589f78d29818998103602cda96db3c7a69202a0;hb=f74ade0b36020023b21bb6b452c6cc0f55c4105a;hp=c3fc81200c976a6be9f4581e2a00d70ef6c24bdf;hpb=46da0131e71906a5ec206a0c2b7fb60f74bb6844;p=openssl-gost%2Fengine.git

diff --git a/tcl_tests/runtest.sh b/tcl_tests/runtest.sh
index c3fc812..0589f78 100644
--- a/tcl_tests/runtest.sh
+++ b/tcl_tests/runtest.sh
@@ -105,6 +105,12 @@ OPENSSL_DEBUG_MEMORY=on
 export OPENSSL_DEBUG_MEMORY
 
 fail=0
+if [ "$*" ]; then
+  for t do
+    $TCLSH $t.try || fail=1
+  done
+  exit $fail
+fi
 for t in $BASE_TESTS; do
 	$TCLSH $t.try || fail=1
 done