tests/bugs/caf/bug22788_1

   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 BinOcaf
  14
  15 set aFile OCC22788.cbf
  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 }