mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
37 lines
730 B
Plaintext
37 lines
730 B
Plaintext
#INTERFACE CAF
|
|
# Message_ProgressIndicator
|
|
#
|
|
# Testing attribute: TDocStd_Application
|
|
#
|
|
# Testing command: Open
|
|
#
|
|
|
|
puts "caf009-B2"
|
|
|
|
set xDoc [CreateXmlDoc]
|
|
|
|
# Configure 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
|
|
}
|
|
} |