Add image iterator tests

scripts/image_iterator.lua

@@ -0,0 +1,57 @@
+-- Copyright (C) 2018  David Capello
+--
+-- This file is released under the terms of the MIT license.
+-- Read LICENSE.txt for more information.
+
+local pc = app.pixelColor
+
+-- Iterate pixels
+do
+   local spr = Sprite(2, 2)
+   local image = app.site.image
+   local colors = { pc.rgba(255, 0, 0, 255),
+                    pc.rgba(0, 255, 0, 255),
+                    pc.rgba(255, 0, 255, 255),
+                    pc.rgba(255, 0, 255, 255) }
+   local xy = {
+      { x=0, y=0 },
+      { x=1, y=0 },
+      { x=0, y=1 },
+      { x=1, y=1 } }
+
+   local c = 1
+   for y=0,image.height-1 do
+      for x=0,image.width-1 do
+         image:putPixel(x, y, colors[c])
+         c = c+1
+      end
+   end
+
+   c = 1
+   for y=0,image.height-1 do
+      for x=0,image.width-1 do
+         assert(colors[c] == image:getPixel(x, y))
+         c = c+1
+      end
+   end
+
+   c = 1
+   for it in image:pixels() do
+      assert(colors[c] == it())
+      assert(xy[c].x == it.x)
+      assert(xy[c].y == it.y)
+      c = c+1
+   end
+
+   c = 1
+   for it in image:pixels() do
+      it(pc.rgba(255, 32*c, 0, 255))
+      c = c+1
+   end
+
+   c = 1
+   for it in image:pixels() do
+      assert(pc.rgba(255, 32*c, 0, 255) == it())
+      c = c+1
+   end
+end