4 # Testing attribute: TDataStd_IntegerArray
6 # Testing command: SetIntArray
7 # Testing command: GetIntArray
13 # Add an attribute to a data framework
20 SetIntArray D ${aLabel} ${isDelta} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr12}
22 # Close/Open the transaction
25 # Forget the attribute
28 # Close/Open the transaction
36 # Get a value of the attribute
38 set aMessage1 "Add TDataStd_IntegerArray attribute: Error"
39 set aGetAttr1 [GetIntArray D ${aLabel}]
40 set aLen1 [llength ${aGetAttr1}]
41 if { ${aLen1} != [expr ${aTo1} - ${aFrom1} + 1] } {
47 set aGetAttr21 [lindex ${aGetAttr1} 0]
48 if { ${aSetAttr11} != ${aGetAttr21} } {
50 puts "aGetAttr21=${aGetAttr21}"
54 set aGetAttr22 [lindex ${aGetAttr1} 1]
55 if { ${aSetAttr12} != ${aGetAttr22} } {
57 puts "aGetAttr22=${aGetAttr22}"
62 if { ${IsGood} == 0} {
63 puts "Add TDataStd_IntegerArray attribute: Error"
65 puts "Add TDataStd_IntegerArray attribute: OK"