0025748: Parallel version of progress indicator
[occt.git] / tests / caf / progress / B2
1 #INTERFACE CAF
2 # Message_ProgressIndicator
3 #
4 # Testing attribute: TDocStd_Application
5 #
6 # Testing command:   Open
7 #
8
9 puts "caf009-B2"
10
11 set xDoc [CreateXmlDoc]
12
13 # Configurate XProgress 
14 XProgress +t 
15
16 # Open xml document
17 if {${xDoc} == "" } {
18    puts "Error: Open command for xml files: wrong path"
19    return
20 }
21
22 set output [Open ${xDoc} Doc]
23
24 # Close the document
25 Close Doc
26
27 # Test data
28 set ctr { "0%" "Reading document" "Reading" "3D Curves" "2D Curves"
29           "3D Polygons" "Polygons On Triangulation" "Shapes" 
30           "Triangulations" "Surfaces" "Reading sub-tree" "100%" }
31
32 foreach data ${ctr} {
33     if ![regexp $data $output] {
34        puts "Error: Open command for xml files: Mismatch data on '$data'"
35        break
36     }
37 }