0031353: TDocStd_Application does not have api to set progress indicator
[occt.git] / tests / caf / progress / B1
diff --git a/tests/caf/progress/B1 b/tests/caf/progress/B1
new file mode 100644 (file)
index 0000000..a5772c9
--- /dev/null
@@ -0,0 +1,36 @@
+#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
+    }
+}
\ No newline at end of file