0031353: TDocStd_Application does not have api to set progress indicator
[occt.git] / tests / caf / progress / B1
1 #INTERFACE CAF
2 # Message_ProgressIndicator
3 #
4 # Testing attribute: TDocStd_Application
5 #
6 # Testing command:   Open
7 #
8
9 puts "caf009-B1"
10
11 set bDoc [CreateBinDoc]
12
13 # Configurate XProgress 
14 XProgress -g +t -tcloutput
15
16 # Open binary document
17 if {${bDoc} == "" } {
18    puts "Error: Open command for binary files: Error, wrong path"
19    return
20 }
21
22 set output [Open ${bDoc} Doc]
23
24 # Close the document
25 Close Doc
26
27 # Test data
28 set ctr {"0%" "Reading data" "Reading geomentry" "Reading curves 2d"
29  "Reading surfaces" "Reading Shapes" "Reading sub tree" "100%" }
30
31 foreach data ${ctr} {
32     if ![regexp $data $output] {
33        puts "Error: Open command for binary files: Mismatch data on '$data'"
34        break
35     }
36 }