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
|
set aTestName "caf001-E3"
puts ${aTestName}
set LabelsList { \
{ 0:11 "Tu sais je n'ai jamais t aussi hereux que ce matin-l" } \
{ 0:12 "\"Tu sais je n'ai jamais t aussi hereux que ce matin-l\"" } \
{ 0:13 "<Tu sais je n'ai jamais t aussi hereux que ce matin-l>" } \
{ 0:14 "Tu m'as dit \"J'ai rendez-vous dans un sous-sol avec des fous" } \
{ 0:15 "\"Tu m'as dit \"J'ai rendez-vous dans un sous-sol avec des fous\"" } \
{ 0:16 "Il <n'avait plus rien cr> dans ce monde triste" } \
}
# Add an attribute to a data framework
foreach Label $LabelsList {
Label D [lindex $Label 0]
SetName D [lindex $Label 0] [lindex $Label 1]
}
# Close/Open the transaction
NewCommand D
# Save the document
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
SaveToFile D $aFile
# Restore the document
Close D
Open ${aFile} DD
# Check the restored values
foreach Label $LabelsList {
set IsDone [catch { set aGetAttr [GetName DD [lindex $Label 0]] } aResult]
if $IsDone {
puts "Error : Get a TDataStd_Name attribute from restored document"
} else {
if [string compare $aGetAttr [lindex $Label 1]] {
puts "Error : different strings"
}
}
}
|
