0025748: Parallel version of progress indicator
[occt.git] / tests / bugs / fclasses / bug31092
1 puts "# ============"
2 puts "# 0031092: Foundation Classes - incorrect last output value for Infinite progress indicator"
3 puts "# ============"
4 puts ""
5 puts "# Test output of progress indicator in text mode (infinite scale)"
6
7 pload QAcommands
8
9 XProgress +t
10
11 set out [OCC28478 3 2 -inf]
12
13 set expected {
14   {Progress: 0%}
15   {Progress: 11% Outer: 1 / 3 Inner: 1}
16   {Progress: 17% Outer: 1 / 3 Inner: 2}
17   {Progress: 20% Outer: 1 / 3 Inner: 3}
18   {Progress: 22% Outer: 1 / 3 Inner: 4}
19   {Progress: 33% Outer: 1 / 3 Inner: finished}
20   {Progress: 44% Outer: 2 / 3 Inner: 1}
21   {Progress: 50% Outer: 2 / 3 Inner: 2}
22   {Progress: 53% Outer: 2 / 3 Inner: 3}
23   {Progress: 56% Outer: 2 / 3 Inner: 4}
24   {Progress: 67% Outer: 2 / 3 Inner: finished}
25   {Progress: 78% Outer: 3 / 3 Inner: 1}
26   {Progress: 83% Outer: 3 / 3 Inner: 2}
27   {Progress: 87% Outer: 3 / 3 Inner: 3}
28   {Progress: 89% Outer: 3 / 3 Inner: 4}
29   {Progress: 100% Outer: 3 / 3 Inner: finished}
30 }
31
32 if { [string compare [string trim $out] [join $expected "\n"]] } {
33   puts "Error: output (see above) does not match expected one:"
34   puts "[join $expected "\n"]"
35   puts ""
36 }