Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug492
1
2 puts "========="
3 puts " OCC492 "
4 puts "========="
5 puts ""
6 ##############################
7 ## Exception occurs during fuse operation 
8 ##############################
9
10 restore [locate_data_file OCC492a.brep] a_1 
11 puts [checkshape a_1]
12
13 restore [locate_data_file OCC492b.brep] a_2
14 puts [checkshape a_2]
15
16 if [catch {bfuse result a_1 a_2 } catch_result] {
17     puts "Faulty OCC492: command FUSE works wrongly"
18 } else {
19     puts "OCC492 : function FUSE works without hangs up "
20 }
21 set square 64.2386
22 set 3dviewer 1