puts "================" puts "OCC22924" puts "================" puts "" ###################################################################################### # We need more stable work of ShapeAnalysis_FreeBounds::ConnectEdgesToWires() ###################################################################################### set BugNumber OCC22924 pload XDE set order {1 2 3 4 5 6 7 8 9 10} restore [locate_data_file bug22924_3D_Sketcher.brep] a set err 0 set numcheck 100 set lord [split $order " "] for {set i 1} {$i <= $numcheck} {incr i} { set val [connectedges r a] set lnum [lindex [split $val \n] 1] set llnum [split $lnum " "] set ll [llength $llnum] for {set j 0} {$j <= $ll} {incr j} { set ref_val [lindex $lord $j] set check_val [lindex $llnum $j] if {$ref_val == $check_val} { continue } incr err } } if $err { puts "Error $err" puts "Faulty ${BugNumber}" } else { puts "OK" }