mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-05 18:16:23 +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
39 lines
833 B
Plaintext
39 lines
833 B
Plaintext
set aTestName "caf100-V1"
|
|
puts ${aTestName}
|
|
|
|
# Set isConstant
|
|
set isConstant 1
|
|
|
|
# Set a units
|
|
set units "kg/m3"
|
|
|
|
# Set a variable
|
|
set aCLabel 0:1:1
|
|
Label D ${aCLabel}
|
|
SetVariable D ${aCLabel} ${isConstant} ${units}
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|
|
|
|
# Get a variable from the label
|
|
set IsDone [catch {GetVariable DD ${aCLabel} isC2 units2} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TDataStd_Variable attribute from restoring document"
|
|
} else {
|
|
|
|
if { ${isC2} != ${isConstant} } {
|
|
puts "Error : Get a value of TDataStd_Variable attribute from restoring document"
|
|
}
|
|
|
|
if { ${units2} != ${units} } {
|
|
puts "Error : Get a value of TDataStd_Variable attribute from restoring document"
|
|
}
|
|
}
|
|
|