tests/bugs/modalg_6/bug26431_2

   1 puts "============"
   2 puts "OCC26431"
   3 puts "============"
   4 puts ""
   5 ###############################
   6 ## Can't cut a sphere from a cylinder
   7 ###############################
   8
   9 restore [locate_data_file bug26431_Body.brep] b1
  10 restore [locate_data_file bug26431_Sphere.brep] b2
  11
  12 explode b1 f
  13 explode b2 f
  14
  15 bsection result b1_3 b2_1
  16
  17 set log [checksection result]
  18
  19 if { [string compare -nocase $log " nb alone Vertices : 0\n\n"] } {
  20   puts "ERROR: the section is not closed"
  21 } else {
  22   puts "The section is OK"
  23 }
  24
  25 smallview
  26 donly result
  27 fit
  28 checkview -screenshot -2d -path ${imagedir}/${test_image}.png