2 # Message_ProgressIndicator
4 # Testing attribute: TDocStd_Application
6 # Testing command: Open
11 set bDoc [CreateBinDoc]
13 # Configurate XProgress
16 # Open binary document
18 puts "Error: Open command for binary files: Error, wrong path"
22 set output [Open ${bDoc} Doc]
28 set ctr {"0%" "Reading data" "Reading sub tree" "100%" }
31 if ![regexp $data $output] {
32 puts "Error: Open command for binary files: Mismatch data on '$data'"