# test for command getsource

# check that path returned for command pload is as expected
if { [array get env os_type] != "" } {
    set os $env(os_type)
}
puts $os
if { [string compare $os "windows"] == 0 } {
    set expected src/Draw/Draw_PloadCommands.cxx
} else {
    set expected /src/Draw/Draw_PloadCommands.cxx
}
set path [lindex [getsourcefile pload] 1]
if { [string compare $path $expected] } {
    puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"
}

puts "TEST COMPLETED"