mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
ff205346c9
Possibility to read shapes and OCAF documents from old persistence format (Std and StdL schema) is restored. Test cases used old persistent files on input are restored with suffix "_std" Removing toolkit from OS package
42 lines
836 B
Plaintext
42 lines
836 B
Plaintext
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"
|
|
}
|
|
}
|