mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +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
41 lines
1.3 KiB
Plaintext
Executable File
41 lines
1.3 KiB
Plaintext
Executable File
puts "TODO OCC12345 ALL: Faulty OCC236"
|
|
|
|
puts "================"
|
|
puts "OCC236"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################
|
|
##Result of intersection of two surfaces of linear extrusion is incorrect.
|
|
#######################################################
|
|
|
|
restore [locate_data_file OCC236a.rle] su1
|
|
############### checkshape su1 # is not a topological shape
|
|
restore [locate_data_file OCC236b.rle] su2
|
|
############### checkshape su2 # is not a topological shape
|
|
|
|
intersect result su1 su2
|
|
|
|
set che [directory]
|
|
set err [lindex $che [expr [llength $che] - 1]]
|
|
if { $err != "result_2"} {
|
|
puts "Faulty OCC236"
|
|
} else {
|
|
puts "OCC236 OK (first checking) : Intersection command works properly"
|
|
regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num
|
|
if { $num != 0 } {
|
|
puts " Faulty OCC236 (second checking): Result result_1 is UNclosed !!! "
|
|
} else {
|
|
puts " OCC236 OK (second checking): Result result_1 is closed !!! "
|
|
puts ""
|
|
}
|
|
regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num
|
|
if { $num != 0 } {
|
|
puts " Faulty OCC236 (second checking): Result result_2 is UNclosed !!! "
|
|
} else {
|
|
puts " OCC236 OK (second checking): Result result_2 is closed !!! "
|
|
}
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|