tests/persist/fsd/B1

   1 # check read / write shape to FSD archive and reading its back
   2
   3 set file2 "bug26256.cmp"
   4 set driver "cmp"
   5 set file [locate_data_file ${file2}]
   6
   7 # restore shape from a file
   8 if {[catch {fsdread ${file} shapein}]} {
   9    puts "Error reading fsd file - ${file}"}
  10    return
  11 }
  12
  13 # check base shape
  14 checkshape shapein
  15
  16 # write shape to a file
  17 fsdwrite shapein ${imagedir}/${file2} ${driver}
  18
  19
  20 # restore shape from a file
  21 if {[catch {fsdread ${imagedir}/${file2} result}]} {
  22    puts "Error reading fsd file - ${imagedir}/${file2}"}
  23    return
  24 }
  25 # check result shape
  26 checkshape result
  27
  28
  29 # check the number of subshapes
  30 checknbshapes result -ref [nbshapes shapein]
  31
  32 # check properties
  33 checkprops result -l -equal shapein
  34 checkprops result -s -equal shapein
  35 checkprops result -v -equal shapein