tests/demo/draw/getsource

   1 # test for command getsource
   2
   3 # check that path returned for command pload is as expected
   4 if { [array get env os_type] != "" } {
   5     set os $env(os_type)
   6 }
   7 puts $os
   8 if { [string compare $os "windows"] == 0 } {
   9     set expected src/Draw/Draw_PloadCommands.cxx
  10 } else {
  11     set expected /src/Draw/Draw_PloadCommands.cxx
  12 }
  13 set path [lindex [getsourcefile pload] 1]
  14 if { [string compare $path $expected] } {
  15     puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"
  16 }
  17
  18 puts "TEST COMPLETED"