tests/bugs/modalg_6/bug28706

   1 puts "================"
   2 puts "OCC28706"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 #  Incomplete result of section operation between attached shapes
   7 #######################################################################
   8
   9 dsetsignal 1
  10
  11 # Before the fix, section curve was incomplete
  12
  13 restore [locate_data_file bug28706_ar_shape.brep] s1
  14 restore [locate_data_file bug28706_Prism.brep] s2
  15
  16 bsection result s1 s2
  17
  18 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
  19
  20 if { $nbv != 0 } {
  21   puts "Error : Section is incorrect"
  22 } else {
  23   puts "Section is correct"
  24 }
  25
  26 checkprops result -l 6.16832
  27
  28 smallview
  29 don result
  30 fit
  31
  32 checkview -screenshot -2d -path ${imagedir}/${test_image}.png