tests/bugs/moddata_1/bug20616

   1 puts "========================"
   2 puts "OCC20616"
   3 puts "========================"
   4 puts ""
   5 #######################################################################
   6 # Failed to save/restore [locate_data_file empty] face
   7 #######################################################################
   8
   9 set BugNumber OCC20616
  10
  11 set mistake 0
  12 foreach t {V E W F Sh So CS C} {
  13     puts "shape type $t"
  14     shape test $t
  15     if [catch {save test $imagedir/${test_image}.brep}] {
  16         puts "Faulty ${BugNumber} save $t"
  17         set mistake 1
  18     } else {
  19         puts "OK ${BugNumber} save $t"
  20     }
  21     if [catch {restore $imagedir/${test_image}.brep test}] {
  22         puts "Faulty ${BugNumber} restore $t"
  23         set mistake 1
  24     } else {
  25     puts "OK ${BugNumber} restore $t"
  26     }
  27 }
  28
  29 if {${mistake} !=0} {
  30    puts "Faulty ${BugNumber}"
  31 } else {
  32    puts "OK ${BugNumber}"
  33 }
  34