Adding test cases from chl grid
[occt.git] / tests / bugs / heal / bug22924
1 puts "================"
2 puts "OCC22924"
3 puts "================"
4 puts ""
5 ######################################################################################
6 # We need more stable work of ShapeAnalysis_FreeBounds::ConnectEdgesToWires()
7 ######################################################################################
8
9 set BugNumber OCC22924
10
11 pload XDE
12
13 set order {1 2 3 4 5 6 7 8 9 10}
14 restore [locate_data_file bug22924_3D_Sketcher.brep] a 
15 set err 0
16 set numcheck 100
17 set lord [split $order " "]
18 for {set i 1} {$i <= $numcheck} {incr i} {
19     set val [connectedges r a]
20     set lnum [lindex [split $val \n] 1]
21     set llnum [split $lnum " "]
22     set ll [llength $llnum]
23     for {set j 0} {$j <= $ll} {incr j} {
24         set ref_val [lindex $lord $j]
25         set check_val [lindex $llnum $j]
26         if {$ref_val == $check_val} {
27             continue
28         }
29         incr err
30     }
31 }
32
33 if $err  {
34     puts "Error $err"
35     puts "Faulty ${BugNumber}"
36 } else {
37     puts "OK"
38 }