0030439: Visualization - extend fonts search within Font_FontMgr::FindFont() on Linux
[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
36cc2619 4set expected src/Draw/Draw_PloadCommands.cxx
d33dea30 5set path [lindex [getsourcefile pload] 1]
e05c25c1 6if { [string compare -nocase $path $expected] } {
d33dea30
PK
7 puts "Error: command 'getsourcefile pload' returned '$path' while expected '$expected'"
8}
9
10puts "TEST COMPLETED"