0027341: Incorrect exact HLR results
[occt.git] / tests / bugs / modalg_6 / bug26075
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 "Infinite" $bug_info]}] [expr {[string first "distance" $bug_info] - 3}]]
16 if {$bug_info != "Infinite number of extremas"} {
17   puts "ERROR: OCC26075 is reproduced. Flag IsParallel is not returned."
18 }