fe8897e8d05df72fff1b612ebb5bd5dd67950e96
[occt.git] / tests / bugs / modalg_2 / bug497_5
1 puts "TODO OCC24861 ALL: Error : The area of result shape is"
2
3 puts "========="
4 puts " OCC497 "
5 puts "(case 5)"
6 puts "========="
7 puts ""
8 ########################################################
9 ## Result of cut and fuse operation are faulty shapes although arguments are valid.
10 ########################################################
11
12 restore [locate_data_file OCC497i.brep] a_1 
13 checkshape a_1
14
15 restore [locate_data_file OCC497j.brep] a_2
16 checkshape a_2
17
18 if [catch {bfuse result a_1 a_2 } catch_result] {
19     puts "Faulty OCC497:function FUSE works wrongly "
20 } else {
21     puts "OCC497 : function FUSE works without hangs up "
22 }
23 checkprops result -s 3280.73 
24 checkshape result
25 checkview -display result -2d -path ${imagedir}/${test_image}.png