20a216fe |
1 | puts "========" |
2 | puts "OCC26075" |
3 | puts "========" |
4 | puts "" |
5 | ########################################################################### |
6 | # Make Extrema_GenExtCC return IsParallel flag in case of parallel curves |
7 | ########################################################################### |
8 | |
9 | restore [locate_data_file dist1-s1.brep] s1 |
10 | restore [locate_data_file dist1-s2.brep] s2 |
11 | mkcurve c1 s1 |
12 | mkcurve c2 s2 |
13 | set bug_info [extrema c1 c2] |
14 | |
15 | set bug_info [string range $bug_info [expr {[string first "\n" $bug_info] + 1}] [expr {[string last "\n" $bug_info] - 1}]] |
16 | if {$bug_info != "No solutions!"} { |
17 | puts "ERROR: OCC26075 is reproduced. Flag IsParallel is not returned." |
18 | } |