Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug490
1
2 puts "========="
3 puts " OCC490 "
4 puts "========="
5 puts ""
6 ########################################################
7 ## Result of fuse operation is faulty shape although arguments are valid
8 ########################################################
9
10 restore [locate_data_file OCC490a.brep] a_1 
11 puts [checkshape a_1]
12
13 restore [locate_data_file OCC490b.brep] a_2
14 puts [checkshape a_2]
15
16 if [catch {bfuse result a_1 a_2 } catch_result] {
17     puts "Faulty OCC490: command FUSE works wrongly"
18 } else {
19     puts "OCC490 : function FUSE works without hangs up "
20 }
21 set square 2744.08
22 set 2dviewer 0