tests/xml/data/xcaf/A9

   1 set aTestName "xcaf200-V1"
   2 puts $aTestName
   3
   4 # Add an attribute to a data framework
   5 set aLabel 0:1:1:1
   6 Label D $aLabel
   7 set aValue 13.777
   8 XSetVolume D $aLabel $aValue
   9
  10 # Close/Open the transaction
  11 NewCommand D
  12
  13 # save result for check after retrieval
  14 set vol_before [XGetVolume D $aLabel]
  15 if { ${vol_before} != ${aValue} } {
  16     puts "Error : XSetVolume or XGetVolume"
  17 } else {
  18
  19     # Save the document
  20     set aFile $WorkDirectory/${aTestName}.${FileSuffix}
  21
  22     SaveToFile D $aFile
  23
  24     # Restore the document
  25     Close D
  26     Open ${aFile} DD
  27
  28     # Get a value of the attribute
  29     set IsDone [catch {set vol_after [XGetVolume DD $aLabel]} aResult]
  30     if { ${IsDone} != 0 || ${vol_after} != ${vol_before} } {
  31         puts "Error : Get a value of XCAFDoc_Volume attribute from restoring document"
  32     }
  33 }