5 ######################################################
6 # Wrong result of 2D-extrema between two ellipsis
7 ######################################################
12 set info [2dextrema c1 c2]
15 if { [regexp "dist 1: +(\[-0-9.+eE\]+) +ext_1" ${info}] } {
18 puts "Error: Wrong ext_1"
21 if { [regexp "dist 2: +(\[-0-9.+eE\]+) +ext_2" ${info}] } {
24 puts "Error: Wrong ext_2"
27 if { [regexp "dist 3: +(\[-0-9.+eE\]+) +ext_3" ${info}] } {
30 puts "Error: Wrong ext_3"
33 if { [regexp "dist 4: +(\[-0-9.+eE\]+) +ext_4" ${info}] } {
36 puts "Error: Wrong ext_4"
41 set dump_list [dump ext_2]
43 if { [regexp {Point 2d} ${dump_list}] } {
44 puts "OK: Good result of 2D-extrema between two circles"
46 puts "Error: Wrong result of 2D-extrema between two circles"