occt/tests/caf/progress/B1

#INTERFACE CAF
# Message_ProgressIndicator
#
# Testing attribute: TDocStd_Application
#
# Testing command:   Open
#

puts "caf009-B1"

set bDoc [CreateBinDoc]

# Configure XProgress 
XProgress +t 

# Open binary document
if {${bDoc} == "" } {
   puts "Error: Open command for binary files: Error, wrong path"
   return
}

set output [Open ${bDoc} Doc]

# Close the document
Close Doc

# Test data
set ctr {"0%" "Reading data" "Reading sub tree" "100%" }

foreach data ${ctr} {
    if ![regexp $data $output] {
       puts "Error: Open command for binary files: Mismatch data on '$data'"
       break
    }
}