0025317: Failure on attempt to save an Ocaf document with a long double array attribu...
[occt.git] / tests / bugs / caf / bug25317
1 puts "================"
2 puts "OCC25317"
3 puts "================"
4 puts ""
5 ###################################################################################################
6 # Failure on attempt to save an Ocaf document with a long double array attribute in a Xml file
7 ###################################################################################################
8
9 set i 1
10 set nb 50000
11
12 set FileName $imagedir/${test_image}.xml
13 file delete ${FileName}
14 if [file exists ${FileName}] {
15   puts "Error: There is temporary ${FileName} file"
16 }
17
18 #Allocate a large array.
19 NewDocument D XmlOcaf
20 SetRealArray D 0:1 0 1 $nb
21
22 #Fill-in the large array.
23 repeat $nb {
24   SetRealArrayValue D 0:1 $i 1.234
25   incr i 1
26 }
27
28 #Save the document in XML format.
29 SaveAs D ${FileName}
30
31 if [file exists ${FileName}] {
32   puts "OK: There is ${FileName} file"
33 } else {
34   puts "Error: There is not ${FileName} file"
35 }