mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
35 lines
897 B
Plaintext
35 lines
897 B
Plaintext
puts "========"
|
|
puts "OCC181"
|
|
puts "OCC701"
|
|
puts "========"
|
|
######################################################
|
|
# Resource_Manager class doesn't return status of saving resources in a file.
|
|
######################################################
|
|
# Add method BuildPath to OSD_Directory
|
|
######################################################
|
|
|
|
# Clear tmp-data
|
|
######################################################################
|
|
set tmp ${imagedir}
|
|
######################################################################
|
|
|
|
pload QAcommands
|
|
|
|
set log [OCC181 OCC181 ${imagedir} ${tmp}/1 0]
|
|
|
|
set list [split ${log}]
|
|
set ll [llength ${list}]
|
|
set status [lindex ${list} [expr ${ll} - 2] ]
|
|
|
|
if { ${status} == "TRUE"} then {
|
|
puts "OCC181: OK"
|
|
} else {
|
|
puts "OCC181: Error"
|
|
}
|
|
|
|
if { ! [file exists ${tmp}/1/OCC181] } {
|
|
puts "Error: user resource file is not found!"
|
|
}
|
|
|
|
file delete -force ${tmp}/1
|