1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
|
#INTERFACE CAF
# Tree construction attributes
#
# Testing attribute: TDataStd_TreeNode
#
# Testing command: ChildNodeValue
#
# Testing command: NewChild
# Testing command: AppendNode
# Testing command: InitChildNodeIterator
# Testing command: ChildNodeMore
# Testing command: ChildNodeNext
#
puts "caf005-L2"
set QA_DUP 0
# Add an attribute to a data framework
set aLabel_Root 0:2
set aName_Root Label_1
Label D ${aLabel_Root}
SetName D ${aLabel_Root} ${aName_Root}
set aName1 Label_1_1
###set aChild1 [NewChild D ${aLabel_Root}]
set aChild1 0:2:1
Label D ${aChild1}
SetName D ${aChild1} ${aName1}
set aName2 Label_1_2
###set aChild2 [NewChild D ${aLabel_Root}]
set aChild2 0:2:2
Label D ${aChild2}
SetName D ${aChild2} ${aName2}
set aName3 Label_1_1_1
###set aChild3 [NewChild D ${aLabel_Root}]
set aChild3 0:2:3
Label D ${aChild3}
SetName D ${aChild3} ${aName3}
set aName4 Label_1_1_2
###set aChild4 [NewChild D ${aLabel_Root}]
set aChild4 0:2:4
Label D ${aChild4}
SetName D ${aChild4} ${aName4}
set aName5 Label_1_1_3
###set aChild5 [NewChild D ${aLabel_Root}]
set aChild5 0:2:5
Label D ${aChild5}
SetName D ${aChild5} ${aName5}
set aName6 Label_1_2_1
###set aChild6 [NewChild D ${aLabel_Root}]
set aChild6 0:2:6
Label D ${aChild6}
SetName D ${aChild6} ${aName6}
set aName7 Label_1_2_2
###set aChild7 [NewChild D ${aLabel_Root}]
set aChild7 0:2:7
Label D ${aChild7}
SetName D ${aChild7} ${aName7}
SetNode D ${aLabel_Root}
AppendNode D ${aLabel_Root} ${aChild1}
AppendNode D ${aLabel_Root} ${aChild2}
AppendNode D ${aChild1} ${aChild3}
AppendNode D ${aChild1} ${aChild4}
AppendNode D ${aChild1} ${aChild5}
AppendNode D ${aChild2} ${aChild6}
AppendNode D ${aChild2} ${aChild7}
# Close/Open the transaction
NewCommand D
# Forget the attribute
ForgetAll D ${aLabel_Root}
# Close/Open the transaction
NewCommand D
# Undo-Redo-Undo
Undo D
Redo D
Undo D
# Get a value of the attribute
set IsDone [catch {InitChildNodeIterator D ${aLabel_Root} 1} aResult]
if { ${IsDone} != 0 } {
puts ${aResult}
puts "ChildNodeNext for InitChildNodeIterator Doc TreeNode AllLevels=1 : Error"
return
}
set aChildNumber 0
set aChildNodeList {}
for {set i 1} {${i}<=10} {incr i} {
set aMore [ChildNodeMore]
set aMore [lindex ${aMore} 0]
if { ${aMore}=="TRUE"} {
set aChildNodeValue [ChildNodeValue]
set aChildNodeList [concat ${aChildNodeList} ${aChildNodeValue}]
ChildNodeNext
incr aChildNumber
}
}
if { ${aChildNumber}!=7} {
puts "aChildNumber=${aChildNumber}"
puts "ChildNodeNext for InitChildNodeIterator Doc TreeNode AllLevels=1 : Error"
return
}
set aFirstChildNode [lindex ${aChildNodeList} 0]
set aSecondChildNode [lindex ${aChildNodeList} 1]
set aThirdChildNode [lindex ${aChildNodeList} 2]
set aForthChildNode [lindex ${aChildNodeList} 3]
set aFifthChildNode [lindex ${aChildNodeList} 4]
set aSixthChildNode [lindex ${aChildNodeList} 5]
set aSeventhChildNode [lindex ${aChildNodeList} 6]
if { ${aFirstChildNode}!=${aChild1} ||
${aSecondChildNode}!=${aChild3} ||
${aThirdChildNode}!=${aChild4} ||
${aForthChildNode}!=${aChild5} ||
${aFifthChildNode}!=${aChild2} ||
${aSixthChildNode}!=${aChild6} ||
${aSeventhChildNode}!=${aChild7}} {
puts "aFirstChildNode=${aFirstChildNode} aChild1=${aChild1}"
puts "aSecondChildNode=${aSecondChildNode} aChild3=${aChild3}"
puts "aThirdChildNode=${aThirdChildNode} aChild4=${aChild4}"
puts "aForthChildNode=${aForthChildNode} aChild5=${aChild5}"
puts "aFifthChildNode=${aFifthChildNode} aChild2=${aChild2}"
puts "aSixthChildNode=${aSixthChildNode} aChild6=${aChild6}"
puts "aSeventhChildNode=${aSeventhChildNode} aChild7=${aChild7}"
puts "ChildNodeValue for InitChildNodeIterator Doc TreeNode AllLevels=1 : Error"
return
}
puts "ChildNodeValue for InitChildNodeIterator Doc TreeNode AllLevels=1 : OK"
|
