tests/bugs/modalg_7/bug25879

   1 puts "============"
   2 puts "OCC25879"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # result of blend fails the bopcheck
   7 ######################################################
   8
   9 box Box 10 10 10
  10 explode Box E
  11
  12 blend Fillet Box 1 Box_1 1 Box_2 1 Box_3 1 Box_4 1 Box_5 1 Box_6 1 Box_7 1 Box_8 1 Box_9 1 Box_10 1 Box_11 1 Box_12
  13
  14 set bug_info [string trim [bopcheck Fillet]]
  15 if {$bug_info != "This shape seems to be OK."} {
  16     puts "Error : result of blend fails the bopcheck"
  17 }
  18
  19 checkview -display Fillet -2d -path ${imagedir}/${test_image}-2d.png