tests/bugs/fclasses/bug28478

   1 puts "# ============"
   2 puts "# 0028478: Scope Names Are Swallowed in Message_ProgressSentry Constructors"
   3 puts "# ============"
   4 puts ""
   5 puts "# Test output of progress indicator in text mode"
   6
   7 pload QAcommands
   8
   9 XProgress +t
  10
  11 set out [OCC28478 3 2]
  12
  13 set expected {
  14   {Progress: 0%}
  15   {Progress: 17% Outer: 1 / 3 Inner: 1 / 2}
  16   {Progress: 33% Outer: 1 / 3 Inner: 2 / 2}
  17   {Progress: 50% Outer: 2 / 3 Inner: 1 / 2}
  18   {Progress: 67% Outer: 2 / 3 Inner: 2 / 2}
  19   {Progress: 83% Outer: 3 / 3 Inner: 1 / 2}
  20   {Progress: 100% Outer: 3 / 3 Inner: 2 / 2}
  21 }
  22
  23 if { [string compare [string trim $out] [join $expected "\n"]] } {
  24   puts "Error: output (see above) does not match expected one:"
  25   puts "[join $expected "\n"]"
  26   puts ""
  27 }