0024809: Exception is raised during perform of "bfillds" command on attached shape
[occt.git] / tests / heal / split_continuity_advanced / end
1 puts [DT_ShapeDivide result a]
2 set d [statshape result]
3 puts $d
4
5 set c0curv 0
6
7 set rx [regexp "(\[0-9\]+)\\s+c0curv *: *Curve Only C0" $d full c0curv]
8
9 if { $c0curv != 0 } {
10   puts "Error: $c0curv Curve Only C0 after DT_ShapeDivide operation."
11 }