989dfb6ad3f90d05d0914c149a2f6d7eaea26b30
[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 set out [OCC28478 3 2 -inf]
9
10 set expected {
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}
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 }