tests/bugs/modalg_1/buc60409_2

   1 puts "TODO #23659 Mandriva2010: Error : The square of result shape is"
   2
   3 puts "============="
   4 puts "   BUC60409  "
   5 puts "     CUT     "
   6 puts "============="
   7
   8 restore [locate_data_file buc60409a.brep] c
   9 restore [locate_data_file buc60409b.brep] s
  10
  11 set che [checkshape c]
  12 if { [regexp {Faulty} $che ] == 1 } {
  13     puts "Faulty BUC60409 (shape 1): Source shape is invalid. It was detected by Checkshape command"
  14     puts "Body of the script was NOT executed"
  15     renamevar c result
  16 } else {
  17     puts "BUC60409 OK (shape 1): Source shape is valid"
  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         bcut result c s
  26     }
  27 }
  28 set square 31.8476
  29 set 2dviewer 0