tests/bugs/modalg_7/bug31407_3

   1 puts "========"
   2 puts "0031407: Extrema does not process parallel circles correctly"
   3 puts "========"
   4 puts ""
   5
   6 circle c1  0 0 0  0 0 1  5
   7 circle c2  0 0 0  0 0 1  10
   8
   9 trim cc1 c1 0 2
  10 trim cc2 c2 2 4
  11
  12 set res_extrema [extrema cc1 cc2]
  13
  14 if { [regexp "Infinite number of extremas" $res_extrema] == 0} {
  15   if {[llength $res_extrema] != 1} {
  16     puts "Error : expected 1 extrema, but found [llength $res_extrema]"
  17   }
  18 } else {
  19   puts "Error : Infinite number of extremas is found"
  20 }