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

puts "caf009-B2"

set xDoc [CreateXmlDoc]

# Configurate XProgress 
XProgress +t 

# Open xml document
if {${xDoc} == "" } {
   puts "Error: Open command for xml files: wrong path"
   return
}

set output [Open ${xDoc} Doc]

# Close the document
Close Doc

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

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