bf4bf038 |
1 | puts "==========" |
2 | puts "OCC24852" |
3 | puts "==========" |
4 | puts "" |
5 | ######################################################## |
6 | # Crash on storage of an Ocaf document in XML file format |
7 | ######################################################## |
8 | |
9 | NewDocument D XmlOcaf |
10 | |
11 | set File ${imagedir}/bug24852_test.xml |
12 | |
13 | if { [catch {set res [SaveAs D ${File}]}] != 0 } { |
14 | puts "Error : Crash on storage of an Ocaf document in XML file format" |
15 | } else { |
16 | puts "OK : Storage of an Ocaf document in XML file format is good" |
17 | file delete ${File} |
18 | } |