a99929b51a24ef8accfbdcad0a2ac9ff58e234d9
[occt.git] / tests / bugs / modalg_2 / bug497_5
1 puts "TODO OCC24861 ALL: Faulty shapes in variables faulty_1 to faulty_"
2 puts "TODO OCC24861 ALL: Error : The square of result shape is"
3
4 puts "========="
5 puts " OCC497 "
6 puts "(case 5)"
7 puts "========="
8 puts ""
9 ########################################################
10 ## Result of cut and fuse operation are faulty shapes although arguments are valid.
11 ########################################################
12
13 restore [locate_data_file OCC497i.brep] a_1 
14 checkshape a_1
15
16 restore [locate_data_file OCC497j.brep] a_2
17 checkshape a_2
18
19 if [catch {bfuse result a_1 a_2 } catch_result] {
20     puts "Faulty OCC497:function FUSE works wrongly "
21 } else {
22     puts "OCC497 : function FUSE works without hangs up "
23 }
24 set square 3280.73
25 set 2dviewer 0