Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug485
1
2 puts "========="
3 puts " OCC485 "
4 puts "========="
5 puts ""
6 #######################################
7 ## Draw hangs up during performing fuse operation
8 #######################################
9
10 restore [locate_data_file OCC485a.brep] a_1 
11 puts [checkshape a_1]
12
13 restore [locate_data_file OCC485a.brep] a_2
14 puts [checkshape a_2]
15
16 if [catch {bfuse result a_1 a_2 } result] {
17     puts "Faulty OCC485: Draw hangs up during performing fuse operation"
18 } else {
19     puts "OCC485 OK: function FUSE works without Draw hangs up "
20 }
21
22 set square 9291.88
23 set 2dviewer 0
24