From b14c6fc8310995250fa8a8b27c72a336b60d4a08 Mon Sep 17 00:00:00 2001
From: David Capello <davidcapello@gmail.com>
Date: Wed, 12 Sep 2018 18:45:23 -0300
Subject: [PATCH] Test ipairs()

---
 scripts/cels.lua   | 8 +++++++-
 scripts/frames.lua | 7 +++++++
 scripts/layers.lua | 7 +++++++
 scripts/slices.lua | 7 +++++++
 scripts/tags.lua   | 7 +++++++
 5 files changed, 35 insertions(+), 1 deletion(-)

diff --git a/scripts/cels.lua b/scripts/cels.lua
index dd91813a0..4fe59a7cd 100644
--- a/scripts/cels.lua
+++ b/scripts/cels.lua
@@ -30,8 +30,14 @@ do
   assert(cb[2] == b.cels[2])
   assert(cb[3] == b.cels[3])
 
-  s:deleteCel(cb[2])
+  local i = 1
+  for k,v in ipairs(b.cels) do
+    assert(i == k)
+    assert(v == b.cels[k])
+    i = i+1
+  end
 
+  s:deleteCel(cb[2])
   assert(cb[1] == b.cels[1])
   assert(cb[3] == b.cels[2])
 end
diff --git a/scripts/frames.lua b/scripts/frames.lua
index 62319fac3..6a1f3ef10 100644
--- a/scripts/frames.lua
+++ b/scripts/frames.lua
@@ -20,6 +20,13 @@ do
   assert(a.frames[1].duration == 0.1)
   assert(a.frames[2].duration == 0.2)
 
+  local i = 1
+  for k,v in ipairs(a.frames) do
+    assert(i == k)
+    assert(v == a.frames[k])
+    i = i+1
+  end
+
   a:deleteFrame(1)
   assert(a.frames[1].duration == 0.2)
 end
diff --git a/scripts/layers.lua b/scripts/layers.lua
index 95a319c71..ca0edc9c5 100644
--- a/scripts/layers.lua
+++ b/scripts/layers.lua
@@ -16,6 +16,13 @@ do
   assert(s.layers[2] == b)
   assert(s.layers[3] == c)
 
+  local i = 1
+  for k,v in ipairs(s.layers) do
+    assert(i == k)
+    assert(v == s.layers[k])
+    i = i+1
+  end
+
   s:deleteLayer(b)
   assert(#s.layers == 2)
   assert(s.layers[1] == a)
diff --git a/scripts/slices.lua b/scripts/slices.lua
index 7895ae497..d9b0b522c 100644
--- a/scripts/slices.lua
+++ b/scripts/slices.lua
@@ -13,6 +13,13 @@ do
   assert(b.bounds == Rectangle(0, 2, 8, 10))
   assert(c.bounds == Rectangle(0, 0, 32, 32))
 
+  local i = 1
+  for k,v in ipairs(s.slices) do
+    assert(i == k)
+    assert(v == s.slices[k])
+    i = i+1
+  end
+
   s:deleteSlice(b)
   assert(a == s.slices[1])
   assert(c == s.slices[2])
diff --git a/scripts/tags.lua b/scripts/tags.lua
index 902ffff65..84d7bfed8 100644
--- a/scripts/tags.lua
+++ b/scripts/tags.lua
@@ -20,6 +20,13 @@ do
   assert(b == s.tags[2])
   assert(c == s.tags[3])
 
+  local i = 1
+  for k,v in ipairs(s.tags) do
+    assert(i == k)
+    assert(v == s.tags[k])
+    i = i+1
+  end
+
   s:deleteTag(b)
   assert(a == s.tags[1])
   assert(c == s.tags[2])