tests/bugs/modalg_1/buc60782_1

   1 puts "========================"
   2 puts "BUC60782"
   3 puts "CASE 1"
   4 puts "========================"
   5 puts ""
   6 puts "Results of Geom2d_OffsetCurve are sometimes strange (not correct). "
   7 puts ""
   8
   9 restore [locate_data_file buc60782a.brep] a
  10 set che [checkshape a]
  11 if { [regexp {Faulty} $che ] == 1 } {
  12     puts "Faulty BUC60782 (case 1): Source shape is invalid"
  13 } else {
  14     puts "BUC60782 OK (case 1): Sourse shape is correct"
  15 }
  16
  17 set che [checkshape a rr]
  18 if { [regexp {OK} $che ] != 1} {
  19     puts "Faulty : mistakes are found in SOURCE  shape by checkshape command"
  20     puts "Body of the script was not executed"
  21 } else {
  22     puts "Checking of SOURCE shape by checkshape - OK"
  23     if [catch { mkoffset result a 1 10 } catch_result] {
  24       puts "Faulty BUC60782: mkoffset works wrongly"
  25       renamevar a result
  26     } else {
  27       puts "OK BUC60782: offset is created"
  28       renamevar result_1 result
  29     }
  30 }
  31
  32 checkprops result -l 9026.65
  33 checkshape result
  34 checksection result
  35 checkview -display result -2d -path ${imagedir}/${test_image}.png