mirror of
https://github.com/Open-Cascade-SAS/OCCT.git
synced 2026-08-10 08:19:37 +08:00
ski
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
31 lines
780 B
Plaintext
31 lines
780 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-D1"
|
|
puts $aTestName
|
|
|
|
# Add an attribute to a data framework
|
|
set aLabel 0:1:1:1
|
|
Label D $aLabel
|
|
set coords_before [XSetCentroid D $aLabel 12.34 56.78 90.12]
|
|
|
|
# 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 coords_after [XGetCentroid DD $aLabel]} aResult]
|
|
if { ${IsDone} != 0 || ${coords_after} != ${coords_before} } {
|
|
puts "Error : Get a value of XCAFDoc_Centroid attribute from restoring document"
|
|
}
|