# 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)"