tests/demo/begin

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