0025748: Parallel version of progress indicator
[occt.git] / tests / caf / progress / A2
1 #INTERFACE CAF
2 # Message_ProgressIndicator
3 #
4 # Testing attribute: TDocStd_Application
5 #
6 # Testing command:   SaveAs
7 #
8
9 puts "caf009-A2"
10
11 # Configurate XProgress 
12 XProgress +t
13
14 # Create binary document
15 NewDocument Doc XmlOcaf
16
17 # Fill the document by box
18 box b 1 1 1
19
20 SetShape Doc 0:1 b
21
22 # SaveAs
23 set output [SaveAs Doc ${imagedir}/testA2.xml]
24
25 # Close the document
26 Close Doc
27
28 # Test data
29 set ctr { "0%" "Writing sub-tree" "Writing shape section"
30           "Writing" "Geometry" "2D Curves" "3D Curves"
31           "Polygons On Triangulation" "Surfaces"
32           "3D Polygons" "Triangulations" "100%" "Shapes" }
33
34 foreach data ${ctr} {
35     if ![regexp $data $output] {
36           puts "Error: SaveAs command for xml files: Mismatch data on '$data'"
37           break 
38     }
39 }