You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
141 lines
4.0 KiB
141 lines
4.0 KiB
--
|
|
-- Copyright 2013-2022 SipWise Team <development@sipwise.com>
|
|
--
|
|
-- This program is free software: you can redistribute it and/or modify
|
|
-- it under the terms of the GNU General Public License as published by
|
|
-- the Free Software Foundation, either version 3 of the License, or
|
|
-- (at your option) any later version.
|
|
--
|
|
-- This package is distributed in the hope that it will be useful,
|
|
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
-- GNU General Public License for more details.
|
|
--
|
|
-- You should have received a copy of the GNU General Public License
|
|
-- along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
-- .
|
|
-- On Debian systems, the complete text of the GNU General
|
|
-- Public License version 3 can be found in "/usr/share/common-licenses/GPL-3".
|
|
--
|
|
|
|
local lemock = require('lemock')
|
|
local lu = require('luaunit')
|
|
|
|
local ksrMock = require 'mocks.ksr'
|
|
KSR = ksrMock:new()
|
|
|
|
local mc
|
|
|
|
-- luacheck: ignore TestNGCPDlgList
|
|
TestNGCPDlgList = {} --class
|
|
|
|
function TestNGCPDlgList:setUp()
|
|
mc = lemock.controller()
|
|
self.fake_redis = mc:mock()
|
|
self.central = mc:mock()
|
|
self.pair = mc:mock()
|
|
|
|
package.loaded.redis = self.fake_redis
|
|
local NGCPDlgList = require 'ngcp.dlglist'
|
|
|
|
self.dlg = NGCPDlgList:new()
|
|
lu.assertEvalToTrue(self.dlg)
|
|
|
|
self.dlg.central.client = self.central;
|
|
self.dlg.pair.client = self.pair
|
|
end
|
|
|
|
function TestNGCPDlgList:test_exists_ok()
|
|
self.pair:ping() ;mc :returns(true)
|
|
self.pair:llen("list:fakeAAA") ;mc :returns(1)
|
|
|
|
mc:replay()
|
|
local ok = self.dlg:exists('fakeAAA')
|
|
mc:verify()
|
|
|
|
lu.assertTrue(ok)
|
|
end
|
|
|
|
function TestNGCPDlgList:test_exists_ko()
|
|
self.pair:ping() ;mc :returns(true)
|
|
self.pair:llen("list:fakeAAA") ;mc :returns(0)
|
|
|
|
mc:replay()
|
|
local ok = self.dlg:exists('fakeAAA')
|
|
mc:verify()
|
|
|
|
lu.assertFalse(ok)
|
|
end
|
|
|
|
function TestNGCPDlgList:test_add()
|
|
local key, callid = 'key1', 'fakeAAA'
|
|
self.central:ping() ;mc :returns(true)
|
|
self.central:rpush(key, callid) ;mc :returns(1)
|
|
self.pair:ping() ;mc :returns(true)
|
|
self.pair:lpush("list:"..callid, key) ;mc :returns(1)
|
|
|
|
mc:replay()
|
|
self.dlg:add(callid, key)
|
|
mc:verify()
|
|
end
|
|
|
|
function TestNGCPDlgList:test_del()
|
|
local key, callid = 'key1', 'fakeAAA'
|
|
self.pair:ping() ;mc :returns(true)
|
|
self.pair:lrem("list:"..callid, 0, key) ;mc :returns(1)
|
|
self.central:ping() ;mc :returns(true)
|
|
self.central:lrem(key, 0, callid) ;mc :returns(true)
|
|
self.central:llen(key) ;mc :returns(0)
|
|
self.central:del(key) ;mc :returns(true)
|
|
|
|
mc:replay()
|
|
self.dlg:del(callid, key)
|
|
mc:verify()
|
|
end
|
|
|
|
function TestNGCPDlgList:test_is_in_set()
|
|
local key, callid = 'key1', 'fakeAAA'
|
|
local content = {'key0', 'key1', 'key2'}
|
|
self.pair:ping() ;mc :returns(true)
|
|
self.pair:lrange("list:"..callid, 0, -1) ;mc :returns(content)
|
|
self.pair:ping() ;mc :returns(true)
|
|
self.pair:lrange("list:"..callid, 0, -1) ;mc :returns(content)
|
|
|
|
mc:replay()
|
|
local ok = self.dlg:is_in_set(callid, key)
|
|
local ko = self.dlg:is_in_set(callid, 'key3')
|
|
mc:verify()
|
|
|
|
lu.assertTrue(ok)
|
|
lu.assertFalse(ko)
|
|
end
|
|
|
|
function TestNGCPDlgList:test_destroy_empty()
|
|
local callid = 'fakeAAA'
|
|
self.pair:ping() ;mc :returns(true)
|
|
self.pair:lpop("list:"..callid) ;mc :returns(nil)
|
|
self.pair:del("list:"..callid) ;mc :returns(true)
|
|
|
|
mc:replay()
|
|
lu.assertError(self.dlg.destroy, self.dlg, callid)
|
|
mc:verify()
|
|
end
|
|
|
|
function TestNGCPDlgList:test_destroy()
|
|
local callid = 'fakeAAA'
|
|
self.pair:ping() ;mc :returns(true)
|
|
self.pair:lpop("list:"..callid) ;mc :returns('key1')
|
|
self.central:ping() ;mc :returns(true)
|
|
self.central:lrem('key1', 0, callid) ;mc :returns(true)
|
|
self.central:llen('key1') ;mc :returns(1)
|
|
self.pair:lpop("list:"..callid) ;mc :returns('key2')
|
|
self.central:lrem('key2', 0, callid) ;mc :returns(true)
|
|
self.central:llen('key2') ;mc :returns(1)
|
|
self.pair:lpop("list:"..callid) ;mc :returns(nil)
|
|
|
|
mc:replay()
|
|
self.dlg:destroy(callid)
|
|
mc:verify()
|
|
end
|
|
-- class
|