From 6f3ff65ae7933ac378b8f97073ec1498999e2dd8 Mon Sep 17 00:00:00 2001
From: Bruce Hill <bitbucket@bruce-hill.com>
Date: Mon, 23 Apr 2018 15:45:37 -0700
Subject: [PATCH] Updated tests to work better with different Lua versions.

---
 tests.lua | 91 ++++++++++++++++++++++++-------------------------------
 1 file changed, 39 insertions(+), 52 deletions(-)

diff --git a/tests.lua b/tests.lua
index 7a07e31..a5a48d9 100644
--- a/tests.lua
+++ b/tests.lua
@@ -39,6 +39,7 @@ local function test(description, fn)
 end
 
 test("Loading module", function()
+    package.cpath = "./immutable.so;"..package.cpath
     immutable = require"immutable"
 end)
 
@@ -84,7 +85,7 @@ end)
 
 test("Testing from_table for tuples", function()
     local T = immutable(nil)
-    assert(T(1,2) == T:from_table(table.pack(1,2)))
+    assert(T(1,2) == T:from_table({1,2,n=2}))
     assert(T(1,2) == T:from_table({1,2}))
 end)
 
@@ -206,22 +207,6 @@ if _VERSION == "Lua 5.3" then
             assert(a == 5 and b == 6)
         end
     end)
-
-    test("Testing pairs()", function()
-        local copy = {}
-        for k,v in pairs(Vec(3,4)) do
-            copy[k] = v
-        end
-        assert(copy.x == 3 and copy.y == 4)
-    end)
-
-    test("Testing ipairs()", function()
-        local copy = {}
-        for k,v in ipairs(Vec(3,4)) do
-            copy[k] = v
-        end
-        assert(copy[1] == 3 and copy[2] == 4)
-    end)
 end
 
 test("Testing immutable(n)", function()
@@ -252,42 +237,44 @@ test("Testing giant immutable table", function()
     pcall(function() T:from_table(values) end)
 end)
 
-test("Testing tuple iteration", function()
-    local T = immutable()
-    local t = T(1,4,9,nil,16,nil)
-    local checks = {1,4,9,nil,16,nil}
-    local passed = 0
-    for i,v in ipairs(t) do
-        assert(checks[i] == v)
-        passed = passed + 1
-    end
-    assert(passed == 6)
-    passed = 0
-    for k,v in pairs(t) do
-        assert(checks[k] == v)
-        passed = passed + 1
-    end
-    assert(passed == 6)
-end)
+if _VERSION == "Lua 5.2" or _VERSION == "Lua 5.3" then
+    test("Testing tuple iteration", function()
+        local T = immutable()
+        local t = T(1,4,9,nil,16,nil)
+        local checks = {1,4,9,nil,16,nil}
+        local passed = 0
+        for i,v in ipairs(t) do
+            assert(checks[i] == v)
+            passed = passed + 1
+        end
+        assert(passed == 6)
+        passed = 0
+        for k,v in pairs(t) do
+            assert(checks[k] == v)
+            passed = passed + 1
+        end
+        assert(passed == 6)
+    end)
 
-test("Testing table iteration", function()
-    local Foo = immutable({"x", "y", "z","w"})
-    local f = Foo(1,nil,2,nil)
-    local checks = {1,nil,2,nil}
-    local passed = 0
-    for i,v in ipairs(f) do
-        assert(checks[i] == v)
-        passed = passed + 1
-    end
-    assert(passed == 4)
-    passed = 0
-    checks = {x=1,y=nil,z=2,w=nil}
-    for k,v in pairs(f) do
-        assert(checks[k] == v)
-        passed = passed + 1
-    end
-    assert(passed == 4)
-end)
+    test("Testing table iteration", function()
+        local Foo = immutable({"x", "y", "z","w"})
+        local f = Foo(1,nil,2,nil)
+        local checks = {1,nil,2,nil}
+        local passed = 0
+        for i,v in ipairs(f) do
+            assert(checks[i] == v)
+            passed = passed + 1
+        end
+        assert(passed == 4)
+        passed = 0
+        checks = {x=1,y=nil,z=2,w=nil}
+        for k,v in pairs(f) do
+            assert(checks[k] == v)
+            passed = passed + 1
+        end
+        assert(passed == 4)
+    end)
+end
 
 test("Testing __new", function()
     local Foo = immutable({"x","y"}, {