mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
e837410dac
All uses of "MDTV-Standard" and "MDTV-Design" in tests changed to "BinOcaf", and "MDTV-XCAF" changed to "BinXCAF". Formats changed: .std to .cbf, .dxc to .dbf. Test groups renamed accordingly: xcaf: brep_to_dxc -> brep_to_xbf, igs_to_dxc -> igs_to_xbf, stp_to_dxc -> stp_to_xbf, dxc -> xbf/A1, dxc_add_CL -> xbf_add_CL xml: ocaf_std -> ocaf_cbf, xcaf_dxc -> xcaf_xbf
42 lines
830 B
Plaintext
Executable File
42 lines
830 B
Plaintext
Executable File
puts "============"
|
|
puts "OCC22788"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
#
|
|
#######################################################################
|
|
|
|
pload QAcommands
|
|
|
|
set BugNumber OCC22788
|
|
|
|
NewDocument D BinOcaf
|
|
|
|
set aFile OCC22788.cbf
|
|
|
|
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"
|
|
}
|
|
}
|