[occt.git] / tests / bugs / modalg_7 / bug27614

puts "TODO OCC27614 ALL: ERROR: OCC27614 is reproduced."

puts "========"
puts "OCC27614"
puts "========"
puts ""
#################################################
# Sewing returns result with too high tolerance
#################################################

set sew_Tol 0.2

restore [locate_data_file bug27614_CC.brep] c

explode c
sewing result $sew_Tol c_1 c_2

checkshape result

set bug_info [string trim [tolerance result]]
set max_Tol [lindex $bug_info 1]
set max_Tol [string trim [string range $max_Tol [expr {[string first "=" $max_Tol] + 1}] [expr {[string length $max_Tol] - 1}]]]
if {$max_Tol > $sew_Tol} {
  puts "ERROR: OCC27614 is reproduced. Tolerance of shape is too high: ${max_Tol} (expected: ${sew_Tol})."
}
Commit	Line	Data
cba287d6	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	}