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