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

puts "================"
puts "OCC25584"
puts "================"
puts ""
#######################################################################
# Wrong result obtained by PerformInfinitePoint Test
#######################################################################

restore [locate_data_file t6.rle] res_1

explode res_1

shape z so
add res_1_3 z

vprops z

set res [xclassify z]
if { [regexp "IN" $res] == 1 } {
   puts "OK : Good result obtained by PerformInfinitePoint Test"
} else {
   puts "Error : Wrong result obtained by PerformInfinitePoint Test"
}
Commit	Line	Data
6219c44c	1	puts "================"
	2	puts "OCC25584"
	3	puts "================"
	4	puts ""
	5	#######################################################################
	6	# Wrong result obtained by PerformInfinitePoint Test
	7	#######################################################################
	8
	9	restore [locate_data_file t6.rle] res_1
	10
	11	explode res_1
	12
	13	shape z so
	14	add res_1_3 z
	15
	16	vprops z
	17
	18	set res [xclassify z]
	19	if { [regexp "IN" $res] == 1 } {
	20	puts "OK : Good result obtained by PerformInfinitePoint Test"
	21	} else {
	22	puts "Error : Wrong result obtained by PerformInfinitePoint Test"
	23	}