tests/bugs/modalg_1/buc60409_1

   1 puts "=============="
   2 puts "   BUC60409   "
   3 puts "     FUSE     "
   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     set che [checkshape s]
  17     if { [regexp {Faulty} $che ] == 1 } {
  18         puts "Faulty BUC60409 (shape 2): Source shape is invalid. It was detected by Checkshape command"
  19         puts "Body of the script was NOT executed"
  20         renamevar s result
  21     } else {
  22         puts "BUC60409 OK (shape 2): Source shape is valid"
  23         bfuse result c s
  24     }
  25 }
  26 set square 39.0894
  27 set 2dviewer 0