mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +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
45 lines
1.3 KiB
Plaintext
45 lines
1.3 KiB
Plaintext
set aTestName "caf001-J6"
|
|
puts ${aTestName}
|
|
|
|
# Add an attribute to a data framework
|
|
set aSetAttr1 "c73bd075-22ee-11d2-acde-080009dc4422"
|
|
set aLabel 0:2
|
|
SetUAttribute D ${aLabel} ${aSetAttr1}
|
|
|
|
# Add new ID to a label
|
|
set aSetAttr2 "c73bd076-22ee-11d2-acde-080009dc4422"
|
|
SetUAttribute D ${aLabel} ${aSetAttr2}
|
|
|
|
# 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 first ID
|
|
set IsDone [catch {GetUAttribute DD ${aLabel} ${aSetAttr1}} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document"
|
|
} else {
|
|
set aGetAttr1 [GetUAttribute DD ${aLabel} ${aSetAttr1}]
|
|
if { ${aSetAttr1}!=${aGetAttr1} } {
|
|
puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document"
|
|
}
|
|
}
|
|
# Get a value of second ID
|
|
set IsDone [catch {GetUAttribute DD ${aLabel} ${aSetAttr2}} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document"
|
|
} else {
|
|
set aGetAttr2 [GetUAttribute DD ${aLabel} ${aSetAttr2}]
|
|
if { ${aSetAttr2}!=${aGetAttr2} } {
|
|
puts "Error : Get a value of TDataStd_UAttribute attribute from restoring document"
|
|
}
|
|
}
|