tests/bugs/modalg_7/bug27614

   1 puts "TODO OCC27614 ALL: ERROR: OCC27614 is reproduced."
   2
   3 puts "========"
   4 puts "OCC27614"
   5 puts "========"
   6 puts ""
   7 #################################################
   8 # Sewing returns result with too high tolerance
   9 #################################################
  10
  11 set sew_Tol 0.2
  12
  13 restore [locate_data_file bug27614_CC.brep] c
  14
  15 explode c
  16 sewing result $sew_Tol c_1 c_2
  17
  18 checkshape result
  19
  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})."
  25 }