tests/bugs/modalg_1/buc60649

   1 puts "=========="
   2 puts "BUC60649"
   3 puts "BUC60657"
   4 puts "=========="
   5 puts ""
   6
   7 restore [locate_data_file buc60649a.brep] a
   8 checkshape a
   9
  10 set che [checkshape a rr]
  11 if { [regexp {OK} $che] != 1 } {
  12     puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
  13     puts "Body of the script was not executed"
  14 } else {
  15     puts "Checking of SOURCE shape by checkshape - OK"
  16     mkoffset result a 1 1
  17     renamevar result_1 result
  18 }
  19
  20 checkprops result -l 271.473
  21 checkshape result
  22 checksection result
  23 checkview -display result -2d -path ${imagedir}/${test_image}.png