Integration part of tests of grid chl
[occt.git] / tests / bugs / modalg / bug497_5
1
2 puts "========="
3 puts " OCC497 "
4 puts "(case 5)"
5 puts "========="
6 puts ""
7 ########################################################
8 ## Result of cut and fuse operation are faulty shapes although arguments are valid.
9 ########################################################
10
11 restore [locate_data_file OCC497i.brep] a_1 
12 puts [checkshape a_1]
13
14 restore [locate_data_file OCC497j.brep] a_2
15 puts [checkshape a_2]
16
17 if [catch {bfuse result a_1 a_2 } catch_result] {
18     puts "Faulty OCC497:function FUSE works wrongly "
19 } else {
20     puts "OCC497 : function FUSE works without hangs up "
21 }
22 set square 3233.42
23 set 2dviewer 0