[occt.git] / tests / bugs / moddata_2 / bug324

puts "========================"
puts " OCC324 "
puts "========================"
puts ""
#################################################################
## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads 
## to the program hang-up.
#################################################################

restore [locate_data_file OCC324a.draw] s1 
restore [locate_data_file OCC324b.draw] s2

if [catch {intersect result s1 s2} catch_result] {
    puts "Faulty OCC324: function INTERSECT works wrongly"
} else {
    puts "OCC324 OK: function INTERSECT works properly"
}

set 2dviewer 0
Commit	Line	Data
a87752f3	1	puts "========================"
	2	puts " OCC324 "
	3	puts "========================"
	4	puts ""
	5	#################################################################
	6	## The command "intersect" applied to the given arguments "s1" (plane) and "s2" (cylinder) leads
	7	## to the program hang-up.
	8	#################################################################
	9
	10	restore [locate_data_file OCC324a.draw] s1
	11	restore [locate_data_file OCC324b.draw] s2
	12
	13	if [catch {intersect result s1 s2} catch_result] {
	14	puts "Faulty OCC324: function INTERSECT works wrongly"
	15	} else {
	16	puts "OCC324 OK: function INTERSECT works properly"
	17	}
	18
	19	set 2dviewer 0
	20
	21