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

puts "================"
puts "OCC21317"
puts "================"
puts ""
######################################################################################
# Face cannot be fixed by Shape Healing
######################################################################################

set BugNumber OCC21317

catch {pload XDE}

restore [locate_data_file bug21317_faulty.brep] a 
fixshape result a
set info [checkshape result]

# Resume
puts ""
if { [regexp {This shape seems to be valid} $info] } {
   puts "OK ${BugNumber}"
} else {
   puts "Faulty ${BugNumber}"
}

set 2dviewer 0
Commit	Line	Data
673693f1	1	puts "================"
	2	puts "OCC21317"
	3	puts "================"
	4	puts ""
	5	######################################################################################
	6	# Face cannot be fixed by Shape Healing
	7	######################################################################################
	8
	9	set BugNumber OCC21317
	10
	11	catch {pload XDE}
	12
	13	restore [locate_data_file bug21317_faulty.brep] a
	14	fixshape result a
	15	set info [checkshape result]
	16
	17	# Resume
	18	puts ""
	19	if { [regexp {This shape seems to be valid} $info] } {
	20	puts "OK ${BugNumber}"
	21	} else {
	22	puts "Faulty ${BugNumber}"
	23	}
	24
	25	set 2dviewer 0