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

puts "caf009-A1"

# Configurate XProgress 
XProgress +t 

# Create binary document
NewDocument Doc BinOcaf

# Fill the document by box
box b 1 1 1
SetShape Doc 0:1 b

# SaveAs
set output [SaveAs Doc ${imagedir}/testA1.cbf]

# Close the document
Close Doc

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

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