tests/bugs/modalg_1/buc60409_3

   1 puts "================="
   2 puts "     BUC60409    "
   3 puts "      COMMON     "
   4 puts "================="
   5
   6 restore [locate_data_file buc60409a.brep] c
   7 restore [locate_data_file buc60409b.brep] s
   8
   9 set che [checkshape c]
  10 if { [regexp {Faulty} $che ] == 1 } {
  11     puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
  12     puts "Body of the script was NOT executed"
  13     renamevar c result
  14 } else {
  15     puts "BUC60409 OK (shape 1): Source shape is valid"
  16
  17     set che [checkshape s]
  18     if { [regexp {Faulty} $che ] == 1 } {
  19         puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
  20         puts "Body of the script was NOT executed"
  21         renamevar s result
  22     } else {
  23         puts "BUC60409 OK (shape 2): Source shape is valid"
  24         bcommon result c s
  25     }
  26 }
  27 checkprops result -s 4.89279
  28 checkshape result
  29 checkview -display result -2d -path ${imagedir}/${test_image}.png