40093367 |
1 | #INTERFACE CAF |
2 | # Tree construction attributes |
3 | # |
4 | # Testing attribute: TDataStd_TreeNode |
5 | # |
6 | # Testing command: ChildNodeIterate |
7 | # |
8 | # Testing command: NewChild |
9 | # Testing command: AppendNode |
10 | # |
11 | |
12 | puts "caf005-I3" |
13 | set QA_DUP 0 |
14 | |
15 | # Add an attribute to a data framework |
16 | set aLabel_Root 0:2 |
17 | set aName_Root Label_1 |
18 | Label D ${aLabel_Root} |
19 | SetName D ${aLabel_Root} ${aName_Root} |
20 | |
21 | set aName1 Label_1_1 |
22 | ###set aChild1 [NewChild D ${aLabel_Root}] |
23 | set aChild1 0:2:1 |
24 | Label D ${aChild1} |
25 | SetName D ${aChild1} ${aName1} |
26 | |
27 | set aName2 Label_1_2 |
28 | ###set aChild2 [NewChild D ${aLabel_Root}] |
29 | set aChild2 0:2:2 |
30 | Label D ${aChild2} |
31 | SetName D ${aChild2} ${aName2} |
32 | |
33 | set aName3 Label_1_1_1 |
34 | ###set aChild3 [NewChild D ${aLabel_Root}] |
35 | set aChild3 0:2:3 |
36 | Label D ${aChild3} |
37 | SetName D ${aChild3} ${aName3} |
38 | |
39 | set aName4 Label_1_1_2 |
40 | ###set aChild4 [NewChild D ${aLabel_Root}] |
41 | set aChild4 0:2:4 |
42 | Label D ${aChild4} |
43 | SetName D ${aChild4} ${aName4} |
44 | |
45 | set aName5 Label_1_1_3 |
46 | ###set aChild5 [NewChild D ${aLabel_Root}] |
47 | set aChild5 0:2:5 |
48 | Label D ${aChild5} |
49 | SetName D ${aChild5} ${aName5} |
50 | |
51 | set aName6 Label_1_2_1 |
52 | ###set aChild6 [NewChild D ${aLabel_Root}] |
53 | set aChild6 0:2:6 |
54 | Label D ${aChild6} |
55 | SetName D ${aChild6} ${aName6} |
56 | |
57 | set aName7 Label_1_2_2 |
58 | ###set aChild7 [NewChild D ${aLabel_Root}] |
59 | set aChild7 0:2:7 |
60 | Label D ${aChild7} |
61 | SetName D ${aChild7} ${aName7} |
62 | |
63 | SetNode D ${aLabel_Root} |
64 | AppendNode D ${aLabel_Root} ${aChild1} |
65 | AppendNode D ${aLabel_Root} ${aChild2} |
66 | AppendNode D ${aChild1} ${aChild3} |
67 | AppendNode D ${aChild1} ${aChild4} |
68 | AppendNode D ${aChild1} ${aChild5} |
69 | AppendNode D ${aChild2} ${aChild6} |
70 | AppendNode D ${aChild2} ${aChild7} |
71 | |
72 | # Close/Open the transaction |
73 | NewCommand D |
74 | |
75 | # Forget the attribute |
76 | ForgetAll D ${aLabel_Root} |
77 | |
78 | # Close/Open the transaction |
79 | NewCommand D |
80 | |
81 | # Undo-Redo-Undo |
82 | Undo D |
83 | Redo D |
84 | Undo D |
85 | |
86 | # Get a value of the attribute |
87 | set IsDone [catch {set aListChildNodes [ChildNodeIterate D ${aLabel_Root} 1]} aResult] |
88 | if { ${IsDone} != 0 } { |
89 | puts ${aResult} |
90 | puts "ChildNodeIterate Doc TreeNode AllLevels=1 : Error" |
91 | return |
92 | } |
93 | set aListChildNodesLength [llength ${aListChildNodes}] |
94 | if { ${aListChildNodesLength}!=[expr 7 + 0]} { |
95 | puts "aListChildNodes=${aListChildNodes}" |
96 | puts "aListChildNodesLength=${aListChildNodesLength}" |
97 | puts "ChildNodeIterate Doc TreeNode AllLevels=1 : Error" |
98 | return |
99 | } |
100 | |
101 | puts "ChildNodeIterate Doc TreeNode AllLevels=1 : OK" |