0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26431_3
CommitLineData
4e14c88f 1puts "============"
2puts "OCC26431"
3puts "============"
4puts ""
5###############################
6## Can't cut a sphere from a cylinder
7###############################
8
9restore [locate_data_file bug26431_Body.brep] b1
10restore [locate_data_file bug26431_Sphere.brep] b2
11
12bop b1 b2
13bopcut result
14
15checkshape result
16
17decho off
18dlog reset
19dlog on
20
21bopargcheck result #F
22
23set info [dlog get]
24dlog reset
25dlog off
26decho on
27
28set MessageList {
29"Faulties for FIRST shape found : 9"
30"Shapes are not suppotrted by BOP: NO"
31"Self-Intersections : NO"
32"Check for SI has been aborted : NO"
33"Too small edges : NO"
34"Bad faces : NO"
35"Too close vertices : DISABLED"
36"Too close edges : DISABLED"
37"Shapes with Continuity C0 : YES Cases\\(9\\) Total shapes\\(9\\)"
38"Invalid Curve on Surface : NO"
39"Faulties for SECOND shape found : 0"
40}
41for {set i 1} {$i <= 11} {incr i} {
42 set str [ lindex ${MessageList} [expr $i - 1] ]
43 if { [regexp ${str} ${info}] == 1 } {
44 puts "OK : There is #$i message"
45 } else {
46 puts "Error : There is not #$i message"
47 puts $str
48 }
49}
50
2f9dedc5 51checkprops result -s 14.4399
4e14c88f 52
53set nbshapes_expected "
54Number of shapes in shape
55 VERTEX : 7
56 EDGE : 20
57 WIRE : 7
58 FACE : 6
59 SHELL : 1
60 SOLID : 1
61 COMPSOLID : 0
62 COMPOUND : 1
63 SHAPE : 43
64"
65checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction"
5747059b 66checkview -display result -3d -path ${imagedir}/${test_image}.png