mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-04 18:06:22 +03:00
bf4bf038c8
Blanks are removed. A check is implemented to correct a GUID in case of presence of the blanks. Test case for issues CR24852
19 lines
522 B
Plaintext
Executable File
19 lines
522 B
Plaintext
Executable File
puts "=========="
|
|
puts "OCC24852"
|
|
puts "=========="
|
|
puts ""
|
|
########################################################
|
|
# Crash on storage of an Ocaf document in XML file format
|
|
########################################################
|
|
|
|
NewDocument D XmlOcaf
|
|
|
|
set File ${imagedir}/bug24852_test.xml
|
|
|
|
if { [catch {set res [SaveAs D ${File}]}] != 0 } {
|
|
puts "Error : Crash on storage of an Ocaf document in XML file format"
|
|
} else {
|
|
puts "OK : Storage of an Ocaf document in XML file format is good"
|
|
file delete ${File}
|
|
}
|