mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-05 11:24:17 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
61 lines
1.7 KiB
Plaintext
Executable File
61 lines
1.7 KiB
Plaintext
Executable File
# Original bug : 23384
|
|
# Date : 16 Aug 2012
|
|
|
|
if {[array get env os_type] != ""} {
|
|
set os $env(os_type)
|
|
}
|
|
XOpen [locate_data_file bug23384-doc_subshapes.dxc] 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 {level N 2 +: +([-0-9.+eE]+)} $info1 full l2
|
|
regexp {level N 3 +: +([-0-9.+eE]+)} $info1 full l3
|
|
regexp {level N 4 +: +([-0-9.+eE]+)} $info1 full l4
|
|
regexp {level N 5 +: +([-0-9.+eE]+)} $info1 full l5
|
|
regexp {level N 6 +: +([-0-9.+eE]+)} $info1 full l6
|
|
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 {level N 2 +: +([-0-9.+eE]+)} $info2 full l2_1
|
|
regexp {level N 3 +: +([-0-9.+eE]+)} $info2 full l3_1
|
|
regexp {level N 4 +: +([-0-9.+eE]+)} $info2 full l4_1
|
|
regexp {level N 5 +: +([-0-9.+eE]+)} $info2 full l5_1
|
|
regexp {level N 6 +: +([-0-9.+eE]+)} $info2 full l6_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} ||
|
|
${l1} != ${l1_1} ||
|
|
${l2} != ${l2_1} ||
|
|
${l3} != ${l3_1} ||
|
|
${l4} != ${l4_1} ||
|
|
${l5} != ${l5_1} ||
|
|
${l6} != ${l6_1} ||
|
|
${nb} != ${nb_1} ||
|
|
${nbname} != ${nbname_1} } {
|
|
puts "Error : Document is read/written wrong!"
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|