puts "========" puts "0031407: Extrema does not process parallel circles correctly" puts "========" puts "" circle c1 0 0 0 0 0 1 5 circle c2 0 0 0 0 0 1 10 trim cc1 c1 0 2 trim cc2 c2 2 4 set res_extrema [extrema cc1 cc2] if { [regexp "Infinite number of extremas" $res_extrema] == 0} { if {[llength $res_extrema] != 1} { puts "Error : expected 1 extrema, but found [llength $res_extrema]" } } else { puts "Error : Infinite number of extremas is found" }