[occt.git] / tests / bugs / demo / bug23409

puts "============"
puts "CR23409"
puts "============"
puts ""
###################################################################################
# Tricheck command doesn't report problem when triangulation has unexpected holes
###################################################################################

restore [locate_data_file bug23167_f397.brep] result
vinit
vsetdispmode 1
vdisplay result
axo
fit
isos result 0
triangles result
set info_bad [tricheck result]
if { [regexp "Not connected mesh inside face 1" $info_bad] != 1 } {
    puts "Error : Tricheck command doesn't report message"
}

tclean result
incmesh result 0.01
set info_good [tricheck result]
if { [string compare $info_good "" ] != 0 } {
    puts "Error : Tricheck command works incorrect when shape looks good"
}

checkview -display result -3d -path ${imagedir}/${test_image}.png
Commit	Line	Data
2e1a4dae	1	puts "============"
	2	puts "CR23409"
	3	puts "============"
	4	puts ""
	5	###################################################################################
	6	# Tricheck command doesn't report problem when triangulation has unexpected holes
	7	###################################################################################
	8
	9	restore [locate_data_file bug23167_f397.brep] result
	10	vinit
	11	vsetdispmode 1
	12	vdisplay result
	13	axo
	14	fit
	15	isos result 0
	16	triangles result
	17	set info_bad [tricheck result]
	18	if { [regexp "Not connected mesh inside face 1" $info_bad] != 1 } {
	19	puts "Error : Tricheck command doesn't report message"
	20	}
	21
	22	tclean result
	23	incmesh result 0.01
	24	set info_good [tricheck result]
	25	if { [string compare $info_good "" ] != 0 } {
	26	puts "Error : Tricheck command works incorrect when shape looks good"
	27	}
	28
5747059b	29	checkview -display result -3d -path ${imagedir}/${test_image}.png