4e14c88f |
1 | puts "============" |
2 | puts "OCC26431" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Can't cut a sphere from a cylinder |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug26431_Body.brep] b1 |
10 | restore [locate_data_file bug26431_Sphere.brep] b2 |
11 | |
12 | bop b1 b2 |
13 | bopcut result |
14 | |
15 | checkshape result |
16 | |
17 | decho off |
18 | dlog reset |
19 | dlog on |
20 | |
21 | bopargcheck result #F |
22 | |
23 | set info [dlog get] |
24 | dlog reset |
25 | dlog off |
26 | decho on |
27 | |
28 | set 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 | } |
41 | for {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 |
51 | checkprops result -s 14.4399 |
4e14c88f |
52 | |
53 | set nbshapes_expected " |
54 | Number 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 | " |
65 | checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction" |
5747059b |
66 | checkview -display result -3d -path ${imagedir}/${test_image}.png |