0026742: Update test cases for using checknbshapes procedure instead of global variables
[occt.git] / tests / bugs / modalg_1 / bug19071
1 puts "============"
2 puts "OCC19071"
3 puts "============"
4 puts ""
5 #######################################################################
6 # The MakeFuse or the MakePartition function crash together on 2 torus
7 #######################################################################
8
9 set BugNumber OCC19071
10
11 puts "Load first shape ..."
12 restore [locate_data_file OCC19071_Rotation_2.brep] b1 
13 puts "Load second shape ..."
14 restore [locate_data_file OCC19071_Torus_2.brep] b2 
15
16 puts "Prepare boolean operation ..."
17 bop b1 b2
18
19 puts "Start boolean operation ..."
20 bopfuse result
21 puts "Finish boolean operation ..."
22
23 set square 177462
24
25 checknbshapes result -vertex 6 -edge 16 -wire 6 -face 6 -shell 1 -solid 1 -compsolid 0 -compound 1 -shape 37
26
27 set 2dviewer 0
28