4 # Testing attribute: TDataStd_Integer
6 # Testing command: SetInteger
7 # Testing command: GetInteger
12 # Add an attribute to a data framework
15 SetInteger D ${aLabel} ${aSetAttr1}
17 # Close/Open the transaction
20 # Forget the attribute
23 # Close/Open the transaction
31 # Get a value of the attribute
32 set aGetAttr1 [GetInteger D ${aLabel}]
33 if { ${aSetAttr1}!=${aGetAttr1} } {
34 puts "aSetAttr1=${aSetAttr1} aGetAttr1=${aGetAttr1}"
35 puts "Add TDataStd_Integer attribute: Error"
38 puts "Add TDataStd_Integer attribute: OK"