4 # Testing attribute: TDF_Reference
6 # Testing command: SetReference
7 # Testing command: GetReference
12 # Add an attribute to a data framework
20 SetInteger D ${aLabel1} ${aSetAttr1}
21 SetInteger D ${aLabel2} ${aSetAttr2}
22 SetInteger D ${aLabel3} ${aSetAttr3}
24 set aReference1 ${aLabel2}
25 SetReference D ${aLabel4} ${aReference1}
27 # Close/Open the transaction
31 set aFile ${imagedir}/caf001-L3.cbf
34 if { ![file exists ${aFile}] } {
35 puts "There is not ${aFile} file; SaveAs command: Error"
38 #catch {exec chmod 777 ${aFile}}
40 # Restore the document
44 # Get a value of the attribute
45 set IsDone [catch {set aReference5 [GetReference DD ${aLabel4}]} aResult]
46 if { ${IsDone} != 0 } {
48 puts "Get a value of TDF_Reference attribute from restoring document: Error"
52 if { ${aReference1} != ${aReference5} } {
53 puts "aReference1=${aReference1} aReference5=${aReference5}"
54 puts "Get a value of TDF_Reference attribute from restoring document: Error"
57 puts "Get a value of TDF_Reference attribute from restoring document: OK"