tests/demo/draw/getsource

   1 # test for command getsource
   2
   3 # check that path returned for command pload is as expected
   4 if { [checkplatform -windows] } {
   5     set expected src/Draw/Draw_PloadCommands.cxx
   6 } else {
   7     set expected /src/Draw/Draw_PloadCommands.cxx
   8 }
   9 set path [lindex [getsourcefile pload] 1]
  10 if { [string compare $path $expected] } {
  11     puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"
  12 }
  13
  14 puts "TEST COMPLETED"