tests/bugs/modalg_1/buc60682

   1 puts "TODO OCC12345 ALL: Faulty BUC60682"
   2 puts "TODO OCC12345 ALL: Error : The square of result shape is"
   3 puts "TODO OCC12345 ALL: Faulty shapes in variables faulty_1 to faulty_"
   4
   5 pload QAcommands
   6
   7 puts "=================="
   8 puts "BUC60682"
   9 puts "=================="
  10
  11 restore [locate_data_file buc60682a.brep] shell1
  12 restore [locate_data_file buc60682b.brep] shell2
  13
  14 set che [checkshape shell1]
  15 if { [regexp {Faulty} $che ] == 1 } {
  16     puts "Faulty BUC60682 (shell 1): Source shape is invalid. It was detected by Checkshape command"
  17     puts "Body of the script was NOT executed"
  18     renamevar shell1 result
  19 } else {
  20     puts "BUC60682 OK (shell 1): Source shape is valid"
  21     set che [checkshape shell2]
  22     if { [regexp {Faulty} $che ] == 1 } {
  23         puts "Faulty BUC60682 (shell 2): Source shape is invalid. It was detected by Checkshape command"
  24         puts "Body of the script was NOT executed"
  25         renamevar shell2 result
  26     } else {
  27         puts "BUC60682 OK (shell 2): Source shape is valid"
  28         ksection result shell1 shell2 1000 0.0001 0.00001 0
  29     }
  30 }
  31 set square 0
  32 set 2dviewer 0