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