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
47 lines
1.0 KiB
Plaintext
47 lines
1.0 KiB
Plaintext
set aTestName "caf100-R1"
|
|
puts ${aTestName}
|
|
|
|
# Set a variables
|
|
set aV1Label 0:1:1
|
|
set aV2Label 0:1:2
|
|
set aV3Label 0:1:3
|
|
|
|
Label D ${aV1Label}
|
|
Label D ${aV2Label}
|
|
Label D ${aV3Label}
|
|
|
|
SetVariable D ${aV1Label} 1 "N"
|
|
SetVariable D ${aV2Label} 0 "kg"
|
|
SetVariable D ${aV3Label} 0 "m/s2"
|
|
|
|
# Set an expression
|
|
set expression "f = m*a"
|
|
|
|
# Set a relation
|
|
set aRLabel 0:1:13
|
|
Label D ${aRLabel}
|
|
SetRelation D ${aRLabel} $expression $aV1Label $aV2Label $aV3Label
|
|
|
|
# Save a result for check after retrieval
|
|
set dump_before [DumpRelation D ${aRLabel}]
|
|
|
|
# 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 {set dump_after [DumpRelation DD ${aRLabel}]} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TDataStd_Relation attribute from restoring document"
|
|
} else {
|
|
|
|
if { ${dump_after} != ${dump_before} } {
|
|
puts "Error : Get a value of TDataStd_Relation attribute from restoring document"
|
|
}
|
|
}
|