Adding of testing cases from subgroups 937 940 and 941 of CHL group
[occt.git] / tests / bugs / modalg_2 / bug497_4
CommitLineData
0e94a94e 1
2puts "========="
3puts " OCC497 "
4puts "(case 4)"
5puts "========="
6puts ""
7########################################################
8## Result of cut and fuse operation are faulty shapes although arguments are valid.
9########################################################
10
11restore [locate_data_file OCC497g.brep] a_1
352ffd73 12checkshape a_1
0e94a94e 13
14restore [locate_data_file OCC497h.brep] a_2
352ffd73 15checkshape a_2
0e94a94e 16
17if [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}
22set square 8710.56
23set 2dviewer 0