[occt.git] / tests / bugs / caf / bug22788_1_std

puts "============"
puts "OCC22788"
puts "============"
puts ""
#######################################################################
# 
#######################################################################

pload QAcommands

set BugNumber OCC22788

NewDocument D MDTV-Standard

set aFile OCC22788.std

Open [locate_data_file ${aFile}] D

Close D

return

set log [OCC159 D]

set list [split ${log}]
set ll [llength ${list}]

if { ${ll} < 13 } {
    puts "OCC159: Error"
} else {
    set DocRefCount1 [lindex ${list} 2]
    set DocOwner1    [lindex ${list} 5]
    set DocOwner2    [lindex ${list} 8]
    set DocRefCount2 [lindex ${list} 11]
    set deltaRefCount [expr ${DocRefCount1} - ${DocRefCount2}]
    if { ${DocOwner2} == "NULL" && ${deltaRefCount} >= 1 } then {
	puts "OCC159: OK"
    } else {
	puts "OCC159: Error"
    }
}
Commit	Line	Data
ff205346	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	}