mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-06-10 11:34:06 +03:00
352ffd7358
Test case tests/bugs/modalg/dxf906 was renamed to bug889 Adding test cases to tests/bugs/moddata Modified expressions puts [checkshape result]. Added command vzfit in end file in folder bugs. Unlocked command coordload in QABugs_3.cxx Modified test case bugs vis buc60738 Added test cases to modalg and moddata Added test cases to caf and fclasses Added test cases to group heal
36 lines
834 B
Plaintext
Executable File
36 lines
834 B
Plaintext
Executable File
|
|
puts "========"
|
|
puts "BUC60870"
|
|
puts "========"
|
|
|
|
pload QAcommands
|
|
|
|
vertex vertex_1 0 0 0
|
|
vertex vertex_2 0 1 0
|
|
vertex vertex_3 0 0.3 1
|
|
|
|
edge edge_1 vertex_1 vertex_2
|
|
|
|
set result [BUC60870 test_result edge_1 vertex_3 2.0]
|
|
|
|
if {[llength ${result}] < 4} {
|
|
puts "BUC60870: Error; must be 3 solutions"
|
|
} else {
|
|
set MinimumDistance [dval test_result_val]
|
|
set TheorMinimumDistance 1.0
|
|
set percent_max 1.0
|
|
set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.]
|
|
if {${percent} > ${percent_max}} {
|
|
puts "MinimumDistance=${MinimumDistance}"
|
|
puts "TheorMinimumDistance=${TheorMinimumDistance}"
|
|
puts "percent=${percent}"
|
|
puts "percent_max=${percent_max}"
|
|
puts "BUC60870: Error; bad value of minimum distance"
|
|
} else {
|
|
puts "BUC60870: OK"
|
|
}
|
|
}
|
|
|
|
set 2dviewer 0
|
|
|