tests/bugs/modalg_7/bug29857_1

   1 puts "========"
   2 puts "OCC29857_1"
   3 puts "========"
   4 puts ""
   5 ####################################
   6 ## Extrema between Point and Curve returns three solutions
   7 ## (there should be only two), two of these are actually the same
   8 ####################################
   9
  10
  11 restore [locate_data_file bug29857_1.brep] c
  12 set info [proj c -139.04514104219 128.256108703487 -64.9999999999983]
  13
  14 set pp1 ""
  15 set pp2 ""
  16 set pp3 ""
  17 regexp {ext_1} $info pp1
  18 regexp {ext_2} $info pp2
  19 regexp {ext_3} $info pp3
  20 if { $pp3 != "" } {
  21    puts "Error : Projection is not correct"
  22 }
  23 if { $pp1 != "" && $pp2 != "" } {
  24    puts "OK: Projection is correct"
  25 } else {
  26    puts "Error : Projection is not correct"
  27 }