Commit | Line | Data |
---|---|---|
d33dea30 PK |
1 | # test for command getsource |
2 | ||
3 | # check that path returned for command pload is as expected | |
4 | set expected src/Draw/Draw_PloadCommands.cxx | |
5 | set path [lindex [getsourcefile pload] 1] | |
6 | if { [string compare $path $expected] } { | |
7 | puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'" | |
8 | } | |
9 | ||
10 | puts "TEST COMPLETED" |