0025133: TKOpenGl - Crash on closing a view containing presentations with capping
[occt.git] / tests / demo / draw / getsource
CommitLineData
d33dea30
PK
1# test for command getsource
2
3# check that path returned for command pload is as expected
b725d7c5 4if { [array get env os_type] != "" } {
5 set os $env(os_type)
6}
7puts $os
8if { [string compare $os "windows"] == 0 } {
9 set expected src/Draw/Draw_PloadCommands.cxx
10} else {
11 set expected /src/Draw/Draw_PloadCommands.cxx
12}
d33dea30
PK
13set path [lindex [getsourcefile pload] 1]
14if { [string compare $path $expected] } {
15 puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"
16}
17
18puts "TEST COMPLETED"