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
36 lines
894 B
Plaintext
36 lines
894 B
Plaintext
if { [string compare $subgroup "xcaf_xml"] == 0 } {
|
|
puts "TODO ?OCC23768 ALL: Error : File is not valid"
|
|
puts "TODO ?OCC23768 ALL: Error at line"
|
|
}
|
|
|
|
set aTestName "xcaf200-L1"
|
|
puts $aTestName
|
|
|
|
# Add an attribute to a data framework
|
|
set aLabel [XNewShape D]
|
|
box aB 10 20 30
|
|
ttranslate aB 333 777 13
|
|
XAddComponent D $aLabel aB
|
|
set aLabel ${aLabel}:1
|
|
|
|
# Close/Open the transaction
|
|
NewCommand D
|
|
|
|
# save result for check after retrieval
|
|
set location_before [XDumpLocation D $aLabel]
|
|
|
|
# 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 location_after [XDumpLocation DD $aLabel]} aResult]
|
|
if { ${IsDone} != 0 || ${location_after} != ${location_before} } {
|
|
puts "Error : Get a value of XCAFDoc_Location attribute from restoring document"
|
|
}
|