tests/bugs/modalg_7/bug26820

   1 puts "========"
   2 puts "0026820: bsection returns single vertex instead of curve"
   3 puts "========"
   4 puts ""
   5
   6 restore [locate_data_file bug26820_body_shell.brep] b
   7 restore [locate_data_file bug26820_section_plane.brep] s
   8
   9 bsection result b s
  10 checksection result -r 0
  11 checkshape result
  12 checknbshapes result -edge 1 -vertex 1
  13 checkprops result -l 2333.68
  14
  15 if {[regexp "Faulties" [bopargcheck result]]} {
  16   puts "Error: bopargcheck has found some faulties in result"
  17 }
  18
  19 smallview
  20 don result
  21 fit
  22
  23 checkview -screenshot -2d -path ${imagedir}/${test_image}.png