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