0e94a94e |
1 | |
2 | puts "========================" |
3 | puts "BUC60703" |
4 | puts "========================" |
5 | puts "" |
6 | #################################### |
7 | ## Crash during a fuse whilst two plans are tangent. |
8 | #################################### |
9 | |
10 | restore [locate_data_file buc60703d.brep] a |
11 | #maxtolerance a |
352ffd73 |
12 | checkshape a |
0e94a94e |
13 | restore [locate_data_file buc60703f.brep] b |
14 | #maxtolerance b |
352ffd73 |
15 | checkshape b |
0e94a94e |
16 | |
17 | if [catch {bfuse result a b } catch_result] { |
18 | puts "Faulty BUC60703: here is problem with FUSE operation" |
19 | } else { |
20 | puts "OK OCC348: function FUSE works ok" |
21 | if [catch {checkshape result} catch_result] { |
22 | set mistake 1 |
23 | } else { |
24 | set mistake 0 |
25 | } |
26 | |
27 | if { $mistake != 0} { |
28 | puts "Faulty BUC60703 : here is checking problem. See also OCC438: 919 D3 and D4" |
29 | } else { |
30 | puts "BUC60703 : here is NOT checking problem" |
31 | } |
32 | } |
58cf74e0 |
33 | checkprops result -s 505.797 |
5747059b |
34 | checkview -display result -2d -path ${imagedir}/${test_image}.png |
0e94a94e |
35 | |