tests/bugs/modalg_6/bug27263

   1 puts "================"
   2 puts "OCC27263"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Regression vs 6.9.1: Exception is raised during intersection of two faces
   7 #######################################################################
   8
   9 set MaxTol 1.e-7
  10 set GoodNbCurv 1
  11
  12 restore [locate_data_file  bug27262_cmpd.brep] b
  13 explode b
  14
  15 smallview
  16 explode b_1 f
  17 don b_1_27 b_2
  18 fit
  19
  20 set log [bopcurves b_1_27 b_2 -2d]
  21
  22 regexp {Tolerance Reached=+([-0-9.+ee]+)\n+([-0-9.+ee]+)} ${log} full Toler NbCurv
  23
  24 if {${Toler} > ${MaxTol}} {
  25   puts "Error: Tolerance is too big!"
  26 }
  27
  28 if {${NbCurv} != ${GoodNbCurv}} {
  29   puts "Error: Curve Number is bad!"
  30 }
  31
  32 checklength c_1 -l 2.9620641619623407
  33
  34 checkview -screenshot -2d -path ${imagedir}/${test_image}.png