tests/bugs/modalg_6/bug27129

   1 puts "============"
   2 puts "OCC27129"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## BRepLib_CheckCurveOnSurface does not find the maximal distance
   7 ###############################
   8
   9 restore [locate_data_file bug27129_e.brep] e
  10
  11 set log1 [checkcurveonsurf e]
  12
  13 vertex v1 33.1645637744 33.5513655177474 0
  14 vertex v2 43.1644823619474 23.5514469302 0
  15 bclearobjects
  16 bcleartools
  17 baddobjects e
  18 baddtools v1 v2
  19 bfillds
  20
  21 bbuild result
  22
  23 set log2 [checkcurveonsurf result]
  24
  25 if { [regexp {Invalid curves on surface:\n} ${log1} full ]} {
  26   puts "OK. Source shape has invalid curve on surface"
  27 } else {
  28   puts "Error. checkcurveonsurf command works wrong with source shape"
  29 }
  30
  31 if { [regexp {Invalid curves on surface:\n} ${log1} full ]} {
  32   puts "OK. Result has invalid curve on surface"
  33 } else {
  34   puts "Error. checkcurveonsurf command works wrong with result"
  35 }