#puts "TODO OCC111111 ALL: Faulty shapes in variables faulty_1 to faulty_"
puts "TODO OCC111111 ALL: Error : The area of result shape is"

pload QAcommands

puts "============"
puts "OCC6272"
puts "============"
puts ""
######################################################
# Incorrect results of gluing operation
######################################################

set BugNumber OCC6272

restore [locate_data_file OCC6272_bridge2.brep] a1 
restore [locate_data_file OCC6272_revolution.brep] a2 

OCC307 result a1 a2 1

checkprops result -s 0 
checkshape result
checkview -display result -2d -path ${imagedir}/${test_image}.png