3 # TDataStd_ExtStringArray
5 # Testing attribute: User defined (additional GUID) TDataStd_ExtStringArray
7 # Testing command: SetExtStringArray
8 # Testing command: GetExtStringArray
14 # Add an attribute to a data framework
18 set aSetAttr12 bbbbbbb
21 set aGuid1 "12e94515-6dbc-11d4-b9c8-0060b0ee281b"
23 SetExtStringArray D ${aLabel} ${isDelta} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr12}
24 SetExtStringArray D ${aLabel} ${isDelta} -g ${aGuid1} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr12}
26 # Close/Open the transaction
29 # Forget the attribute
32 # Close/Open the transaction
40 # Get a value of the attribute
42 set aMessage1 "Add TDataStd_ExtStringArray attribute: Error"
43 set aGetAttr1 [GetExtStringArray D ${aLabel}]
44 set aLen1 [llength ${aGetAttr1}]
45 set aGetAttr2 [GetExtStringArray D ${aLabel} ${aGuid1}]
46 set aLen2 [llength ${aGetAttr2}]
48 if { ${aLen1} != [expr ${aTo1} - ${aFrom1} + 1] } {
53 if { ${aLen2} != [expr ${aTo1} - ${aFrom1} + 1] } {
59 set aGetAttr11 [lindex ${aGetAttr1} 0]
60 set aGetAttr21 [lindex ${aGetAttr2} 0]
61 if { ${aGetAttr11} != ${aGetAttr21} } {
63 puts "aGetAttr11=${aGetAttr11}"
64 puts "aGetAttr21=${aGetAttr21}"
67 set aGetAttr12 [lindex ${aGetAttr1} 1]
68 set aGetAttr22 [lindex ${aGetAttr2} 1]
69 if { ${aGetAttr12} != ${aGetAttr22} } {
71 puts "aGetAttr12=${aGetAttr12}"
72 puts "aGetAttr22=${aGetAttr22}"
76 if { ${IsGood} == 0} {
77 puts "Add TDataStd_ExtStringArray attribute: Error"
79 puts "Add TDataStd_ExtStringArray attribute: OK"