Integration part of tests of grid chl
[occt.git] / tests / bugs / moddata / bug60870
1
2 puts "========"
3 puts "BUC60870"
4 puts "========"
5
6 pload QAcommands
7
8 vertex vertex_1 0 0 0
9 vertex vertex_2 0 1 0
10 vertex vertex_3 0 0.3 1
11
12 edge edge_1 vertex_1 vertex_2
13
14 set result [BUC60870 test_result edge_1 vertex_3 2.0]
15
16 if {[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
34 set 2dviewer 0
35