e8746a26 |
1 | puts "============" |
2 | puts "OCC25635" |
3 | puts "============" |
4 | puts "" |
5 | ###################################################### |
6 | # Wrong result of 2D-extrema between two ellipsis |
7 | ###################################################### |
8 | |
9 | circle c1 0 0 2 |
10 | circle c2 4 0 2 |
11 | |
12 | set info [2dextrema c1 c2] |
13 | |
14 | #-1 |
15 | if { [regexp "dist 1: +(\[-0-9.+eE\]+) +ext_1" ${info}] } { |
16 | puts "OK: Good ext_1" |
17 | } else { |
18 | puts "Error: Wrong ext_1" |
19 | } |
20 | |
21 | if { [regexp "dist 2: +(\[-0-9.+eE\]+) +ext_2" ${info}] } { |
22 | puts "OK: Good ext_2" |
23 | } else { |
24 | puts "Error: Wrong ext_2" |
25 | } |
26 | |
27 | if { [regexp "dist 3: +(\[-0-9.+eE\]+) +ext_3" ${info}] } { |
28 | puts "OK: Good ext_3" |
29 | } else { |
30 | puts "Error: Wrong ext_3" |
31 | } |
32 | |
33 | if { [regexp "dist 4: +(\[-0-9.+eE\]+) +ext_4" ${info}] } { |
34 | puts "OK: Good ext_4" |
35 | } else { |
36 | puts "Error: Wrong ext_4" |
37 | } |
38 | |
39 | |
40 | #-2 |
41 | set dump_list [dump ext_2] |
42 | |
43 | if { [regexp {Point 2d} ${dump_list}] } { |
44 | puts "OK: Good result of 2D-extrema between two circles" |
45 | } else { |
46 | puts "Error: Wrong result of 2D-extrema between two circles" |
47 | } |