puts "============"
puts "OCC6538"
puts "============"
puts ""
######################################################
# Empty result obtained by operation "common" for couple of faces
######################################################

set BugNumber OCC6538

restore [locate_data_file OCC6538-f1.brep] s1 
restore [locate_data_file OCC6538-f2.brep] s2 

checkshape s1
checkshape s2

bop s1 s2
bopcommon result

checkprops result -s 18.695 
checkshape result

checknbshapes result -vertex 16 -edge 16 -wire 1 -face 1 -shell 0 -solid 0 -compsolid 0 -compound 1 -shape 35
checkview -display result -2d -path ${imagedir}/${test_image}.png