#INTERFACE CAF # Message_ProgressIndicator # # Testing attribute: TDocStd_Application # # Testing command: Save # puts "caf009-C1" set bDoc [CreateBinDoc] # Open document if {${bDoc} == "" } { puts "Save command for binary files: Error, cannot open file" return } Open ${bDoc} Doc # Fill the document by another box box b 1 1 1 SetShape Doc 0:2 b # Configurate XProgress XProgress +t # Save set output [Save Doc] # Close the document Close Doc # Test data set ctr { "0%" "Writing document" "Writing sub tree" "Writing geometry" "Writing 2D curves" "Writing curves" "Writing surfases" "Writing shapes" "100%" } foreach data ${ctr} { if ![regexp $data $output] { puts "Error: Save command for binary files: Mismatch data on '$data'" break } }