Adding test cases from grid chl
[occt.git] / tests / bugs / modalg / bug497_1
1 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_3"
2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
3
4 puts "========="
5 puts " OCC497 "
6 puts "(case 1)"
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 OCC497a.brep] a_1 
14 puts [checkshape a_1]
15
16 restore [locate_data_file OCC497b.brep] a_2
17 puts [checkshape a_2]
18
19 if [catch {bcut result a_1 a_2 } catch_result] {
20     puts "Faulty OCC497:function CUT works wrongly "
21 } else {
22     puts "OCC497 : function CUT works without hangs up "
23 }
24 set square 0
25 set 2dviewer 0