Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60703_4
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
12 puts [checkshape a]
13 restore [locate_data_file buc60703f.brep] b
14 #maxtolerance b
15 puts [checkshape b]
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 }
33 set square 505.797
34 set 2dviewer 0
35