puts "========"
puts "BUC60843"
puts "========"
puts ""
####################################################################
## code throws an exception as:  .. The exception is:0x5feff388 : StdFail_NotDone: 2d lin = lintan.
## ThisSolution(); is not right.( the line is not tangent to circle and ellipse )
####################################################################

pload QAcommands

set len_ch 4.0000000000000001e+100

circle test_circle 0 0 50
ellipse test_ellipse 460 0 150 100

BUC60843 result test_circle test_ellipse 0.1

set info [length $result]
regexp {The length result is +([-0-9.+eE]+)} $info full len

if { ${len} != ${len_ch} } {
    puts "Error : length is invalid"
}
