tests/bugs/moddata_3/bug27467

   1 puts "============"
   2 puts "OCC27467"
   3 puts "============"
   4 puts ""
   5 #########################################################################
   6 # Modeling Algorithms - class Extrema_ExtCC2d does not find extremum between two intersecting lines
   7 # Analytical solver can not work on 2 lines.
   8 #########################################################################
   9
  10 line l1 0 0 0 -1
  11 trim l1 l1 0 23
  12
  13 line l2 1 -9.5 -1 -0
  14 trim l2 l2 0 2
  15 set info [2dextrema l1 l2]
  16
  17 # Number of solutions check.
  18 # There should be only one solution - intersection point.
  19 if {[llength $info] != 4} {
  20   ERROR: Incorrect number of solutions.
  21 }
  22
  23 # Check distance.
  24 regexp "dist 1: +(\[-0-9.+eE\]+)" $info full aDist
  25 set absTol 1.0e-9
  26 set relTol 0.001
  27 set aDist_Exp 0.0
  28 checkreal "Distance value check" $aDist $aDist_Exp $absTol $relTol