X-Git-Url: http://www.wagner.pp.ru/gitweb/?a=blobdiff_plain;f=tcl_tests%2Fossltest.tcl;fp=tcl_tests%2Fossltest.tcl;h=792c0718e35c409840b73b8d71bdcc8e06822423;hb=09bc339bdce87d513b029b9be91b6cb73b6cc2b7;hp=a6f02836c09b80284b48701c88947f63833a8927;hpb=1864d62c629579be1d2a3c167769082785f079aa;p=openssl-gost%2Fengine.git

diff --git a/tcl_tests/ossltest.tcl b/tcl_tests/ossltest.tcl
index a6f0283..792c071 100644
--- a/tcl_tests/ossltest.tcl
+++ b/tcl_tests/ossltest.tcl
@@ -61,6 +61,16 @@ package require test
 set test::suffix ""
 package require base64
 
+#
+# set  up test::src variable
+#
+
+if {[info exists env(TESTSRC)]} {
+	set ::test::src [file normalize $env(TESTSRC)]
+} else {
+	set ::test::src [pwd]
+}	
+
 #
 # set  up test::dir variable
 #