1 puts "TODO OCC27614 ALL: ERROR: OCC27614 is reproduced."
7 #################################################
8 # Sewing returns result with too high tolerance
9 #################################################
13 restore [locate_data_file bug27614_CC.brep] c
16 sewing result $sew_Tol c_1 c_2
20 set bug_info [string trim [tolerance result]]
21 set max_Tol [lindex $bug_info 1]
22 set max_Tol [string trim [string range $max_Tol [expr {[string first "=" $max_Tol] + 1}] [expr {[string length $max_Tol] - 1}]]]
23 if {$max_Tol > $sew_Tol} {
24 puts "ERROR: OCC27614 is reproduced. Tolerance of shape is too high: ${max_Tol} (expected: ${sew_Tol})."