0027620: Test perf bop boxholes crashes DRAW
[occt.git] / tests / demo / draw / getsource
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 -nocase $path $expected] } {
7     puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"
8 }
9
10 puts "TEST COMPLETED"