tests/bugs/modalg/buc60409_3

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