puts "=========="
puts "OCC28228"
puts "=========="
puts ""
######################################################################################################################
# Provide possibility to keep the given edges during unification of faces in ShapeUpgrade_UnifySameDomain algorithm
######################################################################################################################

restore [locate_data_file bug28228_unify_with_keep.brep] a

explode a e

unifysamedom result a a_13
checknbshapes result -face 4 -edge 19 -vertex 16

checkview -display result -2d -path ${imagedir}/${test_image}.png