mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-05-20 19:28:34 +08:00
863f782a42
Command checkplatform was created. All test cases were updated. Global variable os_type was eliminated. New option -osx (MacOS) for procedure checkplatform was added.
15 lines
435 B
Plaintext
Executable File
15 lines
435 B
Plaintext
Executable File
# 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"
|