mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
16 lines
454 B
Plaintext
16 lines
454 B
Plaintext
puts "============================================================================"
|
|
puts "0030927: Modeling Algorithms - UnifySameDom looses the Closed flag for wires"
|
|
puts "============================================================================"
|
|
puts ""
|
|
|
|
box b1 10 10 10
|
|
box b2 5 0 -5 10 10 20
|
|
bfuse s b1 b2
|
|
unifysamedom result s
|
|
|
|
foreach w [explode result w] {
|
|
if {![regexp "Closed" [whatis $w]]} {
|
|
puts "Error: Wire $w is not closed"
|
|
}
|
|
}
|