mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
73594f7248
Resource_Manager now sets RWXD permissions for the created directories to allow their removal. Method OSD_Directory::Build() will create intermediate directories if they do not exist yet. OSD_FileNode is corrected to clean error status in method Exists(). Tests bugs fclasses bug181_1 and bug181_2 are corrected to check existence of generated resource files; TODO is removed in bug181_2.
35 lines
906 B
Plaintext
35 lines
906 B
Plaintext
puts "========"
|
|
puts "OCC181"
|
|
puts "OCC701"
|
|
puts "========"
|
|
######################################################
|
|
# Resource_Manager class doen'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}/2/2/3 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}/2/2/3/OCC181] } {
|
|
puts "Error: user resource file is not found!"
|
|
}
|
|
|
|
file delete -force ${tmp}/2
|