0031353: TDocStd_Application does not have api to set progress indicator
[occt.git] / tests / caf / progress / A1
diff --git a/tests/caf/progress/A1 b/tests/caf/progress/A1
new file mode 100644 (file)
index 0000000..7c57233
--- /dev/null
@@ -0,0 +1,37 @@
+#INTERFACE CAF
+# Message_ProgressIndicator
+#
+# Testing attribute: TDocStd_Application
+#
+# Testing command:   SaveAs
+#
+
+puts "caf009-A1"
+
+# Configurate XProgress 
+XProgress -g +t -tcloutput
+
+# Create binary document
+NewDocument Doc BinOcaf
+
+# Fill the document by box
+box b 1 1 1
+SetShape Doc 0:1 b
+
+# SaveAs
+set output [SaveAs Doc ${imagedir}/testA1.cbf]
+
+# Close the document
+Close Doc
+
+# Test data
+set ctr { "0%" "Writing document" "Writing sub tree"
+    "Writing geometry" "Writing 2D curves" "Writing curves"
+    "Writing surfases" "Writing shapes" "100%" }
+
+foreach data ${ctr} {
+    if ![regexp $data $output] {
+       puts "Error: SaveAs command for binary files: Mismatch data on '$data'"
+       break; 
+    }
+}
\ No newline at end of file