Restoring test cases removed by last commit.
[occt.git] / tests / bugs / moddata / buc60870
CommitLineData
0e94a94e 1
2puts "========"
3puts "BUC60870"
4puts "========"
5
6pload QAcommands
7
8vertex vertex_1 0 0 0
9vertex vertex_2 0 1 0
10vertex vertex_3 0 0.3 1
11
12edge edge_1 vertex_1 vertex_2
13
14set result [BUC60870 test_result edge_1 vertex_3 2.0]
15
16if {[llength ${result}] < 4} {
17 puts "BUC60870: Error; must be 3 solutions"
18} else {
19 set MinimumDistance [dval test_result_val]
20 set TheorMinimumDistance 1.0
21 set percent_max 1.0
22 set percent [expr abs(${MinimumDistance} - ${TheorMinimumDistance}) / ${TheorMinimumDistance} * 100.]
23 if {${percent} > ${percent_max}} {
24 puts "MinimumDistance=${MinimumDistance}"
25 puts "TheorMinimumDistance=${TheorMinimumDistance}"
26 puts "percent=${percent}"
27 puts "percent_max=${percent_max}"
28 puts "BUC60870: Error; bad value of minimum distance"
29 } else {
30 puts "BUC60870: OK"
31 }
32}
33
34set 2dviewer 0
35