tests/bugs/modalg_6/bug21246

   1 puts "REQUIRED ALL: Faulty shapes in variables faulty_1 to faulty_2"
   2
   3 puts "========"
   4 puts "OCC21246"
   5 puts "========"
   6 puts "Checkshape command does not return faulty shapes."
   7 puts "========"
   8
   9 #########################################################
  10 ## Command "checkshape" "gives" exception during attempt to check attached shape.
  11 #########################################################
  12
  13 restore [locate_data_file bug21246.brep] result
  14
  15 set info [checkshape result]
  16
  17 if { [regexp "Faulty shapes in variables faulty_1 to faulty_2" ${info}] != 1 } {
  18
  19    puts "OK : Good result of checkshape"
  20
  21 } elseif { [regexp "Problems are not detected" $info] == 1 } {
  22
  23    puts "Error : Wrong result of checkshape"
  24
  25 }
  26 checkview -display result -2d -path ${imagedir}/${test_image}.png