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