53d770b3 |
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 | set out [OCC28478 3 2 -inf] |
9 | |
10 | set expected { |
1fc1a207 |
11 | {Progress: 0% Outer: 0 / 3} |
53d770b3 |
12 | {Progress: 11% Outer: 1 / 3 Inner: 1} |
13 | {Progress: 17% Outer: 1 / 3 Inner: 2} |
14 | {Progress: 20% Outer: 1 / 3 Inner: 3} |
15 | {Progress: 33% Outer: 1 / 3 Inner: finished} |
16 | {Progress: 44% Outer: 2 / 3 Inner: 1} |
17 | {Progress: 50% Outer: 2 / 3 Inner: 2} |
18 | {Progress: 53% Outer: 2 / 3 Inner: 3} |
19 | {Progress: 67% Outer: 2 / 3 Inner: finished} |
20 | {Progress: 78% Outer: 3 / 3 Inner: 1} |
21 | {Progress: 83% Outer: 3 / 3 Inner: 2} |
22 | {Progress: 87% Outer: 3 / 3 Inner: 3} |
23 | {Progress: 100% Outer: 3 / 3 Inner: finished} |
24 | } |
25 | |
26 | if { [string compare [string trim $out] [join $expected "\n"]] } { |
27 | puts "Error: output (see above) does not match expected one:" |
28 | puts "[join $expected "\n"]" |
29 | puts "" |
30 | } |