From b074c2152c4a17c00d242fe7d1d42ca0b016af25 Mon Sep 17 00:00:00 2001

From: "Vladimir D. Seleznev" <vseleznv@altlinux.org>

Date: Sat, 17 Aug 2019 20:47:13 +0300

Subject: [PATCH 3/4] ALT: tests auto_path

---

 tcltls/tests/all.tcl | 2 +-

 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tcltls/tests/all.tcl b/tcltls/tests/all.tcl

index 4ec33b0..bc54344 100644

--- a/tcltls/tests/all.tcl

+++ b/tcltls/tests/all.tcl

@@ -10,7 +10,7 @@

 # RCS: @(#) $Id: all.tcl,v 1.5 2000/08/15 18:45:01 hobbs Exp $

 #set auto_path [linsert $auto_path 0 [file normalize [file join [file dirname [info script]] ..]]]

-set auto_path [linsert $auto_path 0 [file normalize [pwd]]]

+set auto_path [linsert $auto_path 0 [file normalize $::env(AUTO_PATH)]]

 if {[lsearch [namespace children] ::tcltest] == -1} {

     package require tcltest

-- 

2.25.3