61c421bf |
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 | |
5d1833ef |
18 | set log [OCC181 OCC181 ${imagedir} ${tmp}/2/2/3 0] |
61c421bf |
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 | |
73594f72 |
30 | if { ! [file exists ${tmp}/2/2/3/OCC181] } { |
31 | puts "Error: user resource file is not found!" |
32 | } |
33 | |
e4ffdb1e |
34 | file delete -force ${tmp}/2 |