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
47 lines
1.2 KiB
Plaintext
47 lines
1.2 KiB
Plaintext
if { [string compare $subgroup "xcaf_xml"] == 0 } {
|
|
puts "TODO ?OCC23768 ALL: Error : File is not valid"
|
|
puts "TODO ?OCC23768 ALL: Error at line"
|
|
}
|
|
|
|
puts "============"
|
|
puts "OCC16497"
|
|
puts "============"
|
|
puts ""
|
|
#######################################################################
|
|
# XML OCAF storage of document on disk looses "0" in "00", "000", etc.
|
|
#######################################################################
|
|
|
|
set BugNumber OCC16497
|
|
|
|
set aTestName "xml001-D7"
|
|
puts ${aTestName}
|
|
|
|
# Add an attribute to a data framework
|
|
set aSetAttr1 "00"
|
|
set aLabel 0:2
|
|
Label D ${aLabel}
|
|
SetName D ${aLabel} ${aSetAttr1}
|
|
|
|
# Close/Open the transaction
|
|
NewCommand D
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
if { ![file exists ${aFile}] } {
|
|
puts "Error : ${BugNumber} (case 1)"
|
|
}
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|
|
|
|
# Get a value of the attribute
|
|
set IsDone [catch {set aGetAttr3 [GetName DD ${aLabel}]} aResult]
|
|
puts "aSetAttr1=${aSetAttr1} aGetAttr3=${aGetAttr3}"
|
|
if { ${IsDone} != 0 || ${aSetAttr1}!=${aGetAttr3} } {
|
|
puts "Error : Get a value of TDataStd_Name attribute from restoring document ${BugNumber}"
|
|
}
|