mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-01 17:36:21 +03:00
17 lines
512 B
Plaintext
Executable File
17 lines
512 B
Plaintext
Executable File
puts "TODO OCC28773 Windows: Error: command 'getsourcefile pload' returned"
|
|
|
|
# test for command getsource
|
|
|
|
# check that path returned for command pload is as expected
|
|
if { [checkplatform -windows] } {
|
|
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"
|