OpenCascade/occt
1
0
Fork 0
mirror of https://git.dev.opencascade.org/repos/occt.git synced 2025-04-05 18:16:23 +03:00
Code Packages Releases Activity

0030071: Tests - locate_data_file does not skip .git folders

Browse Source 
Regexp is now applied to subfolder name to filter folders starting with dot.
This commit is contained in:
kgv 2018-08-16 14:42:30 +03:00 committed by bugmaster
parent cdcb6655e7
commit 343f7e4d34
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/DrawResources/TestCommands.tcl
View File

@ -1041,8 +1041,10 @@ proc locate_data_file {filename} {
while {[llength $dir] != 0} { while {[llength $dir] != 0} {
set name [lindex $dir 0] set name [lindex $dir 0]
set dir [lrange $dir 1 end] set dir [lrange $dir 1 end]
# skip directories starting with dot # skip directories starting with dot
if { [regexp {^[.]} $name] } { continue } set aTail [file tail $name]
if { [regexp {^[.]} $aTail] } { continue }
if { [file exists $name/$filename] } { if { [file exists $name/$filename] } {
return [file normalize $name/$filename] return [file normalize $name/$filename]
} }