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
699 B
Plaintext
36 lines
699 B
Plaintext
#INTERFACE CAF
|
|
# Message_ProgressIndicator
|
|
#
|
|
# Testing attribute: TDocStd_Application
|
|
#
|
|
# Testing command: Open
|
|
#
|
|
|
|
puts "caf009-B1"
|
|
|
|
set bDoc [CreateBinDoc]
|
|
|
|
# Configurate XProgress
|
|
XProgress -g +t -tcloutput
|
|
|
|
# Open binary document
|
|
if {${bDoc} == "" } {
|
|
puts "Error: Open command for binary files: Error, wrong path"
|
|
return
|
|
}
|
|
|
|
set output [Open ${bDoc} Doc]
|
|
|
|
# Close the document
|
|
Close Doc
|
|
|
|
# Test data
|
|
set ctr {"0%" "Reading data" "Reading geomentry" "Reading curves 2d"
|
|
"Reading surfaces" "Reading Shapes" "Reading sub tree" "100%" }
|
|
|
|
foreach data ${ctr} {
|
|
if ![regexp $data $output] {
|
|
puts "Error: Open command for binary files: Mismatch data on '$data'"
|
|
break
|
|
}
|
|
} |