1puts "TODO CR29596 ALL: Warning: Intersection of pair of shapes has failed"
2
3puts "========"
4puts "OCC28283"
5puts "========"
6puts ""
7#################################################
8# The command bopcheck crashes on the given shape
9#################################################
10
11restore [locate_data_file bug28283_shell.brep] a
12
13bfuzzyvalue 1
14if [catch {bopcheck a}] {
15  puts "Error: bopcheck crash"
16} else {
17  puts "OK: bopcheck passed"
18}
19