[occt.git] / tests / bugs / heal / bug25634

puts "============"
puts "OCC25634"
puts "============"
puts ""
######################################################
# Checking of compliance of vertices and pcurve fails
######################################################

restore [locate_data_file bug25634_shape3.brep] s

explode s e

set info [checkedge s_1 s]

# Resume
puts ""
if { [regexp {Edge seems OK.} ${info}] } {
   puts "OK: Checking is good"
} else {
   puts "Error: Checking is bad"
}
Commit	Line	Data
c31e0def	1	puts "============"
	2	puts "OCC25634"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Checking of compliance of vertices and pcurve fails
	7	######################################################
	8
	9	restore [locate_data_file bug25634_shape3.brep] s
	10
	11	explode s e
	12
	13	set info [checkedge s_1 s]
	14
	15	# Resume
	16	puts ""
	17	if { [regexp {Edge seems OK.} ${info}] } {
	18	puts "OK: Checking is good"
	19	} else {
	20	puts "Error: Checking is bad"
	21	}