Lua: Add tests

Change-Id: Iac2a47498b9463d647ef131a908fd6b851295993
Reviewed-by: David Schulz <david.schulz@qt.io>

11 files changed, 634 insertions, 0 deletions

diff --git a/qt_attributions.json b/qt_attributions.json
index 4708c835f8..56e4fe0595 100644
--- a/qt_attributions.json
+++ b/qt_attributions.json
@@ -611,5 +611,18 @@
         "License": "MIT License",
         "LicenseFile": "src/plugins/lua/bindings/ASYNC-LICENSE.txt",
         "Copyright": "Copyright (c) 2008 Paul Evans"
+    },
+    {
+        "Id": "kikito/inspect.lua",
+        "Name": "kikito/inspect.lua",
+        "QDocModule": "qtcreator",
+        "QtParts": ["tools"],
+        "QtUsage": "Used for pretty printing from Lua scripts.",
+        "Path": "src/plugins/luatests/luatests",
+        "Description": "inspect.lua is a library for pretty printing complex objects in Lua.",
+        "Homepage": "https://github.com/kikito/inspect.lua",
+        "License": "MIT License",
+        "LicenseFile": "src/plugins/luatests/luatests/INSPECT-LICENSE.txt",
+        "Copyright": "Copyright (c) 2022 Enrique García Cota"
     }
 ]
diff --git a/src/plugins/CMakeLists.txt b/src/plugins/CMakeLists.txt
index 3090af3252..605bdc3931 100644
--- a/src/plugins/CMakeLists.txt
+++ b/src/plugins/CMakeLists.txt
@@ -118,6 +118,7 @@ endif()
 add_subdirectory(qnx)
 add_subdirectory(mcusupport)
 add_subdirectory(qtapplicationmanager)
+add_subdirectory(luatests)
 add_subdirectory(tellajoke)
 add_subdirectory(lualsp)
 add_subdirectory(luatemplates)
