Cover lualib with tests

Perryvw · Perryvw · commit 8d55c988199e · 2018-02-05T21:08:26.000+01:00
diff --git a/dist/lualib/typescript.lua b/dist/lualib/typescript.lua
@@ -7,12 +7,6 @@ function TS_ITE(condition, v1f, v2f)
     end
 end
 
-function TS_forEach(list, func)
-    for k, v in ipairs(list) do
-        func(v, k, list)
-    end
-end
-
 function TS_map(list, func)
     local out = {}
     for _, v in ipairs(list) do
diff --git a/test/integration/lua/lualib.spec.ts b/test/integration/lua/lualib.spec.ts
@@ -29,6 +29,96 @@ const toStringDef = "function ToString(list)\n"+
 
 export class LuaTests {
 
+    @TestCase([], "x => x")
+    @TestCase([0,1,2,3], "x => x")
+    @TestCase([0,1,2,3], "x => x*2")
+    @TestCase([1,2,3,4], "x => -x")
+    @TestCase([0,1,2,3], "x => x+2")
+    @TestCase([0,1,2,3], "x => x%2 == 0 ? x + 1 : x - 1")
+    @Test("array.map")
+    public map<T>(inp: T[], func: string) {
+        // Make typechecker return array type
+        dummyType = dummyArrayType;
+        // Transpile
+        let lua = transpileString(`return ToString([${inp.toString()}].map(${func}))`);
+
+        // Add library
+        lua = toStringDef + lualib + lua;
+
+        // Execute
+        let result = executeLua(lua);
+
+        // Assert
+        Expect(result).toBe(inp.map(eval(func)).toString());
+    }
+
+    @TestCase([], "x => x > 1")
+    @TestCase([0,1,2,3], "x => x > 1")
+    @TestCase([0,1,2,3], "x => x < 3")
+    @TestCase([0,1,2,3], "x => x < 0")
+    @TestCase([0,-1,-2,-3], "x => x < 0")
+    @TestCase([0,1,2,3], "() => true")
+    @TestCase([0,1,2,3], "() => false")
+    @Test("array.filter")
+    public filter<T>(inp: T[], func: string) {
+        // Make typechecker return array type
+        dummyType = dummyArrayType;
+        // Transpile
+        let lua = transpileString(`return ToString([${inp.toString()}].filter(${func}))`);
+
+        // Add library
+        lua = toStringDef + lualib + lua;
+
+        // Execute
+        let result = executeLua(lua);
+
+        // Assert
+        Expect(result).toBe(inp.filter(eval(func)).toString());
+    }
+
+    @TestCase([], "x => x > 1")
+    @TestCase([0,1,2,3], "x => x > 1")
+    @TestCase([false, true, false], "x => x")
+    @TestCase([true, true, true], "x => x")
+    @Test("array.every")
+    public every<T>(inp: T[], func: string) {
+        // Make typechecker return array type
+        dummyType = dummyArrayType;
+        // Transpile
+        let lua = transpileString(`return [${inp.toString()}].every(${func}))`);
+
+        // Add library
+        lua = toStringDef + lualib + lua;
+
+        // Execute
+        let result = executeLua(lua);
+
+        // Assert
+        Expect(result.toString()).toBe(inp.every(eval(func)).toString());
+    }
+
+    @TestCase([], "x => x > 1")
+    @TestCase([0,1,2,3], "x => x > 1")
+    @TestCase([false, true, false], "x => x")
+    @TestCase([true, true, true], "x => x")
+    @Test("array.some")
+    public some<T>(inp: T[], func: string) {
+        // Make typechecker return array type
+        dummyType = dummyArrayType;
+        // Transpile
+        let lua = transpileString(`return [${inp.toString()}].some(${func}))`);
+
+        // Add library
+        lua = toStringDef + lualib + lua;
+
+        // Execute
+        let result = executeLua(lua);
+
+        // Assert
+        Expect(result.toString()).toBe(inp.some(eval(func)).toString());
+    }
+
+    @TestCase([], 1, 2)
     @TestCase([0,1,2,3], 1, 2)
     @TestCase([0,1,2,3], 1, 1)
     @TestCase([0,1,2,3], 1, -1)
@@ -52,6 +142,7 @@ export class LuaTests {
         Expect(result).toBe(inp.slice(start, end).toString());
     }
 
+    @TestCase([], 0, 0, 9, 10, 11)
     @TestCase([0,1,2,3], 1, 0, 9, 10, 11)
     @TestCase([0,1,2,3], 2, 2, 9, 10, 11)
     @TestCase([0,1,2,3], 4, 1, 8, 9)
@@ -80,6 +171,7 @@ export class LuaTests {
         Expect(result).toBe(inp.toString());
     }
 
+    @TestCase([], 1, 1)
     @TestCase([0,1,2,3], 1, 1)
     @TestCase([0,1,2,3], 10, 1)
     @TestCase([0,1,2,3], 4)
