0026644: ShapeUpgrade_UnifySameDomain - strange behavior
[occt.git] / tests / bugs / heal / bug26644
1 puts "========"
2 puts "OCC26644"
3 puts "========"
4 puts ""
5 #######################################################################
6 # ShapeUpgrade_UnifySameDomain - strange behavior
7 #######################################################################
8
9 restore [locate_data_file bug26644_input.brep] a
10
11 # 1
12 checkarea a 158.466 1e-1 0.01
13
14 nbshapes a -t
15
16 vinit
17 vsetdispmode 1
18 vclear
19 vdisplay a
20 vfit
21 vdump ${imagedir}/${casename}_1.png
22
23 # 2
24 unifysamedom r a +f +e -b
25
26 checkshape r f
27
28 checkarea a 158.466 1e-1 0.01
29
30 set nbshapes_expected "
31 Number of shapes in shape
32  VERTEX    : 32
33  EDGE      : 50
34  WIRE      : 23
35  FACE      : 23
36  SHELL     : 3
37  SOLID     : 3
38  COMPSOLID : 0
39  COMPOUND  : 1
40  SHAPE     : 135
41 "
42 checknbshapes r -ref ${nbshapes_expected} -t -m "Shape Upgrade"
43
44 vclear
45 vdisplay r
46 vdump ${imagedir}/${casename}_2.png