3bea4c16 |
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 | } |