add unit tests

Author: emuell

.vscode/settings.json

@@ -0,0 +1,4 @@
+{
+    "Lua.workspace.library": ["./definitions"],
+    "Lua.runtime.plugin": "./definitions/plugin.lua"
+}

tests/README.md

@@ -0,0 +1,5 @@
+## Renoise API Tests
+
+This is a set of basic tests for the renoise Lua API, which need to be invoked within Renoise's scripting terminal.
+
+Use all.lua to run all of them in a batch.

tests/all.lua

@@ -0,0 +1,21 @@
+local failed_tests = 0
+
+-- run all tests except midi_actions which already executes a lot of sub tests
+local ignored_files = table.create{ "all.lua", "midi_actions.lua" }
+
+-- run all in current directory
+for _, file in pairs(os.filenames(os.currentdir(), { "*.lua" })) do
+  if ignored_files:find(file) == nil then
+    local file_chunk = assert(loadfile(os.currentdir() .. file, "t"))
+    print("Running '" .. file .. "' tests...")
+    local result, error = pcall(file_chunk)
+    if result == false then
+      print("\tTest FAILED:\n" .. error)
+      failed_tests = failed_tests + 1
+    end
+  end
+end
+
+assert(failed_tests == 0,
+  "One or more test failed. See output for details...")
+ 

tests/app_window.lua

@@ -0,0 +1,55 @@
+--[[--------------------------------------------------------------------------
+TestAppWindow.lua
+--------------------------------------------------------------------------]]--
+
+do
+
+  ----------------------------------------------------------------------------
+  -- tools
+  
+  local function assert_error(statement)
+    assert(pcall(statement) == false, "expected function error")
+  end
+  
+  
+  -- shortcuts
+  
+  local window = renoise.app().window
+  
+  
+  ----------------------------------------------------------------------------
+  -- upper frame
+  
+  local notification_count = 0
+  function disk_browser_is_visible_changed()
+    notification_count = notification_count + 1  
+  end
+  
+  window.disk_browser_is_visible = false
+  
+  window.disk_browser_is_visible_observable:add_notifier(
+    disk_browser_is_visible_changed)
+  
+  window.disk_browser_is_visible = true
+  assert(window.disk_browser_is_visible == true)
+  assert(notification_count == 1)
+  
+  window.disk_browser_is_visible = false
+  assert(window.disk_browser_is_visible == false)
+  assert(notification_count == 2)
+  
+  window.disk_browser_is_visible_observable:remove_notifier(
+    disk_browser_is_visible_changed)
+
+end
+
+
+------------------------------------------------------------------------------
+-- test finalizers
+
+collectgarbage()
+
+
+--[[--------------------------------------------------------------------------
+--------------------------------------------------------------------------]]--
+

tests/class.lua

@@ -0,0 +1,109 @@
+--[[--------------------------------------------------------------------------
+TestClass.lua
+--------------------------------------------------------------------------]]--
+
+-- GlobalBaseClass
+
+class "GlobalBaseClass"
+
+function GlobalBaseClass:__init(str)
+  self.__str = str
+end
+
+function GlobalBaseClass:__tostring()
+  return self.__str
+end
+
+
+-- GlobalMyClass
+
+class "GlobalMyClass"(GlobalBaseClass)
+
+function GlobalMyClass:__init(str)
+  GlobalBaseClass.__init(self, str)
+end
+
+
+-- namespace
+
+namespace = { }
+
+
+-- namespace.BaseClass
+
+class (namespace, "BaseClass")
+
+function namespace.BaseClass:__init(str)
+  self.__str = str
+end
+
+function namespace.BaseClass:__tostring()
+  return self.__str
+end
+
+
+-- namespace.MyClass(BaseClass)
+
+class (namespace, "MyClass")(namespace.BaseClass)
+ 
+function namespace.MyClass:__init(str)
+  namespace.BaseClass.__init(self, str)
+end
+
+
+------------------------------------------------------------------------------
+-- test
+
+do
+
+  -- tools
+  
+  local function assert_error(statement)
+    assert(pcall(statement) == false, "expected function error")
+  end
+  
+  
+  -- test class namespaces
+  
+  assert_error(function() 
+    assert(tostring(MyClass("Olla")) == "Olla") 
+  end)
+  
+  assert(tostring(namespace.MyClass("Olla")) == "Olla")
+  
+  assert(type(GlobalBaseClass) == "GlobalBaseClass class")
+  assert(type(GlobalBaseClass()) == "GlobalBaseClass")
+  
+  assert(type(GlobalMyClass) == "GlobalMyClass class")
+  assert(type(GlobalMyClass()) == "GlobalMyClass")
+  
+  assert(type(namespace.BaseClass) == "BaseClass class")
+  assert(type(namespace.BaseClass()) == "BaseClass")
+  
+  assert(type(namespace.MyClass) == "MyClass class")
+  assert(type(namespace.MyClass()) == "MyClass")
+  
+  assert(type(renoise.song()) == "Song")
+  assert(type(renoise.Song) == "Song class")
+  
+  -- rprint(namespace)
+  -- oprint(GlobalMyClass())
+  -- oprint(namespace.MyClass())
+
+
+  -- test class object comparison
+  
+  local obj1 = GlobalMyClass()
+  local obj2 = GlobalMyClass()
+  
+  assert(rawequal(obj1, obj1))
+  assert(not rawequal(obj1, obj2))
+
+  assert(rawequal(renoise.song(), renoise.song()))
+  assert(rawequal(renoise.song().tracks[1], renoise.song().tracks[1]))
+  assert(not rawequal(renoise.song().tracks[1], renoise.song().tracks[2]))
+  assert(not rawequal(renoise.song().tracks[1], renoise.song().instruments[1]))
+  assert(not rawequal(renoise.song().tracks[1], obj1))
+
+end
+