tests/bugs/modalg_7/bug21134

   1 puts "TODO OCC21134  ALL: Error: checkshape command does not return faulty shapes"
   2
   3 puts "============"
   4 puts "OCC21134"
   5 puts "============"
   6 puts ""
   7 ######################################################
   8 # checkshape command does not return faulty shapes.
   9 ######################################################
  10
  11 restore [locate_data_file bug21134_r.brep] res
  12
  13 checkshape res
  14
  15 set Log [bopcheck res]
  16 if {[regexp "This shape seems to be OK" ${Log}] != 1} {
  17     puts "Error: checkshape command does not return faulty shapes."
  18 }