From: apn <apn@opencascade.com>
Date: Thu, 7 May 2015 08:31:24 +0000 (+0300)
Subject: 0026194: Sometimes "testgrid" command runs every test many times
X-Git-Tag: V6_9_0~2
X-Git-Url: http://git.dev.opencascade.org/gitweb/?a=commitdiff_plain;h=2124e769d1b2600f0437393ab6c86f13d53edead;p=occt-copy.git

0026194: Sometimes "testgrid" command runs every test many times

Added check for equal test directories in variable CSF_TestScriptsPath.
---

diff --git a/src/DrawResources/TestCommands.tcl b/src/DrawResources/TestCommands.tcl
index 81a1bd8722..3d316342f8 100644
--- a/src/DrawResources/TestCommands.tcl
+++ b/src/DrawResources/TestCommands.tcl
@@ -278,7 +278,7 @@ proc testgrid {args} {
     set tests_list {}
 
     # iterate by all script paths
-    foreach dir [_split_path $env(CSF_TestScriptsPath)] {
+    foreach dir [lsort -unique [_split_path $env(CSF_TestScriptsPath)]] {
 	# protection against empty paths
 	set dir [string trim $dir]
 	if { $dir == "" } { continue }