tests/bugs/moddata_1/bug22194

   1 puts "============"
   2 puts "OCC22194"
   3 puts "============"
   4 puts ""
   5 #######################################################################
   6 # Exception in LocOpe_SplitShape algorithm
   7 #######################################################################
   8
   9 restore [locate_data_file OCC22194-sh.brep] s
  10 restore [locate_data_file OCC22194-pl.brep] pl
  11 bsection r s pl
  12 savehistory sec_hist
  13
  14 set sections {}
  15 foreach f [explode s f] {
  16   if {![regexp "No shapes" [generated g_$f sec_hist $f]]} {
  17     puts "$f g_$f"
  18     lappend sections $f g_$f
  19   }
  20 }
  21
  22 eval splitshape result s $sections
  23
  24 checkprops result -s 24041.4
  25 checknbshapes result -face 352
  26 checkview -display result -2d -path ${imagedir}/${test_image}.png