tests/bugs/moddata/buc60870

   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