0031918: Application Framework - New binary format for fast reading part of OCAF...
[occt.git] / tests / caf / progress / A1
1 #INTERFACE CAF
2 # Message_ProgressIndicator
3 #
4 # Testing attribute: TDocStd_Application
5 #
6 # Testing command:   SaveAs
7 #
8
9 puts "caf009-A1"
10
11 # Configurate XProgress 
12 XProgress +t 
13
14 # Create binary document
15 NewDocument Doc BinOcaf
16
17 # Fill the document by box
18 box b 1 1 1
19 SetShape Doc 0:1 b
20
21 # SaveAs
22 set output [SaveAs Doc ${imagedir}/testA1.cbf]
23
24 # Close the document
25 Close Doc
26
27 # Test data
28 set ctr { "0%" "Writing document" "Writing sub tree" "100%" }
29
30 foreach data ${ctr} {
31     if ![regexp $data $output] {
32        puts "Error: SaveAs command for binary files: Mismatch data on '$data'"
33        break; 
34     }
35 }