mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
607a96d42a
Removing XML Validator Improvements of begin and TODO's in testing cases small correction in begin file to provide normal behavior of tests if Java is not installed
42 lines
1.2 KiB
Plaintext
42 lines
1.2 KiB
Plaintext
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"
|
|
}
|
|
}
|
|
}
|