mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
9aa684edf4
Unstable test cases were reviewed Modified test cases using checktrend command Modified test cases for Linux platform Modified test cases for Debug mode
44 lines
1.4 KiB
Plaintext
Executable File
44 lines
1.4 KiB
Plaintext
Executable File
puts "========"
|
|
puts "OCC829"
|
|
puts "========"
|
|
puts ""
|
|
###################################
|
|
## BRepOffsetAPI_MakeOffset fails on given wires
|
|
###################################
|
|
puts " This part - LIMITATION for existed algorithms"
|
|
###################################
|
|
|
|
restore [locate_data_file OCC829_w1.brep] a
|
|
checkshape a
|
|
explode a w
|
|
|
|
if { [catch { mkoffset result a_1 1 5 } status] } {
|
|
puts "Faulty : An exception was caught"
|
|
} else {
|
|
renamevar result_1 result
|
|
set nb_info [nbshapes result]
|
|
regexp {VERTEX +: +([-0-9.+eE]+)} $nb_info full ve
|
|
puts [format "Result shape result contains %s vertexes" $ve]
|
|
if { $ve == 0 } {
|
|
puts [format "Faulty : Result shape is NULL shape"]
|
|
} else {
|
|
regexp {WIRE +: +([-0-9.+eE]+)} $nb_info full wi
|
|
if {$wi > 1 } {
|
|
set ll [explode result w]
|
|
set num [llength $ll]
|
|
puts [format "Faulty : Result shape result is COMPOUND and contains %s wires" $num]
|
|
foreach {k} $ll {
|
|
checkshape $k
|
|
regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection $k] full cs
|
|
if { $cs != 0 } {
|
|
puts [format "Faulty : Result shape is UNclosed wire !!! " $k]
|
|
} else {
|
|
puts [format "OK: Result shape is CLOSED wire !!! "]
|
|
}
|
|
}
|
|
}
|
|
}
|
|
set length 8577.24
|
|
set 2dviewer 0
|
|
}
|