0027901: Resource_Manager creates directory with insufficient permissions
[occt.git] / tests / bugs / fclasses / bug181_1
1 puts "========"
2 puts "OCC181"
3 puts "OCC701"
4 puts "========"
5 ######################################################
6 # Resource_Manager class doen't return status of saving resources in a file.
7 ######################################################
8 # Add method BuildPath to OSD_Directory
9 ######################################################
10
11 # Clear tmp-data
12 ######################################################################
13 set tmp ${imagedir}
14 ######################################################################
15
16 pload QAcommands
17
18 set log [OCC181 OCC181 ${imagedir} ${tmp}/1 0]
19
20 set list [split ${log}]
21 set ll [llength ${list}]
22 set status [lindex ${list} [expr ${ll} - 2] ]
23
24 if { ${status} == "TRUE"} then {
25    puts "OCC181: OK"
26 } else {
27    puts "OCC181: Error"
28 }
29
30 if { ! [file exists ${tmp}/1/OCC181] } {
31   puts "Error: user resource file is not found!"
32 }
33
34 file delete -force ${tmp}/1