puts "============"
puts "OCC27998"
puts "============"
puts ""
######################################################
# Self-intersection is not detected
######################################################

restore [locate_data_file bug27998_shape_self-int.brep] a

set info1 [bopcheck a 9]

if { ([regexp "F/F: x18 x18" $info1] != 1) && ([regexp "F/F: x44 x44" $info1] != 1) } {
    puts "Error : bopcheck a works wrong"
} else {
    puts "OK: bopcheck a works properly"
}