5a1271c8 |
1 | #INTERFACE CAF |
2 | # Basic attributes |
3 | # TDataStd_ReferenceArray |
4 | # |
5 | # Testing attribute: User defined (additional GUID) TDataStd_ReferenceArray |
6 | # |
7 | # Testing command: SetRefArray |
8 | # Testing command: GetRefArray |
9 | # |
10 | |
11 | puts "caf001-Q6" |
12 | set QA_DUP 0 |
13 | |
14 | # Add an attribute to a data framework |
15 | set aFrom1 1 |
16 | set aTo1 2 |
17 | set aSetAttr11 0:3 |
18 | set aSetAttr12 0:4 |
19 | set aLabel 0:2 |
20 | |
21 | set aGuid1 "12e94518-6dbc-11d4-b9c8-0060b0ee281b" |
22 | |
23 | SetRefArray D ${aLabel} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr12} |
24 | SetRefArray D ${aLabel} -g ${aGuid1} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr12} |
25 | |
26 | # Close/Open the transaction |
27 | NewCommand D |
28 | |
29 | # Forget the attribute |
30 | ForgetAll D ${aLabel} |
31 | |
32 | # Close/Open the transaction |
33 | NewCommand D |
34 | |
35 | # Undo-Redo-Undo |
36 | Undo D |
37 | Redo D |
38 | Undo D |
39 | |
40 | # Save Document |
41 | set aFile ${imagedir}/caf001-Q6.cbf |
42 | SaveAs D ${aFile} |
43 | Close D |
44 | |
45 | #Open a document |
46 | Open ${aFile} D |
47 | |
48 | |
49 | # Get a value of the attribute |
50 | set IsGood 1 |
51 | set aMessage1 "Add TDataStd_ReferenceArray attribute: Error" |
52 | set aGetAttr1 [GetRefArray D ${aLabel}] |
53 | set aLen1 [llength ${aGetAttr1}] |
54 | set aGetAttr2 [GetRefArray D ${aLabel} ${aGuid1}] |
55 | set aLen2 [llength ${aGetAttr2}] |
56 | |
57 | if { ${aLen1} != [expr ${aTo1} - ${aFrom1} + 1] } { |
58 | set IsGood 0 |
59 | puts "aLen1=${aLen1}" |
60 | puts ${aMessage1} |
61 | } |
62 | if { ${aLen2} != [expr ${aTo1} - ${aFrom1} + 1] } { |
63 | set IsGood 0 |
64 | puts "aLen2=${aLen2}" |
65 | puts ${aMessage1} |
66 | } |
67 | |
68 | set aGetAttr11 [lindex ${aGetAttr1} 0] |
69 | set aGetAttr21 [lindex ${aGetAttr2} 0] |
70 | if { ${aGetAttr11} != ${aGetAttr21} } { |
71 | set IsGood 0 |
72 | puts "aGetAttr11=${aGetAttr11}" |
73 | puts "aGetAttr21=${aGetAttr21}" |
74 | puts ${aMessage1} |
75 | } |
76 | set aGetAttr12 [lindex ${aGetAttr1} 1] |
77 | set aGetAttr22 [lindex ${aGetAttr2} 1] |
78 | if { ${aGetAttr12} != ${aGetAttr22} } { |
79 | set IsGood 0 |
80 | puts "aGetAttr12=${aGetAttr12}" |
81 | puts "aGetAttr22=${aGetAttr22}" |
82 | puts ${aMessage1} |
83 | } |
84 | |
85 | if { ${IsGood} == 0} { |
86 | puts "Add TDataStd_ReferenceArray attribute: Error" |
87 | } else { |
88 | puts "Add TDataStd_ReferenceArray attribute: OK" |
89 | } |