aboutsummaryrefslogtreecommitdiffstats
path: root/test/afb-test/tests
diff options
context:
space:
mode:
Diffstat (limited to 'test/afb-test/tests')
-rw-r--r--test/afb-test/tests/CMakeLists.txt31
-rw-r--r--test/afb-test/tests/alsacore_BasicAPITest.lua78
2 files changed, 109 insertions, 0 deletions
diff --git a/test/afb-test/tests/CMakeLists.txt b/test/afb-test/tests/CMakeLists.txt
new file mode 100644
index 0000000..ec630aa
--- /dev/null
+++ b/test/afb-test/tests/CMakeLists.txt
@@ -0,0 +1,31 @@
+###########################################################################
+# Copyright 2018 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.
+###########################################################################
+
+
+##################################################
+# 4a-alsa-core Lua Scripts
+##################################################
+PROJECT_TARGET_ADD(test-files)
+
+ file(GLOB LUA_FILES "*.lua" "*.sh")
+ add_input_files("${LUA_FILES}")
+
+ SET_TARGET_PROPERTIES(${TARGET_NAME} PROPERTIES
+ LABELS "TEST-DATA"
+ OUTPUT_NAME ${TARGET_NAME}
+ ) \ No newline at end of file
diff --git a/test/afb-test/tests/alsacore_BasicAPITest.lua b/test/afb-test/tests/alsacore_BasicAPITest.lua
new file mode 100644
index 0000000..be8e1a7
--- /dev/null
+++ b/test/afb-test/tests/alsacore_BasicAPITest.lua
@@ -0,0 +1,78 @@
+--[[
+ Copyright (C) 2018 "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_BasicAPITest_"
+
+-- 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)
+
+-- 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)
+
+-- 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)
+
+-- 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