0031353: TDocStd_Application does not have api to set progress indicator
[occt.git] / tests / caf / progress / C2
diff --git a/tests/caf/progress/C2 b/tests/caf/progress/C2
new file mode 100644 (file)
index 0000000..9b47b86
--- /dev/null
@@ -0,0 +1,42 @@
+#INTERFACE CAF
+# Message_ProgressIndicator
+#
+# Testing attribute: TDocStd_Application
+#
+# Testing command:   Save
+#
+
+puts "caf009-C2"
+
+set xDoc [CreateXmlDoc]
+
+# Open document
+if {${xDoc} == "" } {
+   puts "Save command for binary files: Error, cannot open file"
+   return
+}
+Open ${xDoc} Doc
+
+# Fill the document by another box
+box b 1 1 1
+SetShape Doc 0:2 b
+
+# Configurate XProgress
+XProgress -g +t -tcloutput
+
+# Save
+set output [Save Doc]
+
+# Close the document
+Close Doc
+
+# Test data
+set ctr { "0%" "Writing sub-tree" "Writing shape section"
+ "Writing Shapes" "Writing geometry" "2D Curves" "3D Curves" "Surfaces" "100%" }
+
+foreach data ${ctr} {
+    if ![regexp $data $output] {
+       puts "Error: Save command for xml files: Mismatch data on '$data'"
+       break
+    }
+}