occt/tests/caf/progress/A2

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

puts "caf009-A2"

# Configure XProgress 
XProgress +t

# Create binary document
NewDocument Doc XmlOcaf

# Fill the document by box
box b 1 1 1

SetShape Doc 0:1 b

# SaveAs
set output [SaveAs Doc ${imagedir}/${casename}_tmp.xml]

# Close the document
Close Doc

# Test data
set ctr { "0%" "Writing sub-tree" "Writing shape section"
          "Writing" "Geometry" "2D Curves" "3D Curves"
          "Polygons On Triangulation" "Surfaces"
          "3D Polygons" "Triangulations" "100%" "Shapes" }

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