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

puts "caf009-B2"

set xDoc [CreateXmlDoc]

# Configurate XProgress 
XProgress -g +t -tcloutput

# 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 geometry" "3D Curves"
 "Surfaces" "Shapes" "Reading sub-tree" "100%" }

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