tests/bugs/modalg_7/bug21134

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