mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
50 lines
1.5 KiB
Plaintext
Executable File
50 lines
1.5 KiB
Plaintext
Executable File
#INTERFACE DXF
|
|
puts "============"
|
|
puts "OCC910"
|
|
puts "============"
|
|
puts ""
|
|
#####################################################
|
|
## The problem with sat files depends on problem of BRepTools_WireExplorer
|
|
#####################################################
|
|
|
|
pload XDE
|
|
|
|
restore [locate_data_file OCC910.rle] a
|
|
|
|
checkshape a
|
|
explode a w
|
|
checkshape a_7
|
|
|
|
set list1 [expwire a_7]
|
|
regexp {TopoDS_Iterator\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopoDS_Iterator1
|
|
regexp {TopExp_Explorer\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopExp_Explorer1
|
|
regexp {BRepTools_WireExplorer donne ([-0-9.+eE]+) Edges} $list1 full BRepTools_WireExplorer1
|
|
|
|
|
|
set list2 [expwire a_7 a]
|
|
regexp {TopoDS_Iterator\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopoDS_Iterator2
|
|
regexp {TopExp_Explorer\(EDGE\) donne ([-0-9.+eE]+) Edges} $list1 full TopExp_Explorer2
|
|
regexp {BRepTools_WireExplorer donne ([-0-9.+eE]+) Edges} $list1 full BRepTools_WireExplorer2
|
|
|
|
puts "TopoDS_Iterator1 = ${TopoDS_Iterator1}"
|
|
puts "TopExp_Explorer1 = ${TopExp_Explorer1}"
|
|
puts "BRepTools_WireExplorer1 = ${BRepTools_WireExplorer1}"
|
|
|
|
puts "TopoDS_Iterator2 = ${TopoDS_Iterator2}"
|
|
puts "TopExp_Explorer2 = ${TopExp_Explorer2}"
|
|
puts "BRepTools_WireExplorer2 = ${BRepTools_WireExplorer2}"
|
|
|
|
if { ${TopoDS_Iterator1} != ${TopoDS_Iterator2} || \
|
|
${TopExp_Explorer1} != ${TopExp_Explorer2} || \
|
|
${BRepTools_WireExplorer1} != ${BRepTools_WireExplorer2} } {
|
|
puts "Faulty OCC910"
|
|
} else {
|
|
puts "OCC910 OK"
|
|
}
|
|
|
|
renamevar a_7 result
|
|
|
|
set length 149.816
|
|
set 2dviewer 0
|
|
|