tests/bugs/moddata_1/buc60843_2

   1 puts "========"
   2 puts "BUC60843"
   3 puts "========"
   4 puts ""
   5 ####################################################################
   6 ## code throws an exception as:  .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan.
   7 ## ThisSolution(); is not right.( the line is not tangent to circle and ellipse )
   8 ####################################################################
   9
  10 pload QAcommands
  11
  12 set len_ch 4.0000000000000001e+100
  13
  14 ellipse test_ellipse_1 0 0 50 50
  15 ellipse test_ellipse_2 460 0 150 100
  16
  17 BUC60843 result test_ellipse_1 test_ellipse_2 1.0 1.0
  18
  19 set info [length $result]
  20 regexp {The length result is +([-0-9.+eE]+)} $info full len
  21
  22 if { ${len} != ${len_ch} } {
  23     puts "Error : length is invalid"
  24 }
  25