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
27 lines
611 B
Plaintext
27 lines
611 B
Plaintext
set aTestName "caf001-F3"
|
|
puts ${aTestName}
|
|
|
|
# Add an attribute to a data framework
|
|
set aSetAttr1 "New Attribute"
|
|
set aLabel 0:2
|
|
Label D ${aLabel}
|
|
SetComment D ${aLabel} ${aSetAttr1}
|
|
|
|
# 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
|
|
|
|
# Get a value of the attribute
|
|
set IsDone [catch {set aGetAttr3 [GetComment DD ${aLabel}]} aResult]
|
|
if { ${IsDone} != 0 || ${aSetAttr1}!=${aGetAttr3} } {
|
|
puts "Error : Get a value of TDataStd_Comment attribute from restoring document"
|
|
}
|