0025333: Result wires obtained after TestHarness command "connectedges" contains...
[occt.git] / tests / bugs / heal / bug25333
1 puts "========"
2 puts "OCC25333"
3 puts "========"
4 puts ""
5 ##########################################################################################
6 # Result wires obtained after TestHarness command "connectedges" contains internal edges
7 ##########################################################################################
8
9 restore [locate_data_file bug25318_TheShapeTotal.brep] a
10 connectedges r a
11
12 set WireSet [explode r]
13 set ii 0
14 set IsFixed "TRUE"
15 while {$ii != [llength $WireSet]} {
16   set EdgeSet [explode [lindex $WireSet $ii]]
17   set iii 0
18   while {$iii != [llength $EdgeSet]} {
19     set EdgeInfo [whatis [lindex $EdgeSet $iii]]
20     if {[lindex $EdgeInfo 5] == "INTERNAL"} {
21       set IsFixed "FALSE"
22     }
23     set iii [expr $iii + 1]
24   }
25   set ii [expr $ii + 1]
26 }
27
28 if {$IsFixed == "FALSE"} {
29   puts "ERROR: OCC25333 is reproduced"
30   puts "       Internal edge is detected"
31 }