2 puts "================"
4 puts "================"
6 ######################################################
7 # No binary persistence for TDataStd_ExtStringArray attribute
8 ######################################################
12 # Testing attribute: TDataStd_ExtStringArray
14 # Testing command: SetExtStringArray
15 # Testing command: GetExtStringArray
21 # Add an attribute to a data framework
25 set aSetAttr11 "TDataStd"
26 set aSetAttr12 "ExtStringArray"
28 SetExtStringArray D ${aLabel} ${isDelta} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr12}
30 # Close/Open the transaction
34 set aFile ${imagedir}/caf001-M3.std
37 if { ![file exists ${aFile}] } {
38 puts "There is not ${aFile} file; SaveAs command: Error"
40 #catch {exec chmod 777 ${aFile}}
42 # Restore the document
46 # Get a value of the attribute
48 set aMessage3 "Get a value of TDataStd_ExtStringArray attribute from restoring document: Error"
49 set IsDone [catch {set aGetAttr3 [GetExtStringArray DD ${aLabel}]} aResult]
50 if { ${IsDone} != 0 } {
54 set aLen3 [llength ${aGetAttr3}]
55 if { ${aLen3} != [expr ${aTo1} - ${aFrom1} + 1] } {
60 set aGetAttr41 [lindex ${aGetAttr3} 0]
61 if { ${aSetAttr11} != ${aGetAttr41} } {
63 puts "aGetAttr41=${aGetAttr41}"
66 set aGetAttr42 [lindex ${aGetAttr3} 1]
67 if { ${aSetAttr12} != ${aGetAttr42} } {
69 puts "aGetAttr42=${aGetAttr42}"
73 if { ${IsGood} == 0} {