[occt.git] / tests / bugs / moddata_1 / bug20524

puts "========================"
puts "OCC20524"
puts "========================"
puts ""
#######################################################################
# Wrong intersection
#######################################################################

set BugNumber OCC20524

restore [locate_data_file OCC20524-surf1.draw] surf1 
restore [locate_data_file OCC20524-surf2.draw] surf2 

intersect result surf1 surf2

set che [whatis result]
if { ![regexp {3d curve} $che] } {
    puts "Faulty ${BugNumber}: command INTERSECT works wrongly"
} else {
  puts "${BugNumber} OK : command INTERSECT works properly"
}
Commit	Line	Data
3bea4c16	1	puts "========================"
	2	puts "OCC20524"
	3	puts "========================"
	4	puts ""
	5	#######################################################################
	6	# Wrong intersection
	7	#######################################################################
	8
	9	set BugNumber OCC20524
	10
	11	restore [locate_data_file OCC20524-surf1.draw] surf1
	12	restore [locate_data_file OCC20524-surf2.draw] surf2
	13
	14	intersect result surf1 surf2
	15
	16	set che [whatis result]
	17	if { ![regexp {3d curve} $che] } {
	18	puts "Faulty ${BugNumber}: command INTERSECT works wrongly"
	19	} else {
	20	puts "${BugNumber} OK : command INTERSECT works properly"
	21	}
	22