5 # Testing support of std format: reading standard attribute IntegerArray
7 # Testing command: Open, GetIntArray
13 # Add an attribute to a data framework
14 set aSetAttr1 {11 12 13 14 155}
16 set aFile [locate_data_file caf001_intAr.std]
20 # Get a value of the attribute
22 set aMessage1 "Add TDataStd_IntegerArray attribute: Error"
23 set aGetAttr1 [GetIntArray D ${aLabel}]
24 set aLenRead [llength ${aGetAttr1}]
25 set aLenSet [llength ${aSetAttr1}]
27 if { ${aLenRead} != ${aLenSet} } {
29 puts "aLenRead=${aLenRead}"
33 if { ${IsGood} == 0} return
35 for {set i 0} {$i < $aLenRead} {incr i} {
36 set aGetAttr11 [lindex ${aGetAttr1} $i]
37 set aGetAttr21 [lindex ${aSetAttr1} $i]
38 if { ${aGetAttr11} != ${aGetAttr21} } {
39 set IsGood 0;puts "i=${i}"
40 puts "aGetAttr11=${aGetAttr11}"
41 puts "aGetAttr21=${aGetAttr21}"
46 if { ${IsGood} == 0} {
49 puts "Add TDataStd_IntegerArray attribute: OK"