0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / bugs / modalg_2 / bug249_4
1 puts "TODO OCC12345 ALL: Error : The length of result shape is"
2 puts "TODO OCC12345 ALL: Error :  is WRONG because number of"
3
4 puts "========================"
5 puts " OCC249 "
6 puts "========================"
7
8 #################################################
9 ## puts " BOPFUSE     case_9_wire_a.brep and case_9_edge3.brep"
10 #################################################
11  puts " " 
12 restore [locate_data_file case_9_wire_a.brep] a
13 restore [locate_data_file case_9_edge3.brep] b
14 puts [bop a b]
15 puts [bopfuse result]
16
17 checknbshapes result -vertex 6 -edge 5
18 set length 0
19 set 2dviewer 2
20