Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug60703_2
1
2 puts "========================"
3 puts "BUC60703"
4 puts "================================="
5 puts "Action with models with CORRECT tolerance" 
6 puts "================================="
7 puts ""
8 ############################################
9 ## Crash during a fuse whilst two plans are tangent. 
10 ############################################
11
12 restore [locate_data_file buc60703c.brep] a 
13 puts [checkshape a]
14
15 restore [locate_data_file buc60703e.brep] b
16 puts [checkshape b]
17
18
19 if [catch {bfuse result a b } catch_result] {
20     puts "Faulty  BUC60703: here is problem with FUSE operation"
21 } else {
22     puts "OK BUC60703: function FUSE works ok"          
23     if [catch {checkshape result } catch_result] {
24         puts "WARNING BUC60703 : Function checkshape gives bad result"
25         puts " See also OCC438: 919 D3 and D4"
26     } else {
27         puts "BUC60703  OK in checkshape"
28     }   
29 }
30 set square 236.72
31 set 2dviewer 0