tests/bugs/modalg_5/bug25509_5

   1 puts "============"
   2 puts "OCC25509"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Wrong shape considered as valid by checkshape
   7 ######################################################
   8
   9 # 05
  10 # Two vertices FORWARD of the solid that is out of the growth
  11 #
  12 box b1 10 10 10
  13
  14 explode b1
  15
  16 vertex v1 11 11 0
  17 vertex v2 11 11 11
  18
  19 shape result so
  20 add b1_1 result
  21 add v1 result
  22 add v2 result
  23
  24 decho off
  25 set info [checkshape result]
  26 decho on
  27
  28 if { [regexp "Faulty shapes in variables faulty_1" ${info}] != 1 } {
  29    puts "Error : There are no mistakes by checkshape-command"
  30 } else {
  31    puts "OK : There are mistakes by checkshape-command"
  32 }
  33
  34 set 2dviewer 1