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
41 lines
751 B
Plaintext
41 lines
751 B
Plaintext
if { [string compare $subgroup "ocaf_xml"] == 0 } {
|
|
puts "TODO ?OCC23768 ALL: Error : File is not valid"
|
|
}
|
|
|
|
set aTestName "caf100-C1"
|
|
puts ${aTestName}
|
|
|
|
box ab 10 20 777
|
|
NewShape D 0:1 ab
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
# Create a label
|
|
set aLabel 0:1:1
|
|
|
|
# Set a Naming attribute
|
|
SelectShape D ${aLabel} ab
|
|
|
|
# Close/Open transaction
|
|
NewCommand D
|
|
|
|
# Dump selection to check result
|
|
DumpSelection D ${aLabel}
|
|
|
|
# Save the document
|
|
set aFile $WorkDirectory/${aTestName}.${FileSuffix}
|
|
|
|
SaveToFile D $aFile
|
|
|
|
# Restore the document
|
|
Close D
|
|
Open ${aFile} DD
|
|
|
|
# Check the result
|
|
set IsDone [catch {DumpSelection DD ${aLabel}} aResult]
|
|
if { ${IsDone} != 0 } {
|
|
puts "Error : Get a value of TNaming_Naming attribute from restoring document"
|
|
}
|
|
|