mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
44f2982356
Fix processing of subshape names in STEP in reading and writing. Replace creating subshapes in Document as tree (invalid) with plain subshapes structure. Update test cases.
39 lines
1.2 KiB
Plaintext
Executable File
39 lines
1.2 KiB
Plaintext
Executable File
# Original bug : 23384
|
|
# Date : 16 Aug 2012
|
|
pload DCAF
|
|
XOpen [locate_data_file bug23384-doc_subshapes_plain.xbf] doc
|
|
set info1 [XStat doc]
|
|
regexp {level N 0 +: +([-0-9.+eE]+)} $info1 full l0
|
|
regexp {level N 1 +: +([-0-9.+eE]+)} $info1 full l1
|
|
regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info1 full nb
|
|
regexp {Number of labels with name += +([-0-9.+eE]+)} $info1 full nbname
|
|
|
|
param write.stepcaf.subshapes.name 1
|
|
|
|
WriteStep doc $imagedir/doc_subshapes.stp
|
|
|
|
param read.stepcaf.subshapes.name 1
|
|
|
|
ReadStep after_doc $imagedir/doc_subshapes.stp
|
|
|
|
set info2 [XStat after_doc]
|
|
regexp {level N 0 +: +([-0-9.+eE]+)} $info2 full l0_1
|
|
regexp {level N 1 +: +([-0-9.+eE]+)} $info2 full l1_1
|
|
regexp {Total number of labels for shapes in the document += +([-0-9.+eE]+)} $info2 full nb_1
|
|
regexp {Number of labels with name += +([-0-9.+eE]+)} $info2 full nbname_1
|
|
|
|
if { ${l0} != ${l0_1} ||
|
|
${l0} != "4" ||
|
|
${l1} != ${l1_1} ||
|
|
${l1} != "131" ||
|
|
${nb} != ${nb_1} ||
|
|
${nb} != "135" ||
|
|
${nbname} != ${nbname_1} ||
|
|
${nbname} != "135"} {
|
|
puts "Error : Document is read/written wrong!"
|
|
}
|
|
|
|
Close doc
|
|
Close after_doc
|
|
file delete -force $imagedir/doc_subshapes.stp
|