mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-07-20 12:45:50 +03:00
809eca9db6
Modified TODO in some offset cases. Deleted the same test cases bug697_* in /bugs/modalg Deleted test cases which is based on v2d commands Added test cases to folder bugs
42 lines
836 B
Plaintext
Executable File
42 lines
836 B
Plaintext
Executable File
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"
|
|
}
|
|
}
|