mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
a8676008f7
Splitting of subgroups bugs/modalg and bugs/moddata to optimise time of testing Correction of end file in group v3d Small correction of test case
53 lines
1.4 KiB
Plaintext
Executable File
53 lines
1.4 KiB
Plaintext
Executable File
|
|
puts "========"
|
|
puts "OCC745"
|
|
puts "========"
|
|
puts ""
|
|
#########################
|
|
# Not correct creation of bisector loci.
|
|
#########################
|
|
|
|
restore [locate_data_file OCC745_nb2.brep] w
|
|
mkplane f w
|
|
topoload f
|
|
drawcont
|
|
|
|
mat
|
|
result
|
|
|
|
##################################################
|
|
#Exception thrown: Standard_ConstructionError: Offset wire is not closed.
|
|
##################################################
|
|
|
|
if { [catch { mkoffset result w 10 -7 } status] } {
|
|
puts "Faulty OCC745"
|
|
} 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 1930.99
|
|
set 2dviewer 0
|
|
|