5 # Testing attribute: User defined (additional GUID) TDataStd_IntegerList
7 # Testing command: SetIntegerList
8 # Testing command: GetIntegerList
14 # Add an attributes to a data framework
19 set aGuid1 "12e94531-6dbc-11d4-b9c8-0060b0ee281b"
21 SetIntegerList D ${aLabel} ${aSetAttr11} ${aSetAttr12}
22 SetIntegerList D ${aLabel} -g ${aGuid1} ${aSetAttr11} ${aSetAttr12}
24 # Close/Open the transaction
27 # Forget the attribute
30 # Close/Open the transaction
39 set aFile ${imagedir}/caf001-S6.cbf
46 # Get a value of the attribute
48 set aMessage1 "Add TDataStd_IntegerList attribute: Error"
49 set aGetAttr1 [GetIntegerList D ${aLabel}]
50 set aLen1 [llength ${aGetAttr1}]
51 set aGetAttr2 [GetIntegerList D ${aLabel} ${aGuid1}]
52 set aLen2 [llength ${aGetAttr2}]
54 if { ${aLen1} != ${aLen2}} {
61 set aGetAttr11 [lindex ${aGetAttr1} 0]
62 set aGetAttr21 [lindex ${aGetAttr2} 0]
63 if { ${aGetAttr11} != ${aGetAttr21} } {
65 puts "aGetAttr11=${aGetAttr11}"
66 puts "aGetAttr21=${aGetAttr21}"
69 set aGetAttr12 [lindex ${aGetAttr1} 1]
70 set aGetAttr22 [lindex ${aGetAttr2} 1]
71 if { ${aGetAttr12} != ${aGetAttr22} } {
73 puts "aGetAttr12=${aGetAttr12}"
74 puts "aGetAttr22=${aGetAttr22}"
78 if { ${IsGood} == 0} {
79 puts "Add TDataStd_IntegerList attribute: Error"
81 puts "Add TDataStd_IntegerList attribute: OK"