0031092: Foundation Classes - incorrect last output value for Infinite progress indicator
[occt.git] / tests / bugs / fclasses / bug31092
diff --git a/tests/bugs/fclasses/bug31092 b/tests/bugs/fclasses/bug31092
new file mode 100644 (file)
index 0000000..989dfb6
--- /dev/null
@@ -0,0 +1,30 @@
+puts "# ============"
+puts "# 0031092: Foundation Classes - incorrect last output value for Infinite progress indicator"
+puts "# ============"
+puts ""
+puts "# Test output of progress indicator in text mode (infinite scale)"
+
+pload QAcommands
+set out [OCC28478 3 2 -inf]
+
+set expected {
+  {Progress: 0% Outer: 1 / 3}
+  {Progress: 11% Outer: 1 / 3 Inner: 1}
+  {Progress: 17% Outer: 1 / 3 Inner: 2}
+  {Progress: 20% Outer: 1 / 3 Inner: 3}
+  {Progress: 33% Outer: 1 / 3 Inner: finished}
+  {Progress: 44% Outer: 2 / 3 Inner: 1}
+  {Progress: 50% Outer: 2 / 3 Inner: 2}
+  {Progress: 53% Outer: 2 / 3 Inner: 3}
+  {Progress: 67% Outer: 2 / 3 Inner: finished}
+  {Progress: 78% Outer: 3 / 3 Inner: 1}
+  {Progress: 83% Outer: 3 / 3 Inner: 2}
+  {Progress: 87% Outer: 3 / 3 Inner: 3}
+  {Progress: 100% Outer: 3 / 3 Inner: finished}
+}
+
+if { [string compare [string trim $out] [join $expected "\n"]] } {
+  puts "Error: output (see above) does not match expected one:"
+  puts "[join $expected "\n"]"
+  puts ""
+}
\ No newline at end of file