[occt.git] / tests / demo / begin

# add path to subdirectory tests_data to CSF_TestDataPath, 
# for testing of files search procedure

if { ! [info exists env(CSF_TestDataPath)] } {
    set env(CSF_TestDataPath) "[file dirname [info script]]/tests_data"
} elseif { ! [regexp {demo/tests_data} $env(CSF_TestDataPath)] } {
    set env(CSF_TestDataPath) "$env(CSF_TestDataPath)[_path_separator][file dirname [info script]]/tests_data"
}

puts "CSF_TestDataPath set to $env(CSF_TestDataPath)"
Commit	Line	Data
40093367	1	# add path to subdirectory tests_data to CSF_TestDataPath,
	2	# for testing of files search procedure
	3
	4	if { ! [info exists env(CSF_TestDataPath)] } {
	5	set env(CSF_TestDataPath) "[file dirname [info script]]/tests_data"
	6	} elseif { ! [regexp {demo/tests_data} $env(CSF_TestDataPath)] } {
	7	set env(CSF_TestDataPath) "$env(CSF_TestDataPath)[_path_separator][file dirname [info script]]/tests_data"
	8	}
	9
	10	puts "CSF_TestDataPath set to $env(CSF_TestDataPath)"