tests/demo/draw/binpersist_2

   1 # test binsave and binrestore commands
   2
   3 pload TOPTEST
   4
   5 set file binpersist.bin
   6
   7 restore [locate_data_file bug23849_segment_2.brep] b
   8
   9 if [regexp "Cannot write to the file $file" [binsave b $file]] {
  10   puts "Error: binsave"
  11 } elseif [regexp "Cannot read from the file $file" [binrestore $file bb]] {
  12   puts "Error: binrestore"
  13 } else {
  14   file delete $file
  15   if {[bounding -s b -dump] != [bounding -s bb -dump]} {
  16     puts "Error: restored shape has another bounding box"
  17   }
  18   checkshape bb
  19   checknbshapes bb -ref [nbshapes b]
  20   checkprops bb -l 7703.49
  21   checkprops bb -s 10678.2
  22   checkprops bb -v 67245
  23 }
  24
  25 puts "TEST COMPLETED"