mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-08-01 19:50:24 +08:00
ski
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
36 lines
781 B
Plaintext
36 lines
781 B
Plaintext
set aTestName "caf005-A3"
|
|
puts ${aTestName}
|
|
|
|
# Add an attribute to a data framework
|
|
set aLabel1 0:2
|
|
set aName1 Label1
|
|
Label D ${aLabel1}
|
|
SetName D ${aLabel1} ${aName1}
|
|
|
|
set aName11 Label11
|
|
set aChild1 [NewChild D ${aLabel1}]
|
|
set aChild1 0:2:1
|
|
SetName D ${aChild1} ${aName11}
|
|
|
|
# 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 aNewTag [NewTag DD 0:2]} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TDF_TagSource attribute from restoring document"
|
|
} else {
|
|
if { ${aNewTag} != 2 } {
|
|
puts "Error : Get a value of TDF_TagSource attribute from restoring document"
|
|
}
|
|
}
|