tests/bugs/modalg_5/bug25509_3

   1 puts "============"
   2 puts "OCC25509"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Wrong shape considered as valid by checkshape
   7 ######################################################
   8
   9 # 03.  A solid with 2 growths
  10 box b1 10 10 10
  11 box b2 4 4 4 4 4 4
  12 explode b1
  13 explode b2
  14
  15 shape result so
  16 add b1_1 result
  17 add b2_1 result
  18
  19 decho off
  20 set info [checkshape result]
  21 decho on
  22
  23 if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } {
  24    puts "Error : There are no mistakes by checkshape-command"
  25 } else {
  26    puts "OK : There are mistakes by checkshape-command"
  27 }
  28
  29 set 2dviewer 1