1 puts "================"
3 puts "================"
5 ###################################################################################################
6 # Failure on attempt to save an Ocaf document with a long double array attribute in a Xml file
7 ###################################################################################################
12 set FileName $imagedir/${test_image}.xml
13 file delete ${FileName}
14 if [file exists ${FileName}] {
15 puts "Error: There is temporary ${FileName} file"
18 #Allocate a large array.
20 SetRealArray D 0:1 0 1 $nb
22 #Fill-in the large array.
24 SetRealArrayValue D 0:1 $i 1.234
28 #Save the document in XML format.
31 if [file exists ${FileName}] {
32 puts "OK: There is ${FileName} file"
34 puts "Error: There is not ${FileName} file"