79981d14 |
1 | puts "============" |
2 | puts "OCC27124" |
3 | puts "============" |
4 | puts "" |
5 | ############################### |
6 | ## Invalid curve on surface in the result of General Fuse operation |
7 | ############################### |
8 | |
9 | restore [locate_data_file bug27129_e.brep] e |
10 | restore [locate_data_file bug27129_p.brep] p |
11 | restore [locate_data_file bug27129_q.brep] q |
12 | |
13 | bclearobjects |
14 | bcleartools |
15 | baddobjects e |
16 | baddtools p q |
17 | bfillds |
18 | bbuild result |
19 | set log [bopargcheck result #f] |
20 | |
21 | set MessageList { |
22 | "Faulties for FIRST shape found : 1" |
23 | "Shapes are not suppotrted by BOP: NO" |
24 | "Self-Intersections : NO" |
25 | "Check for SI has been aborted : NO" |
26 | "Too small edges : NO" |
27 | "Bad faces : NO" |
28 | "Too close vertices : DISABLED" |
29 | "Too close edges : DISABLED" |
30 | "Shapes with Continuity C0 : NO" |
31 | "Invalid Curve on Surface : YES Cases\\(1\\) Total shapes\\(2\\)" |
32 | "Faulties for SECOND shape found : 0" |
33 | } |
34 | |
35 | for {set i 1} {$i <= 11} {incr i} { |
36 | set str [ lindex ${MessageList} [expr $i - 1] ] |
37 | if { [regexp ${str} ${log}] == 1 } { |
38 | puts "OK : There is #$i message" |
39 | } else { |
40 | puts "Error : There is not #$i message" |
41 | puts $str |
42 | } |
43 | } |
44 | |
45 | checkprops result -s 81576.6 |
46 | |
47 | set nbshapes_expected " |
48 | Number of shapes in shape |
49 | VERTEX : 18 |
50 | EDGE : 31 |
51 | WIRE : 16 |
52 | FACE : 16 |
53 | SHELL : 4 |
54 | SOLID : 4 |
55 | COMPSOLID : 0 |
56 | COMPOUND : 1 |
57 | SHAPE : 90 |
58 | " |
59 | checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction" |
60 | |
61 | checkview -display result -2d -path ${imagedir}/${test_image}.png |