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 }