summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--test/CMakeLists.txt9
-rw-r--r--test/afb-test/etc/aft-4a-alsacore-config.json2
-rw-r--r--test/afb-test/tests/alsacore_APITest.lua150
-rw-r--r--test/afb-test/tests/alsacore_BasicAPITest.lua6
4 files changed, 160 insertions, 7 deletions
diff --git a/test/CMakeLists.txt b/test/CMakeLists.txt
index 9df744e..fb9abf5 100644
--- a/test/CMakeLists.txt
+++ b/test/CMakeLists.txt
@@ -1,5 +1,5 @@
###########################################################################
-# Copyright 2018 IoT.bzh
+# Copyright 2015 - 2019 IoT.bzh
#
# author:Frédéric Marec <frederic.marec@iot.bzh>
#
@@ -19,4 +19,9 @@
# Include any directory not starting with _
# -----------------------------------------------------
-PROJECT_SUBDIRS_ADD(${PROJECT_SRC_DIR_PATTERN}) \ No newline at end of file
+PROJECT_SUBDIRS_ADD(${PROJECT_SRC_DIR_PATTERN})
+
+ADD_TEST(NAME AGL_4A_ALSA_CORE
+ WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR}
+ COMMAND afm-test ${CMAKE_BINARY_DIR}/package ${CMAKE_BINARY_DIR}/package-test
+) \ No newline at end of file
diff --git a/test/afb-test/etc/aft-4a-alsacore-config.json b/test/afb-test/etc/aft-4a-alsacore-config.json
index 32de328..d582082 100644
--- a/test/afb-test/etc/aft-4a-alsacore-config.json
+++ b/test/afb-test/etc/aft-4a-alsacore-config.json
@@ -16,7 +16,7 @@
"action": "lua://AFT#_launch_test",
"args": {
"trace": "alsacore",
- "files": ["alsacore_BasicAPITest.lua"]
+ "files": ["alsacore_BasicAPITest.lua", "alsacore_APITest.lua"]
}
}
} \ No newline at end of file
diff --git a/test/afb-test/tests/alsacore_APITest.lua b/test/afb-test/tests/alsacore_APITest.lua
new file mode 100644
index 0000000..d3401f3
--- /dev/null
+++ b/test/afb-test/tests/alsacore_APITest.lua
@@ -0,0 +1,150 @@
+--[[
+ Copyright (C) 2019 "IoT.bzh"
+ Author Frédéric Marec <frederic.marec@iot.bzh>
+
+ Licensed under the Apache License, Version 2.0 (the "License");
+ you may not use this file except in compliance with the License.
+ You may obtain a copy of the License at
+
+ http://www.apache.org/licenses/LICENSE-2.0
+
+ Unless required by applicable law or agreed to in writing, software
+ distributed under the License is distributed on an "AS IS" BASIS,
+ WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
+ See the License for the specific language governing permissions and
+ limitations under the License.
+
+
+ NOTE: strict mode: every global variables should be prefixed by '_'
+--]]
+
+local testPrefix ="alsacore_APITest_"
+local devid_keys = {"devid", "wrong_key", nil}
+local devid_values = {"hw:0", "wrong_value", 3.141592654, -275, nil}
+local sndname_keys = {"sndname", "wrong_key", nil}
+local sndname_values = {"HDA-Intel", "wrong_value", 3.141592654, -275, nil}
+local prefix_keys = {"prefix", "wrong_key", nil}
+local prefix_values = {"4a-hal-generic", "wrong_value", 3.141592654, -275, nil}
+local name_keys = { "name", "wrong_key", nil}
+local name_values = {"hal-4a-intel", "wrong_value", 3.141592654, -275, nil}
+local value_keys = { "value", "wrong_key", nil}
+local value_values = {10, "wrong_value", 3.141592654, -275, nil}
+local ctl_keys = { "ctl", "wrong_key", nil}
+local mode_keys = { "mode", "wrong_key", nil}
+local mode_values = {3, "wrong_value", 3.141592654, -275, nil}
+
+local function formatize (arg)
+ return tostring(arg):gsub("[^a-zA-Z0-9_]", "_")
+end
+
+for _, devid_key in pairs(devid_keys)
+do
+ for _, devid_value in pairs(devid_values)
+ do
+ local arg1 = formatize(devid_key).."_"
+ local arg2 = formatize(devid_value).."_"
+
+ -- This tests the 'ping' verb of the alsacore API
+ _AFT.testVerbStatusSuccess(testPrefix.."ping", "alsacore","ping", {}, nil, nil)
+
+ -- This tests the 'infoget' verb of the alsacore API
+ _AFT.testVerbStatusSuccess(testPrefix.."infoget", "alsacore","infoget", {}, nil, nil)
+
+ -- This tests the 'ctlget' verb of the alsacore API
+ _AFT.testVerbStatusSuccess(testPrefix.."ctlget", "alsacore","ctlget", {devid = "hw:0"}, nil, nil)
+ _AFT.testVerbStatusError(testPrefix.."ctlget", "alsacore","ctlget", {}, nil, nil)
+
+ -- This tests the 'ctlset' verb of the alsacore API
+ _AFT.testVerbStatusSuccess(testPrefix.."ctlset", "alsacore","ctlset", {devid = "hw:0"}, nil, nil)
+ _AFT.testVerbStatusError(testPrefix.."ctlset", "alsacore","ctlset", {}, nil, nil)
+
+ -- This tests the 'subscribe' verb of the alsacore API
+ _AFT.testVerbStatusSuccess(testPrefix.."subscribe", "alsacore","subscribe", {devid = "hw:0"}, nil, nil)
+ _AFT.testVerbStatusError(testPrefix.."subscribe", "alsacore","subscribe", {}, nil, nil)
+
+ for _, sndname_key in pairs(sndname_keys)
+ do
+ for _, sndname_value in pairs(sndname_values)
+ do
+ local arg3 = formatize(sndname_key).."_"
+ local arg4 = formatize(sndname_value).."_"
+
+ -- This tests the 'cardidget' verb of the alsacore API
+ _AFT.testVerbStatusSuccess(testPrefix.."cardidget", "alsacore","cardidget", {devid = "hw:0", sndname="HDA-Intel"}, nil, nil)
+ _AFT.testVerbStatusSuccess(testPrefix.."cardidget", "alsacore","cardidget", {sndname="HDA-Intel"}, nil, nil)
+ _AFT.testVerbStatusError(testPrefix.."cardidget", "alsacore","cardidget", {devid = "hw:0"}, nil, nil)
+
+ for _, name_key in pairs(name_keys)
+ do
+ for _, name_value in pairs(name_values)
+ do
+ for _, prefix_key in pairs(prefix_keys)
+ do
+ for _, prefix_value in pairs(prefix_values)
+ do
+ for _, value_key in pairs(value_keys)
+ do
+ for _, value_value in pairs(value_values)
+ do
+
+ local arg5 = formatize(name_key).."_"
+ local arg6 = formatize(name_value).."_"
+ local arg7 = formatize(prefix_key).."_"
+ local arg8 = formatize(prefix_value).."_"
+ local arg9 = formatize(value_key).."_"
+ local arg10 = formatize(value_value).."_"
+
+ -- This tests the 'halregister' verb of the alsacore API
+ _AFT.testVerbStatusSuccess(testPrefix.."halregister", "alsacore","halregister", {devid = "hw:0", prefix = "4a-hal-generic", name = "hal-4a-intel", value = 10, sndname="HDA-Intel"}, nil, nil)
+ _AFT.testVerbStatusSuccess(testPrefix.."halregister", "alsacore","halregister", {prefix = "4a-hal-generic", name = "hal-4a-intel", value = 10, sndname="HDA-Intel"}, nil, nil)
+ _AFT.testVerbStatusError(testPrefix.."halregister", "alsacore","halregister", {devid = "hw:0", prefix = "4a-hal-generic", name = "hal-4a-intel", value = 10}, nil, nil)
+ _AFT.testVerbStatusError(testPrefix.."halregister", "alsacore","halregister", {devid = "hw:0", name = "hal-4a-intel", value = 10, sndname="HDA-Intel"}, nil, nil)
+
+ -- This tests the 'hallist' verb of the alsacore API
+ _AFT.testVerbStatusSuccess(testPrefix.."hallist", "alsacore","hallist", {devid = "hw:0"}, nil, nil)
+ _AFT.testVerbStatusSuccess(testPrefix.."hallist", "alsacore","hallist", {}, nil, nil)
+
+ -- This tests the 'pcminfo' verb of the alsacore API
+ _AFT.testVerbStatusError(testPrefix.."pcminfo", "alsacore","pcminfo", {devid = "hw:0", name = "sysdefault:CARD=PCH"}, nil, nil)
+ _AFT.testVerbStatusError(testPrefix.."pcminfo", "alsacore","pcminfo", {name = "sysdefault:CARD=PCH"}, nil, nil)
+
+ -- This tests the 'ucmquery' verb of the alsacore API
+ _AFT.testVerbStatusError(testPrefix.."ucmquery", "alsacore","ucmquery", {devid = "hw:0", name = "sysdefault"}, nil, nil)
+
+ -- This tests the 'ucmset' verb of the alsacore API
+ _AFT.testVerbStatusError(testPrefix.."ucmset", "alsacore","ucmset", {devid = "hw:0", name = "sysdefault"}, nil, nil)
+
+ -- This tests the 'ucmget' verb of the alsacore API
+ _AFT.testVerbStatusError(testPrefix.."ucmget", "alsacore","ucmget", {devid = "hw:0", name = "sysdefault"}, nil, nil)
+
+ -- This tests the 'ucmreset' verb of the alsacore API
+ _AFT.testVerbStatusError(testPrefix.."ucmreset", "alsacore","ucmreset", {devid = "hw:0", name = "sysdefault"}, nil, nil)
+
+ -- This tests the 'ucmclose' verb of the alsacore API
+ _AFT.testVerbStatusError(testPrefix.."ucmclose", "alsacore","ucmclose", {devid = "hw:0", name = "sysdefault"}, nil, nil)
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ end
+ for _, ctl_key in pairs(ctl_keys)
+ do
+ for _, mode_key in pairs(mode_keys)
+ do
+ for _, mode_key in pairs(mode_values)
+ do
+ local arg5 = formatize(ctl_key).."_"
+ local arg7 = formatize(mode_key).."_"
+ local arg8 = formatize(mode_value).."_"
+
+ -- This tests the 'addcustomctl' verb of the alsacore API
+ _AFT.testVerbStatusError(testPrefix.."addcustomctl", "alsacore","addcustomctl", {devid = "hw:0", ctl = "test-addcustomctl", mode = 3}, nil, nil)
+
+ end
+ end
+ end
+end \ No newline at end of file
diff --git a/test/afb-test/tests/alsacore_BasicAPITest.lua b/test/afb-test/tests/alsacore_BasicAPITest.lua
index be8e1a7..835208b 100644
--- a/test/afb-test/tests/alsacore_BasicAPITest.lua
+++ b/test/afb-test/tests/alsacore_BasicAPITest.lua
@@ -1,5 +1,5 @@
--[[
- Copyright (C) 2018 "IoT.bzh"
+ Copyright (C) 2018 - 2019 "IoT.bzh"
Author Frédéric Marec <frederic.marec@iot.bzh>
Licensed under the Apache License, Version 2.0 (the "License");
@@ -73,6 +73,4 @@ _AFT.testVerbStatusError(testPrefix.."ucmreset", "alsacore","ucmreset", {devid =
_AFT.testVerbStatusError(testPrefix.."ucmclose", "alsacore","ucmclose", {devid = "hw:0", name = "sysdefault"}, nil, nil)
-- This tests the 'addcustomctl' verb of the alsacore API
-_AFT.testVerbStatusError(testPrefix.."addcustomctl", "alsacore","addcustomctl", {devid = "hw:0", ctl = "test-addcustomctl", mode = 3}, nil, nil)
-
-_AFT.exitAtEnd() \ No newline at end of file
+_AFT.testVerbStatusError(testPrefix.."addcustomctl", "alsacore","addcustomctl", {devid = "hw:0", ctl = "test-addcustomctl", mode = 3}, nil, nil) \ No newline at end of file