[occt.git] / tests / bugs / heal / bug24008_1

puts "========"
puts "OCC24008"
puts "========"
puts ""
#################################################################
# ShapeAnalysis_Surface causes exception in Geom_OffsetSurface
#################################################################

pload QAcommands

restore [locate_data_file bug24008_curv_6964.draw] a
restore [locate_data_file bug24008_surf_6962.draw] b

set info [OCC24008 a b]
if { [regexp "Exception" $info] != 0 } {
    puts "Error : Exception was caught"
} else {
    puts "OK: COmmand wrong propery"
}
Commit	Line	Data
2e9fd4bc	1	puts "========"
	2	puts "OCC24008"
	3	puts "========"
	4	puts ""
	5	#################################################################
	6	# ShapeAnalysis_Surface causes exception in Geom_OffsetSurface
	7	#################################################################
	8
	9	pload QAcommands
	10
	11	restore [locate_data_file bug24008_curv_6964.draw] a
	12	restore [locate_data_file bug24008_surf_6962.draw] b
	13
	14	set info [OCC24008 a b]
	15	if { [regexp "Exception" $info] != 0 } {
	16	puts "Error : Exception was caught"
	17	} else {
	18	puts "OK: COmmand wrong propery"
	19	}