tests/xml/data/ocaf/B4

   1 set aTestName "caf001-L3"
   2 puts $aTestName
   3 set LabelsList [list \
   4     0:3                                                                 \
   5     0:2076534922:524398634:912349856                                    \
   6     0:3:9283:12:1:9843:46793:321                                        \
   7     0:4:81245034:321:1:1:1:345:8542:1:90:6453                           \
   8     0:5:8:4:2:213:3242:123456789:987654321                              \
   9     0:2:15:123:31214:452398:421:3:2:1:3:1:2:9:10:2:1:1:4                \
  10     0:2:2:1:1:1:3:1:2:1:34:1:2:4:1:5:4:1:9:3:1:2:1:8:2:3:1:9:5:2:7      \
  11     0:2:9]
  12 # Add an attribute to a data framework
  13 set i "0"
  14 set ref [lindex $LabelsList end]
  15 SetInteger D $ref $i
  16 foreach Label $LabelsList {
  17     set i [expr "$i + 1"]
  18     SetInteger D $Label $i
  19     SetReference D $Label $ref
  20     set ref $Label
  21 }
  22
  23 # Close/Open the transaction
  24 NewCommand D
  25
  26 # Save the document
  27 set aFile $WorkDirectory/${aTestName}.${FileSuffix}
  28
  29 SaveToFile D $aFile
  30
  31 # Restore the document
  32 Close D
  33 Open $aFile DD
  34
  35 # Check the restored values
  36
  37 set ListLen [llength $LabelsList]
  38 set i $ListLen
  39 foreach Label $LabelsList {
  40     set IsDone [catch { set aRef [GetReference DD $Label] } aResult]
  41     if ${IsDone} {
  42         puts "Error : Get a TDF_Reference attribute from restored document"
  43     }
  44     set IsDone [catch { set anInt [GetInteger DD $aRef] } aResult]
  45     if ${IsDone} {
  46         puts "Error : Get the integer under the referenced label from restored document"
  47     }
  48     if { $anInt == $i } {
  49         puts "Comparison OK for ref $aRef on $Label: $anInt = $i"
  50     } else {
  51         puts "Error : $anInt != $i : wrong integer value restored"
  52     }
  53     set i [expr "($i + 1) % $ListLen"]
  54 }
  55