mirror of
https://git.dev.opencascade.org/repos/occt.git
synced 2025-04-03 17:56:21 +03:00
6d8f9f4a49
Add support of Message_ProgressIndicator in BinTools classes. Add support of Message_ProgressIndicator with possibility of user break in methods of opening and saving TDocStd_Application. Add tests of ProgressIndicator in TDocStd_Applacation.
36 lines
662 B
Plaintext
36 lines
662 B
Plaintext
#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
|
|
}
|
|
} |