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
42 lines
1.4 KiB
Plaintext
Executable File
42 lines
1.4 KiB
Plaintext
Executable File
puts "================"
|
|
puts "OCC235"
|
|
puts "================"
|
|
puts ""
|
|
#######################################################
|
|
## Intersection algorithm finds two intersection curves. One curve is closed while
|
|
## second is not (the distance between first and last points is 2e-5).
|
|
#######################################################
|
|
|
|
restore [locate_data_file OCC235a.rle] su1
|
|
############### checkshape su1 # is not a topological shape
|
|
restore [locate_data_file OCC235b.rle] su2
|
|
############### checkshape su2 # is not a topological shape
|
|
|
|
intersect result su1 su2
|
|
|
|
set dir [directory]
|
|
set nb_result [regexp -all {result} $dir]
|
|
if { $nb_result != 2 } {
|
|
puts "Faulty OCC235 (first checking): Intersection was made WRONGLY"
|
|
} else {
|
|
puts "OCC235 OK (first checking) : Intersection command works properly"
|
|
|
|
regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_1] full num_1
|
|
if { $num_1 != 0 } {
|
|
puts " Faulty OCC235 (second checking): Result result_1 is UNclosed !!! "
|
|
} else {
|
|
puts " OCC235 OK (second checking): Result result_1 is closed !!! "
|
|
}
|
|
|
|
regexp {nb +alone +Vertices +: +([-0-9.+eE]+)} [checksection result_2] full num_2
|
|
if { $num_2 != 0 } {
|
|
puts " Faulty OCC235 (second checking): Result result_2 is UNclosed !!! "
|
|
} else {
|
|
puts " OCC235 OK (second checking): Result result_2 is closed !!! "
|
|
}
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|
|
|