tests/bugs/modalg_6/bug25844

   1 puts "================"
   2 puts "OCC25844"
   3 puts "================"
   4 puts ""
   5 #######################################################################
   6 # Command "checkshape" does not detect error for case when degenerated edge does not contain geometric representation.
   7 #######################################################################
   8
   9 restore [locate_data_file bug25843_onewire.brep] b
  10
  11 dlog reset
  12 dlog on
  13
  14 checkshape b f
  15
  16 set info [dlog get]
  17 dlog reset
  18 dlog off
  19
  20 if { [regexp "checkshape failure" ${info}] != 1  } {
  21    puts "Error : Command \"checkshape\" does not detect error for case when degenerated edge does not contain geometric representation."
  22 } else {
  23    puts "OK : Command \"checkshape\" work good"
  24 }