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
51 lines
1.2 KiB
Plaintext
Executable File
51 lines
1.2 KiB
Plaintext
Executable File
puts "========================"
|
|
puts "OCC22907"
|
|
puts "========================"
|
|
puts ""
|
|
#######################################################################
|
|
# The function 'distmini' produces wrong result.
|
|
#######################################################################
|
|
|
|
set BugNumber OCC22907
|
|
|
|
###rename to bug22907_e.brep
|
|
restore [locate_data_file bug22907_e.brep] b2
|
|
vertex b1 -15.652187256227142 3.2012899919486513 9.9763479999999998
|
|
|
|
distmini d b1 b2
|
|
puts "Distance=[dval d_val]"
|
|
|
|
set Good_Distance 0
|
|
|
|
regexp {Vertex *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b1] full tol1
|
|
regexp {Edge *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b2] full tol2
|
|
regexp {Vertex *: Min [-0-9.+eE]+ *Max *([-0-9.+eE]+)} [maxtolerance b2] full tol3
|
|
|
|
set max_tolerance ${tol1}
|
|
if { ${tol2} > ${max_tolerance} } {
|
|
set max_tolerance ${tol2}
|
|
}
|
|
if { ${tol3} > ${max_tolerance} } {
|
|
set max_tolerance ${tol3}
|
|
}
|
|
puts "max_tolerance=${max_tolerance}"
|
|
|
|
if [expr abs( [dval d_val] - ${Good_Distance}) > ${max_tolerance}] {
|
|
set status 1
|
|
} else {
|
|
set status 0
|
|
}
|
|
|
|
# Resume
|
|
puts ""
|
|
if { ${status} == 1 } {
|
|
puts "Faulty ${BugNumber}"
|
|
} else {
|
|
puts "OK ${BugNumber}"
|
|
}
|
|
vinit
|
|
vdisplay b1 b2
|
|
vfit
|
|
|
|
set only_screen 0
|