diff --git a/src/plugins/luatests/CMakeLists.txt b/src/plugins/luatests/CMakeLists.txt
new file mode 100644
index 0000000000..80e03b66ca
--- /dev/null
+++ b/src/plugins/luatests/CMakeLists.txt
@@ -0,0 +1,10 @@
+add_qtc_lua_plugin(luatests
+    SOURCES
+        luatests/luatests.lua
+        luatests/tests.lua
+        luatests/inspect.lua
+        luatests/qtctest.lua
+        luatests/tst_aspectcontainer.lua
+        luatests/tst_fetch.lua
+        luatests/tst_utils.lua
+)
diff --git a/src/plugins/luatests/luatests/INSPECT-LICENSE.txt b/src/plugins/luatests/luatests/INSPECT-LICENSE.txt
new file mode 100644
index 0000000000..6149bd7823
--- /dev/null
+++ b/src/plugins/luatests/luatests/INSPECT-LICENSE.txt
@@ -0,0 +1,22 @@
+MIT LICENSE
+
+Copyright (c) 2022 Enrique García Cota
+
+Permission is hereby granted, free of charge, to any person obtaining a
+copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
diff --git a/src/plugins/luatests/luatests/inspect.lua b/src/plugins/luatests/luatests/inspect.lua
new file mode 100644
index 0000000000..9900a0b81b
--- /dev/null
+++ b/src/plugins/luatests/luatests/inspect.lua
@@ -0,0 +1,371 @@
+local _tl_compat; if (tonumber((_VERSION or ''):match('[%d.]*$')) or 0) < 5.3 then local p, m = pcall(require, 'compat53.module'); if p then _tl_compat = m end end; local math = _tl_compat and _tl_compat.math or math; local string = _tl_compat and _tl_compat.string or string; local table = _tl_compat and _tl_compat.table or table
+local inspect = {Options = {}, }
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+inspect._VERSION = 'inspect.lua 3.1.0'
+inspect._URL = 'http://github.com/kikito/inspect.lua'
+inspect._DESCRIPTION = 'human-readable representations of tables'
+inspect._LICENSE = [[
+  MIT LICENSE
+
+  Copyright (c) 2022 Enrique García Cota
+
+  Permission is hereby granted, free of charge, to any person obtaining a
+  copy of this software and associated documentation files (the
+  "Software"), to deal in the Software without restriction, including
+  without limitation the rights to use, copy, modify, merge, publish,
+  distribute, sublicense, and/or sell copies of the Software, and to
+  permit persons to whom the Software is furnished to do so, subject to
+  the following conditions:
+
+  The above copyright notice and this permission notice shall be included
+  in all copies or substantial portions of the Software.
+
+  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
+  OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+]]
+inspect.KEY = setmetatable({}, { __tostring = function() return 'inspect.KEY' end })
+inspect.METATABLE = setmetatable({}, { __tostring = function() return 'inspect.METATABLE' end })
+
+local tostring = tostring
+local rep = string.rep
+local match = string.match
+local char = string.char
+local gsub = string.gsub
+local fmt = string.format
+
+local _rawget
+if rawget then
+   _rawget = rawget
+else
+   _rawget = function(t, k) return t[k] end
+end
+
+local function rawpairs(t)
+   return next, t, nil
+end
+
+
+
+local function smartQuote(str)
+   if match(str, '"') and not match(str, "'") then
+      return "'" .. str .. "'"
+   end
+   return '"' .. gsub(str, '"', '\\"') .. '"'
+end
+
+
+local shortControlCharEscapes = {
+   ["\a"] = "\\a", ["\b"] = "\\b", ["\f"] = "\\f", ["\n"] = "\\n",
+   ["\r"] = "\\r", ["\t"] = "\\t", ["\v"] = "\\v", ["\127"] = "\\127",
+}
+local longControlCharEscapes = { ["\127"] = "\127" }
+for i = 0, 31 do
+   local ch = char(i)
+   if not shortControlCharEscapes[ch] then
+      shortControlCharEscapes[ch] = "\\" .. i
+      longControlCharEscapes[ch] = fmt("\\%03d", i)
+   end
+end
+
+local function escape(str)
+   return (gsub(gsub(gsub(str, "\\", "\\\\"),
+   "(%c)%f[0-9]", longControlCharEscapes),
+   "%c", shortControlCharEscapes))
+end
+
+local luaKeywords = {
+   ['and'] = true,
+   ['break'] = true,
+   ['do'] = true,
+   ['else'] = true,
+   ['elseif'] = true,
+   ['end'] = true,
+   ['false'] = true,
+   ['for'] = true,
+   ['function'] = true,
+   ['goto'] = true,
+   ['if'] = true,
+   ['in'] = true,
+   ['local'] = true,
+   ['nil'] = true,
+   ['not'] = true,
+   ['or'] = true,
+   ['repeat'] = true,
+   ['return'] = true,
+   ['then'] = true,
+   ['true'] = true,
+   ['until'] = true,
+   ['while'] = true,
+}
+
+local function isIdentifier(str)
+   return type(str) == "string" and
+   not not str:match("^[_%a][_%a%d]*$") and
+   not luaKeywords[str]
+end
+
+local flr = math.floor
+local function isSequenceKey(k, sequenceLength)
+   return type(k) == "number" and
+   flr(k) == k and
+   1 <= (k) and
+   k <= sequenceLength
+end
+
+local defaultTypeOrders = {
+   ['number'] = 1, ['boolean'] = 2, ['string'] = 3, ['table'] = 4,
+   ['function'] = 5, ['userdata'] = 6, ['thread'] = 7,
+}
+
+local function sortKeys(a, b)
+   local ta, tb = type(a), type(b)
+
+
+   if ta == tb and (ta == 'string' or ta == 'number') then
+      return (a) < (b)
+   end
+
+   local dta = defaultTypeOrders[ta] or 100
+   local dtb = defaultTypeOrders[tb] or 100
+
+
+   return dta == dtb and ta < tb or dta < dtb
+end
+
+local function getKeys(t)
+
+   local seqLen = 1
+   while _rawget(t, seqLen) ~= nil do
+      seqLen = seqLen + 1
+   end
+   seqLen = seqLen - 1
+
+   local keys, keysLen = {}, 0
+   for k in rawpairs(t) do
+      if not isSequenceKey(k, seqLen) then
+         keysLen = keysLen + 1
+         keys[keysLen] = k
+      end
+   end
+   table.sort(keys, sortKeys)
+   return keys, keysLen, seqLen
+end
+
+local function countCycles(x, cycles)
+   if type(x) == "table" then
+      if cycles[x] then
+         cycles[x] = cycles[x] + 1
+      else
+         cycles[x] = 1
+         for k, v in rawpairs(x) do
+            countCycles(k, cycles)
+            countCycles(v, cycles)
+         end
+         countCycles(getmetatable(x), cycles)
+      end
+   end
+end
+
+local function makePath(path, a, b)
+   local newPath = {}
+   local len = #path
+   for i = 1, len do newPath[i] = path[i] end
+
+   newPath[len + 1] = a
+   newPath[len + 2] = b
+
+   return newPath
+end
+
+
+local function processRecursive(process,
+   item,
+   path,
+   visited)
+   if item == nil then return nil end
+   if visited[item] then return visited[item] end
+
+   local processed = process(item, path)
+   if type(processed) == "table" then
+      local processedCopy = {}
+      visited[item] = processedCopy
+      local processedKey
+
+      for k, v in rawpairs(processed) do
+         processedKey = processRecursive(process, k, makePath(path, k, inspect.KEY), visited)
+         if processedKey ~= nil then
+            processedCopy[processedKey] = processRecursive(process, v, makePath(path, processedKey), visited)
+         end
+      end
+
+      local mt = processRecursive(process, getmetatable(processed), makePath(path, inspect.METATABLE), visited)
+      if type(mt) ~= 'table' then mt = nil end
+      setmetatable(processedCopy, mt)
+      processed = processedCopy
+   end
+   return processed
+end
+
+local function puts(buf, str)
+   buf.n = buf.n + 1
+   buf[buf.n] = str
+end
+
+
+
+local Inspector = {}
+
+
+
+
+
+
+
+
+
+
+local Inspector_mt = { __index = Inspector }
+
+local function tabify(inspector)
+   puts(inspector.buf, inspector.newline .. rep(inspector.indent, inspector.level))
+end
+
+function Inspector:getId(v)
+   local id = self.ids[v]
+   local ids = self.ids
+   if not id then
+      local tv = type(v)
+      id = (ids[tv] or 0) + 1
+      ids[v], ids[tv] = id, id
+   end
+   return tostring(id)
+end
+
+function Inspector:putValue(v)
+   local buf = self.buf
+   local tv = type(v)
+   if tv == 'string' then
+      puts(buf, smartQuote(escape(v)))
+   elseif tv == 'number' or tv == 'boolean' or tv == 'nil' or
+      tv == 'cdata' or tv == 'ctype' then
+      puts(buf, tostring(v))
+   elseif tv == 'table' and not self.ids[v] then
+      local t = v
+
+      if t == inspect.KEY or t == inspect.METATABLE then
+         puts(buf, tostring(t))
+      elseif self.level >= self.depth then
+         puts(buf, '{...}')
+      else
+         if self.cycles[t] > 1 then puts(buf, fmt('<%d>', self:getId(t))) end
+
+         local keys, keysLen, seqLen = getKeys(t)
+
+         puts(buf, '{')
+         self.level = self.level + 1
+
+         for i = 1, seqLen + keysLen do
+            if i > 1 then puts(buf, ',') end
+            if i <= seqLen then
+               puts(buf, ' ')
+               self:putValue(t[i])
+            else
+               local k = keys[i - seqLen]
+               tabify(self)
+               if isIdentifier(k) then
+                  puts(buf, k)
+               else
+                  puts(buf, "[")
+                  self:putValue(k)
+                  puts(buf, "]")
+               end
+               puts(buf, ' = ')
+               self:putValue(t[k])
+            end
+         end
+
+         local mt = getmetatable(t)
+         if type(mt) == 'table' then
+            if seqLen + keysLen > 0 then puts(buf, ',') end
+            tabify(self)
+            puts(buf, '<metatable> = ')
+            self:putValue(mt)
+         end
+
+         self.level = self.level - 1
+
+         if keysLen > 0 or type(mt) == 'table' then
+            tabify(self)
+         elseif seqLen > 0 then
+            puts(buf, ' ')
+         end
+
+         puts(buf, '}')
+      end
+
+   else
+      puts(buf, fmt('<%s %d>', tv, self:getId(v)))
+   end
+end
+
+
+
+
+function inspect.inspect(root, options)
+   options = options or {}
+
+   local depth = options.depth or (math.huge)
+   local newline = options.newline or '\n'
+   local indent = options.indent or '  '
+   local process = options.process
+
+   if process then
+      root = processRecursive(process, root, {}, {})
+   end
+
+   local cycles = {}
+   countCycles(root, cycles)
+
+   local inspector = setmetatable({
+      buf = { n = 0 },
+      ids = {},
+      cycles = cycles,
+      depth = depth,
+      level = 0,
+      newline = newline,
+      indent = indent,
+   }, Inspector_mt)
+
+   inspector:putValue(root)
+
+   return table.concat(inspector.buf)
+end
+
+setmetatable(inspect, {
+   __call = function(_, root, options)
+      return inspect.inspect(root, options)
+   end,
+})
+
+return inspect
diff --git a/src/plugins/luatests/luatests/luatests.lua b/src/plugins/luatests/luatests/luatests.lua
new file mode 100644
index 0000000000..db0fb7f0c6
--- /dev/null
+++ b/src/plugins/luatests/luatests/luatests.lua
@@ -0,0 +1,20 @@
+-- Copyright (C) 2024 The Qt Company Ltd.
+-- SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
+return {
+    Name = "LuaTests",
+    Version = "1.0.0",
+    CompatVersion = "1.0.0",
+    Vendor = "The Qt Company",
+    Category = "Tests",
+    DisabledByDefault = true,
+    Experimental = true,
+    Description = "This plugin tests the Lua API.",
+    LongDescription = [[
+        It has tests for (almost) all functionality exposed by the API.
+    ]],
+    Dependencies = {
+        { Name = "Core", Version = "13.0.82", Required = true },
+        { Name = "Lua",  Version = "13.0.82", Required = true }
+    },
+    setup = function() require 'tests'.setup() end,
+} --[[@as QtcPlugin]]
diff --git a/src/plugins/luatests/luatests/qtctest.lua b/src/plugins/luatests/luatests/qtctest.lua
new file mode 100644
index 0000000000..3914979d55
--- /dev/null
+++ b/src/plugins/luatests/luatests/qtctest.lua
@@ -0,0 +1,32 @@
+-- Copyright (C) 2024 The Qt Company Ltd.
+-- SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
+local inspect = require('inspect')
+
+local function traceback()
+    local result = ""
+    local level = 1
+    while true do
+        local info = debug.getinfo(level, "Sl")
+        if not info then break end
+        if info.what ~= "C" then
+            ---Get the last part of the path in info.source
+            local fileName = info.source:match("^.+/(.+)$")
+            result = result .. (string.format("  %s:%d\n", fileName, info.currentline))
+        end
+        level = level + 1
+    end
+    return result
+end
+
+local function compare(actual, expected)
+    if (actual == expected) then
+        return true
+    end
+
+    error("Compared values were not the same.\n  Actual: " ..
+        inspect(actual) .. "\n  Expected: " .. inspect(expected) .. "\nTrace:\n" .. traceback())
+end
+
+return {
+    compare = compare,
+}
diff --git a/src/plugins/luatests/luatests/tests.lua b/src/plugins/luatests/luatests/tests.lua
new file mode 100644
index 0000000000..fb246ae94d
--- /dev/null
+++ b/src/plugins/luatests/luatests/tests.lua
@@ -0,0 +1,69 @@
+-- Copyright (C) 2024 The Qt Company Ltd.
+-- SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
+local Utils = require("Utils")
+local Action = require("Action")
+local a = require("async")
+
+
+local function script_path()
+    local str = debug.getinfo(2, "S").source:sub(2)
+    return str
+end
+
+local function printResults(results)
+    print("Passed:", results.passed)
+    print("Failed:", results.failed)
+    for index, value in ipairs(results.failedTests) do
+        print("Failed test:", value.name, value.error)
+    end
+end
+
+local function runTest(testFile, results)
+    local testScript, err = loadfile(testFile:nativePath())
+    if not testScript then
+        print("Failed to load test:", testFile, err)
+        return
+    end
+
+    local ok, testFunctions = pcall(testScript)
+    if not ok then
+        print("Failed to run test:", testFile, testFunctions)
+        return
+    end
+
+    for k, v in pairs(testFunctions) do
+        print("* " .. testFile:fileName() .. " : " .. k)
+        local ok, res_or_error = pcall(v)
+
+        if ok then
+            results.passed = results.passed + 1
+        else
+            results.failed = results.failed + 1
+            table.insert(results.failedTests, { name = testFile:fileName() .. ":" .. k, error = res_or_error })
+        end
+    end
+end
+
+local function runTests()
+    local results = {
+        passed = 0,
+        failed = 0,
+        failedTests = {}
+    }
+
+    local testDir = Utils.FilePath.fromUserInput(script_path()):parentDir()
+    local tests = a.wait(testDir:dirEntries({ nameFilters = { "tst_*.lua" } }))
+    for _, testFile in ipairs(tests) do
+        runTest(testFile, results)
+    end
+    printResults(results)
+end
+
+local function setup()
+    Action.create("LuaTests.run", {
+        text = "Run lua tests",
+        onTrigger = function() a.sync(runTests)() end,
+    })
+end
+
+return { setup = setup }
diff --git a/src/plugins/luatests/luatests/tst_aspectcontainer.lua b/src/plugins/luatests/luatests/tst_aspectcontainer.lua
new file mode 100644
index 0000000000..f948583e1c
--- /dev/null
+++ b/src/plugins/luatests/luatests/tst_aspectcontainer.lua
@@ -0,0 +1,32 @@
+-- Copyright (C) 2024 The Qt Company Ltd.
+-- SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
+T = require("qtctest")
+local S = require('Settings')
+
+local function testAutoApply()
+    local container = S.AspectContainer.create({ autoApply = true })
+
+    container.test = S.BoolAspect.create({ defaultValue = true })
+    T.compare(container.test.value, true)
+    container.test.volatileValue = false
+    T.compare(container.test.volatileValue, false)
+    T.compare(container.test.value, false)
+end
+
+local function testNoAutoApply()
+    local container = S.AspectContainer.create({ autoApply = false })
+
+    container.test = S.BoolAspect.create({ defaultValue = true })
+    T.compare(container.test.value, true)
+    container.test.volatileValue = false
+    T.compare(container.test.volatileValue, false)
+    T.compare(container.test.value, true)
+    container:apply()
+    T.compare(container.test.volatileValue, false)
+    T.compare(container.test.value, false)
+end
+
+return {
+    testAutoApply = testAutoApply,
+    testNoAutoApply = testNoAutoApply,
+}
diff --git a/src/plugins/luatests/luatests/tst_fetch.lua b/src/plugins/luatests/luatests/tst_fetch.lua
new file mode 100644
index 0000000000..55a8d1773b
--- /dev/null
+++ b/src/plugins/luatests/luatests/tst_fetch.lua
@@ -0,0 +1,38 @@
+-- Copyright (C) 2024 The Qt Company Ltd.
+-- SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
+local T = require("qtctest")
+local fetch = require("Fetch").fetch
+local inspect = require('inspect')
+local a = require("async")
+local string = require("string")
+
+local function testFetch()
+    local r = a.wait(fetch({ url = "https://dummyjson.com/products", convertToTable = true }))
+    local y = a.wait(fetch({ url = "https://dummyjson.com/products", convertToTable = true }))
+    T.compare(type(r), "table")
+    T.compare(type(y), "table")
+end
+
+local function testGoogle()
+    local r = a.wait(fetch({ url = "https://www.google.com" }))
+    T.compare(r.error, 0)
+    print(r)
+end
+
+local function fetchTwo()
+    local r = a.wait_all {
+        fetch({ url = "https://dummyjson.com/products", convertToTable = true }),
+        fetch({ url = "https://www.google.com" }),
+    }
+
+    T.compare(type(r), "table")
+    T.compare(#r, 2)
+    T.compare(type(r[1]), "table")
+    T.compare(r[2].error, 0)
+end
+
+return {
+    testFetch = testFetch,
+    testGoogle = testGoogle,
+    testFetchTwo = fetchTwo
+}
diff --git a/src/plugins/luatests/luatests/tst_utils.lua b/src/plugins/luatests/luatests/tst_utils.lua
new file mode 100644
index 0000000000..c6bbfcf084
--- /dev/null
+++ b/src/plugins/luatests/luatests/tst_utils.lua
@@ -0,0 +1,26 @@
+-- Copyright (C) 2024 The Qt Company Ltd.
+-- SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0
+local T = require("qtctest")
+local a = require('async')
+local Utils = require('Utils')
+local Qt = require('Qt')
+
+local function testDirEntries()
+    local u = require("Utils")
+    local d = u.FilePath.currentWorkingPath()
+    print("CWD:", d)
+    local result = a.wait(d:dirEntries({}))
+    print("RESULT:", result, #result)
+end
+
+local function testSearchInPath()
+    local u = require("Utils")
+    local d = u.FilePath.fromUserInput('hostname')
+    local result = a.wait(d:searchInPath())
+    print("Hostname found at:", result)
+end
+
+return {
+    testDirEntries = testDirEntries,
+    testSearchInPath = testSearchInPath,
+}