809eca9d |
1 | puts "========" |
2 | puts "OCC23031" |
3 | puts "========" |
4 | puts "" |
5 | ########################################################### |
6 | # Empty result for the extrema between a circle and a line. |
7 | ########################################################### |
8 | |
9 | set BugNumber OCC23031 |
10 | |
11 | |
12 | restore [locate_data_file OCC23031-b1.brep] b1 |
13 | restore [locate_data_file OCC23031-b2.brep] b2 |
14 | |
15 | mkcurve c1 b1 |
16 | mkcurve c2 b2 |
17 | |
18 | set extrema_res [extrema c1 c2] |
19 | set extrema_length [llength ${extrema_res} ] |
20 | |
21 | if {${extrema_length} != 1 } { |
22 | puts "${BugNumber}: Faulty" |
23 | } else { |
24 | puts "${BugNumber}: OK" |
25 | } |
26 | |
5747059b |
27 | checkview -display result -3d -path ${imagedir}/${test_image}.png |