mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
29 lines
582 B
Plaintext
29 lines
582 B
Plaintext
puts "==========="
|
|
puts "OCC159"
|
|
puts "==========="
|
|
|
|
pload QAcommands
|
|
|
|
NewDocument D MDTV-Standard
|
|
|
|
set log [OCC159 D]
|
|
|
|
set list [split ${log}]
|
|
set ll [llength ${list}]
|
|
|
|
if { ${ll} < 13} then {
|
|
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"
|
|
}
|
|
}
|
|
|