mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-10 18:51:21 +03:00
0024347: problem by tolerance of the distance of Face and Vertex
Added test case bugs/modalg_5/bug24347
This commit is contained in:
parent
1a25084d99
commit
21761b6feb
23
tests/bugs/modalg_5/bug24347
Normal file
23
tests/bugs/modalg_5/bug24347
Normal file
@ -0,0 +1,23 @@
|
|||||||
|
puts "============"
|
||||||
|
puts "OCC24347"
|
||||||
|
puts "============"
|
||||||
|
puts ""
|
||||||
|
###########################################################
|
||||||
|
# Problem by tolerance of the distance of Face and Vertex
|
||||||
|
###########################################################
|
||||||
|
|
||||||
|
pload XDE
|
||||||
|
set checkvalue 2.72742879238428e-14
|
||||||
|
|
||||||
|
restore [locate_data_file bug24347_face.brep] f
|
||||||
|
vertex v 34.265509314637 0.1 0.73361964922719
|
||||||
|
|
||||||
|
settolerance f 4.e-6
|
||||||
|
distmini d1 f v
|
||||||
|
|
||||||
|
regexp {([-0-9.+eE]+)$} [dump d1_val] full distvalue
|
||||||
|
if { $distvalue != $checkvalue } {
|
||||||
|
puts "Error: distance is incorrect"
|
||||||
|
} else {
|
||||||
|
puts "OK: distance is correct"
|
||||||
|
}
|
Loading…
x
Reference in New Issue
Block a user