0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug27124
CommitLineData
79981d14 1puts "============"
2puts "OCC27124"
3puts "============"
4puts ""
5###############################
6## Invalid curve on surface in the result of General Fuse operation
7###############################
8
9restore [locate_data_file bug27129_e.brep] e
10restore [locate_data_file bug27129_p.brep] p
11restore [locate_data_file bug27129_q.brep] q
12
13bclearobjects
14bcleartools
15baddobjects e
16baddtools p q
17bfillds
18bbuild result
19set log [bopargcheck result #f]
20
21set 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
35for {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
45checkprops result -s 81576.6
46
47set nbshapes_expected "
48Number 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"
59checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction"
60
61checkview -display result -2d -path ${imagedir}/${test_image}.png