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