[occt.git] / tests / bugs / modalg_2 / bug23472

puts "============"
puts "CR23472"
puts "============"
puts ""
##########################################################################################################
# BRepAlgoAPI_Section algorithm fails with exception while intersecting two faces
##########################################################################################################

restore [locate_data_file bug23472_f1.brep] f1
restore [locate_data_file bug23472_f2.brep] f2

bsection result f1 f2

regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full l      

if { $l != 0} {
  puts "Error : The bsection is not valid"
} 

# Service parameters
set mass -0.1
set m -0.1
Commit	Line	Data
07782e0c	1	puts "============"
	2	puts "CR23472"
	3	puts "============"
	4	puts ""
	5	##########################################################################################################
	6	# BRepAlgoAPI_Section algorithm fails with exception while intersecting two faces
	7	##########################################################################################################
	8
	9	restore [locate_data_file bug23472_f1.brep] f1
	10	restore [locate_data_file bug23472_f2.brep] f2
	11
4e57c75e	12	bsection result f1 f2
07782e0c	13
	14	regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full l
	15
	16	if { $l != 0} {
	17	puts "Error : The bsection is not valid"
	18	}
	19
	20	# Service parameters
	21	set mass -0.1
	22	set m -0.1