809eca9d |
1 | puts "============" |
2 | puts "OCC22788" |
3 | puts "============" |
4 | puts "" |
5 | ####################################################################### |
6 | # |
7 | ####################################################################### |
8 | |
9 | pload QAcommands |
10 | |
11 | set BugNumber OCC22788 |
12 | |
13 | NewDocument D MDTV-Standard |
14 | |
15 | set aFile OCC22788.std |
16 | |
17 | Open [locate_data_file ${aFile}] D |
18 | |
19 | Close D |
20 | |
21 | return |
22 | |
23 | set log [OCC159 D] |
24 | |
25 | set list [split ${log}] |
26 | set ll [llength ${list}] |
27 | |
28 | if { ${ll} < 13 } { |
29 | puts "OCC159: Error" |
30 | } else { |
31 | set DocRefCount1 [lindex ${list} 2] |
32 | set DocOwner1 [lindex ${list} 5] |
33 | set DocOwner2 [lindex ${list} 8] |
34 | set DocRefCount2 [lindex ${list} 11] |
35 | set deltaRefCount [expr ${DocRefCount1} - ${DocRefCount2}] |
36 | if { ${DocOwner2} == "NULL" && ${deltaRefCount} >= 1 } then { |
37 | puts "OCC159: OK" |
38 | } else { |
39 | puts "OCC159: Error" |
40 | } |
41 | } |