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

puts "============"
puts "OCC22923"
puts "============"
#######################################################################
# The command "intersect" throws an exception
#######################################################################

set BugNumber OCC22923

restore [locate_data_file bug22923_Face-2_7.brep] b1 
restore [locate_data_file bug22923_Face-7_0.brep] b2 

set exception_status 0

mksurface s1 b1
mksurface s2 b2

set msg [ intersect i s1 s2 ]
set index [ lsearch $msg Exception ]

if {$index > -1} {
  set exception_status 1 }   

if { ${exception_status} != 0 } {
   puts "Faulty ${BugNumber}"
} else {
   puts "OK ${BugNumber}"
}
Commit	Line	Data
809eca9d	1	puts "============"
	2	puts "OCC22923"
	3	puts "============"
	4	#######################################################################
	5	# The command "intersect" throws an exception
	6	#######################################################################
	7
	8	set BugNumber OCC22923
	9
	10	restore [locate_data_file bug22923_Face-2_7.brep] b1
	11	restore [locate_data_file bug22923_Face-7_0.brep] b2
	12
	13	set exception_status 0
	14
	15	mksurface s1 b1
	16	mksurface s2 b2
	17
	18	set msg [ intersect i s1 s2 ]
	19	set index [ lsearch $msg Exception ]
	20
	21	if {$index > -1} {
	22	set exception_status 1 }
	23
	24	if { ${exception_status} != 0 } {
	25	puts "Faulty ${BugNumber}"
	26	} else {
	27	puts "OK ${BugNumber}"
	28	}