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
45 lines
1.2 KiB
Plaintext
45 lines
1.2 KiB
Plaintext
set aTestName "caf001-C3"
|
|
puts $aTestName
|
|
|
|
set QA_DUP 0
|
|
|
|
# Add an attribute to a data framework
|
|
set aFrom1 1
|
|
set aTo1 2
|
|
set aSetAttr11 3.
|
|
set aSetAttr12 4.
|
|
set aLabel 0:2
|
|
set isDelta 0
|
|
SetRealArray D ${aLabel} ${isDelta} ${aFrom1} ${aTo1} ${aSetAttr11} ${aSetAttr12}
|
|
|
|
# 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 [GetRealArray DD ${aLabel}]} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TDataStd_RealArray attribute from restoring document"
|
|
} else {
|
|
set aLen3 [llength ${aGetAttr3}]
|
|
if { ${aLen3} != [expr ${aTo1} - ${aFrom1} + 1] } {
|
|
puts "Error : Get a value of TDataStd_RealArray attribute from restoring document"
|
|
}
|
|
set aGetAttr41 [lindex ${aGetAttr3} 0]
|
|
if { ${aSetAttr11} != ${aGetAttr41} } {
|
|
puts "Error : Get a value of TDataStd_RealArray attribute from restoring document"
|
|
}
|
|
set aGetAttr42 [lindex ${aGetAttr3} 1]
|
|
if { ${aSetAttr12} != ${aGetAttr42} } {
|
|
puts "Error : Get a value of TDataStd_RealArray attribute from restoring document"
|
|
}
|
|
} |