mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
67 lines
1.5 KiB
Plaintext
67 lines
1.5 KiB
Plaintext
puts "============"
|
|
puts "OCC26431"
|
|
puts "============"
|
|
puts ""
|
|
###############################
|
|
## Can't cut a sphere from a cylinder
|
|
###############################
|
|
|
|
restore [locate_data_file bug26431_Body.brep] b1
|
|
restore [locate_data_file bug26431_Sphere.brep] b2
|
|
|
|
bop b1 b2
|
|
bopcut result
|
|
|
|
checkshape result
|
|
|
|
decho off
|
|
dlog reset
|
|
dlog on
|
|
|
|
bopargcheck result #F
|
|
|
|
set info [dlog get]
|
|
dlog reset
|
|
dlog off
|
|
decho on
|
|
|
|
set MessageList {
|
|
"Faulties for FIRST shape found : 9"
|
|
"Shapes are not suppotrted by BOP: NO"
|
|
"Self-Intersections : NO"
|
|
"Check for SI has been aborted : NO"
|
|
"Too small edges : NO"
|
|
"Bad faces : NO"
|
|
"Too close vertices : DISABLED"
|
|
"Too close edges : DISABLED"
|
|
"Shapes with Continuity C0 : YES Cases\\(9\\) Total shapes\\(9\\)"
|
|
"Invalid Curve on Surface : NO"
|
|
"Faulties for SECOND shape found : 0"
|
|
}
|
|
for {set i 1} {$i <= 11} {incr i} {
|
|
set str [ lindex ${MessageList} [expr $i - 1] ]
|
|
if { [regexp ${str} ${info}] == 1 } {
|
|
puts "OK : There is #$i message"
|
|
} else {
|
|
puts "Error : There is not #$i message"
|
|
puts $str
|
|
}
|
|
}
|
|
|
|
checkprops result -s 14.4399
|
|
|
|
set nbshapes_expected "
|
|
Number of shapes in shape
|
|
VERTEX : 7
|
|
EDGE : 20
|
|
WIRE : 7
|
|
FACE : 6
|
|
SHELL : 1
|
|
SOLID : 1
|
|
COMPSOLID : 0
|
|
COMPOUND : 1
|
|
SHAPE : 43
|
|
"
|
|
checknbshapes result -ref ${nbshapes_expected} -t -m "solid construction"
|
|
checkview -display result -3d -path ${imagedir}/${test_image}.png
|