tests/bugs/modalg_5/bug25509_4

   1 puts "============"
   2 puts "OCC25509"
   3 puts "============"
   4 puts ""
   5 ######################################################
   6 # Wrong shape considered as valid by checkshape
   7 ######################################################
   8
   9 # 04
  10 # An edge 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 edge e2 v1 v2
  19
  20 shape result so
  21 add b1_1 result
  22 add e2 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