2 puts "# 0031092: Foundation Classes - incorrect last output value for Infinite progress indicator"
5 puts "# Test output of progress indicator in text mode (infinite scale)"
8 set out [OCC28478 3 2 -inf]
11 {Progress: 0% Outer: 1 / 3}
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}
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"]"