2 # Message_ProgressIndicator
4 # Testing attribute: TDocStd_Application
6 # Testing command: SaveAs
11 # Configurate XProgress
14 # Create binary document
15 NewDocument Doc BinOcaf
17 # Fill the document by box
22 set output [SaveAs Doc ${imagedir}/testA1.cbf]
28 set ctr { "0%" "Writing document" "Writing sub tree"
29 "Writing geometry" "Writing 2D curves" "Writing curves"
30 "Writing surfases" "Writing shapes" "100%" }
33 if ![regexp $data $output] {
34 puts "Error: SaveAs command for binary files: Mismatch data on '$data'"