tests/bugs/modalg_6/bug25102

   1 puts "========"
   2 puts "OCC25102"
   3 puts "========"
   4 puts ""
   5 #################################################
   6 # A part of intersection cannot be found
   7 #################################################
   8
   9 restore [locate_data_file bug25102.brep] c
  10
  11 explode c
  12
  13 bsection result c_1 c_2
  14
  15 regexp {nb alone Vertices : ([-0-9.+eE]+)} [checksection result] full nbv
  16
  17 if { $nbv != 2 } {
  18   puts "Error : Section is incorrect"
  19 } else {
  20   puts "Section is correct"
  21 }
  22
  23 checkprops result -l 49.734
  24
  25 checknbshapes result -edge 44
  26
  27 smallview
  28 fit
  29
  30 checkview -screenshot -2d -path ${imagedir}/${test_image}.png
  31