5 ###########################################################################
6 # Make Extrema_GenExtCC return IsParallel flag in case of parallel curves
7 ###########################################################################
9 restore [locate_data_file dist1-s1.brep] s1
10 restore [locate_data_file dist1-s2.brep] s2
13 set bug_info [extrema c1 c2]
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."