Added memory test

Author: stein197

CHANGELOG.MD

@@ -1,4 +1,9 @@
 # CHANGELOG
+## 3.0.1 - 2021-06-15
+### Added
+- Memory usage test
+### Changed
+- Object instantiation. Now object prototypes are saved in `__meta.__proto` entry which reduces the amount of memory usage
 ## 3.0.0 - 2021-06-13
 ### Added
 - Namespace support

README.MD

@@ -286,3 +286,4 @@ There is also special Class API. This package defines own class `Class` which ca
 
 ## Tests
 To run tests, call from terminal `.\test.bat` for Windows and `./test.sh` for Linux
+You can pass an argument to tests to define memory test iterations count like this - `test 1024`

TODO.MD

@@ -12,5 +12,5 @@
 - [x] Add ability to call methods from inside constructor
 - [x] Add operator overloading methods
 - [ ] Add `__newindex`, `__gc`, `__mode`, `__ipairs` overloading
-- [ ] Important - save instance prototype to parent.__meta.__proto - it'll decrease the number of tables in memory
+- [x] Important - save instance prototype to parent.__meta.__proto - it'll decrease the number of tables in memory
 - [ ] Merge `Object():clone()` with `table_clone()` (to remove duplicate code)

src/class.lua

@@ -206,36 +206,38 @@ local function type_descriptor_handler(descriptor)
 	setmetatable(descriptor, {
 		__index = __meta.lastType;
 		__call = function (self, ...)
-			local parent = self
-			local object = setmetatable({}, {
-				__index = parent,
-				__newindex = parent["[]"] or parent.__newindex,
-				__call = parent["()"] or parent.__call,
-				__tostring = parent.__tostring,
-				__concat = parent[".."] or parent.__concat,
-				__metatable = parent.__metatable,
-				__mode = parent.__mode,
-				__gc = parent.__gc,
-				__len = parent["#"] or parent.__len,
-				__pairs = parent.__pairs,
-				__ipairs = parent.__ipairs,
-				__add = parent["+"] or parent.__add,
-				__sub = parent["-"] or parent.__sub,
-				__mul = parent["*"] or parent.__mul,
-				__div = parent["/"] or parent.__div,
-				__pow = parent["^"] or parent.__pow,
-				__mod = parent["%"] or parent.__mod,
-				__idiv = parent["//"] or parent.__idiv,
-				__eq = parent["=="] or parent.__eq,
-				__lt = parent["<"] or parent.__lt,
-				__le = parent["<="] or parent.__le,
-				__band = parent["&"] or parent.__band,
-				__bor = parent["|"] or parent.__bor,
-				__bxor = parent["~"] or parent.__bxor,
-				__bnot = parent["not"] or parent.__bnot,
-				__shl = parent["<<"] or parent.__shl,
-				__shr = parent[">>"] or parent.__shr
-			})
+			if not self.__meta.__proto then
+				self.__meta.__proto = {
+					__index = self,
+					__newindex = self["[]"] or self.__newindex,
+					__call = self["()"] or self.__call,
+					__tostring = self.__tostring,
+					__concat = self[".."] or self.__concat,
+					__metatable = self.__metatable,
+					__mode = self.__mode,
+					__gc = self.__gc,
+					__len = self["#"] or self.__len,
+					__pairs = self.__pairs,
+					__ipairs = self.__ipairs,
+					__add = self["+"] or self.__add,
+					__sub = self["-"] or self.__sub,
+					__mul = self["*"] or self.__mul,
+					__div = self["/"] or self.__div,
+					__pow = self["^"] or self.__pow,
+					__mod = self["%"] or self.__mod,
+					__idiv = self["//"] or self.__idiv,
+					__eq = self["=="] or self.__eq,
+					__lt = self["<"] or self.__lt,
+					__le = self["<="] or self.__le,
+					__band = self["&"] or self.__band,
+					__bor = self["|"] or self.__bor,
+					__bxor = self["~"] or self.__bxor,
+					__bnot = self["not"] or self.__bnot,
+					__shl = self["<<"] or self.__shl,
+					__shr = self[">>"] or self.__shr
+				}
+			end
+			local object = setmetatable({}, self.__meta.__proto)
 			if descriptor.constructor then
 				descriptor.constructor(object, table.unpack({...}))
 			end

test.bat

@@ -4,4 +4,4 @@ if errorlevel 1 (
 	echo Lua interpreter is not installed
 	exit /b
 )
-cls & lua test\class.lua --verbose
+cls & lua test\class.lua --verbose & lua test\memory.lua %1

test.sh

@@ -3,4 +3,4 @@ then
 	echo "Lua is not installed"
 	exit
 fi
-clear & lua test/class.lua --verbose
+clear & lua test/class.lua --verbose & lua test/memory.lua $1

test/memory.lua

@@ -0,0 +1,37 @@
+dofile 'src/class.lua'
+local initialSize = collectgarbage("count")
+local cache = {}
+class 'TestingMemoryUsage' {
+	__newindex = function () end;
+	__call = function () end;
+	__tostring = function () end;
+	__concat = function () end;
+	__metatable = function () end;
+	__mode = function () end;
+	__gc = function () end;
+	__len = function () end;
+	__pairs = function () end;
+	__ipairs = function () end;
+	__add = function () end;
+	__sub = function () end;
+	__mul = function () end;
+	__div = function () end;
+	__pow = function () end;
+	__mod = function () end;
+	__idiv = function () end;
+	__eq = function () end;
+	__lt = function () end;
+	__le = function () end;
+	__band = function () end;
+	__bor = function () end;
+	__bxor = function () end;
+	__bnot = function () end;
+	__shl = function () end;
+	__shr = function () end;
+}
+local iterationsCount = tonumber(arg[1]) or 1000
+for i = 0, iterationsCount do
+	table.insert(cache, TestingMemoryUsage())
+end
+print("Memory test iterations count: "..iterationsCount)
+print("Memory usage: "..(collectgarbage("count") - initialSize).."KB")