tests/bugs/moddata_3/bug27466

   1 puts "================"
   2 puts "OCC27466: "
   3 puts "================"
   4 puts ""
   5 ####################
   6 ## The algorithm Extrema_GenLocateExtPS gives incorrect result
   7 ####################
   8
   9 pload QAcommands
  10
  11 restore [locate_data_file bug27466.brep] a
  12
  13 point pnt -5.909487750466874e-006 -0.1557578329355927 0.1298542821722014
  14 point uv0 0.748729882974883 0.5000000063028793
  15
  16 set out [OCC27466 a pnt uv0]
  17 if [regexp {dist=([0-9.+-e]*)} $out dummy dist] {
  18   if {$dist > 1e-7} {
  19     puts "Error: distance of projection is too large ($dist)"
  20   } else {
  21     puts "Test passed"
  22   }
  23 } else {
  24   puts "Error: projection failure"
  25 }