[occt.git] / tests / bugs / modalg_5 / bug25509_5

puts "============"
puts "OCC25509"
puts "============"
puts ""
######################################################
# Wrong shape considered as valid by checkshape
######################################################

# 05
# Two vertices FORWARD of the solid that is out of the growth
# 
box b1 10 10 10 

explode b1 

vertex v1 11 11 0 
vertex v2 11 11 11 

shape result so
add b1_1 result
add v1 result
add v2 result

decho off
set info [checkshape result]
decho on

if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } {
   puts "Error : There are no mistakes by checkshape-command"
} else {
   puts "OK : There are mistakes by checkshape-command"
}

set 2dviewer 1
Commit	Line	Data
949df2b6	1	puts "============"
	2	puts "OCC25509"
	3	puts "============"
	4	puts ""
	5	######################################################
	6	# Wrong shape considered as valid by checkshape
	7	######################################################
	8
	9	# 05
	10	# Two vertices FORWARD of the solid that is out of the growth
	11	#
	12	box b1 10 10 10
	13
	14	explode b1
	15
	16	vertex v1 11 11 0
	17	vertex v2 11 11 11
	18
	19	shape result so
	20	add b1_1 result
	21	add v1 result
	22	add v2 result
	23
	24	decho off
	25	set info [checkshape result]
	26	decho on
	27
	28	if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } {
	29	puts "Error : There are no mistakes by checkshape-command"
	30	} else {
	31	puts "OK : There are mistakes by checkshape-command"
	32	}
	33
	34	set 2dviewer 1