1puts "============"
2puts "OCC27998"
3puts "============"
4puts ""
5######################################################
6# Self-intersection is not detected
7######################################################
8
9restore [locate_data_file bug27998_solid_8.brep] a
10
11set info1 [bopcheck a 9]
12
13if { [regexp "F/F: x6 x6" $info1] != 1 } {
14    puts "Error : bopcheck a works wrong"
15} else {
16    puts "OK: bopcheck a works properly"
17}