tests/bugs/modalg_5/bug23948_1

   1 puts "========="
   2 puts "OCC23948"
   3 puts "========="
   4 puts ""
   5 ###########################################################
   6 # Wrong intersection between a surface of revolution and a plane.
   7 ###########################################################
   8
   9 set MaxTol 1.0e-4
  10 set NbCurv_OK 2
  11
  12 restore [locate_data_file bug22766_f1] f1
  13 restore [locate_data_file bug22766_f2] f2
  14
  15 set log [bopcurves f1 f2]
  16
  17 regexp {Tolerance Reached=+([-0-9.+eE]+)\n+([-0-9.+eE]+)} ${log} full Toler NbCurv
  18
  19 if {${NbCurv} != ${NbCurv_OK}} {
  20   puts "Error: ${NbCurv_OK} curve(s) expected, but ${NbCurv} found."
  21 }
  22
  23 if {${Toler} > ${MaxTol}} {
  24   puts "Error: Tolerance is too big!"
  25 }