tests/de_mesh/shape_write_stl/B1

   1 sphere s 10
   2 tessellate result s 100 100
   3 XProgress +t
   4 set aTmpFile "$imagedir/${casename}.stl"
   5 set out [writestl result "$aTmpFile"]
   6 file delete "$aTmpFile"
   7
   8 set expected {
   9   {Progress: 0%}
  10   {Progress: 5% Triangles: 1000 / 20000}
  11   {Progress: 10% Triangles: 2000 / 20000}
  12   {Progress: 15% Triangles: 3000 / 20000}
  13   {Progress: 20% Triangles: 4000 / 20000}
  14   {Progress: 25% Triangles: 5000 / 20000}
  15   {Progress: 30% Triangles: 6000 / 20000}
  16   {Progress: 35% Triangles: 7000 / 20000}
  17   {Progress: 40% Triangles: 8000 / 20000}
  18   {Progress: 45% Triangles: 9000 / 20000}
  19   {Progress: 50% Triangles: 10000 / 20000}
  20   {Progress: 55% Triangles: 11000 / 20000}
  21   {Progress: 60% Triangles: 12000 / 20000}
  22   {Progress: 65% Triangles: 13000 / 20000}
  23   {Progress: 70% Triangles: 14000 / 20000}
  24   {Progress: 75% Triangles: 15000 / 20000}
  25   {Progress: 80% Triangles: 16000 / 20000}
  26   {Progress: 85% Triangles: 17000 / 20000}
  27   {Progress: 90% Triangles: 18000 / 20000}
  28   {Progress: 95% Triangles: 19000 / 20000}
  29   {Progress: 100% Triangles: 20000 / 20000}
  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 }