[occt.git] / tests / bugs / modalg_5 / bug23698

puts "========"
puts "OCC23698"
puts "========"
puts ""
##############################################
# BRepBuilderAPI_Copy creates invalid copy
##############################################

restore [locate_data_file case_1_solid.brep] a
restore [locate_data_file case_1_wire3.brep] b
bcommon result b a
tcopy result r

regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full anEdge
if { ${anEdge} == 0 } {
  puts "Error: Common operation is wrong"
}

regexp {Mass +: +([-0-9.+eE]+)} [lprops r] full aCopyEdge
if { ${anEdge} != ${aCopyEdge} } {
  puts "Error: Copy is wrong"
} else {
  puts "OK: Copy is correct"
}
Commit	Line	Data
e1cbc34c	1	puts "========"
	2	puts "OCC23698"
	3	puts "========"
	4	puts ""
	5	##############################################
	6	# BRepBuilderAPI_Copy creates invalid copy
	7	##############################################
	8
	9	restore [locate_data_file case_1_solid.brep] a
	10	restore [locate_data_file case_1_wire3.brep] b
	11	bcommon result b a
	12	tcopy result r
	13
	14	regexp {Mass +: +([-0-9.+eE]+)} [lprops result] full anEdge
	15	if { ${anEdge} == 0 } {
	16	puts "Error: Common operation is wrong"
	17	}
	18
	19	regexp {Mass +: +([-0-9.+eE]+)} [lprops r] full aCopyEdge
	20	if { ${anEdge} != ${aCopyEdge} } {
	21	puts "Error: Copy is wrong"
	22	} else {
	23	puts "OK: Copy is correct"
	24	}