|
|
@ -24,30 +24,166 @@ TestSRMock = {}
|
|
|
|
assertTrue(self.sr.pv)
|
|
|
|
assertTrue(self.sr.pv)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_sets()
|
|
|
|
function TestSRMock:test_clean_id()
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv._clean_id('s:u25'), 'u25')
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv._clean_id('i:u25'), 'u25')
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv._clean_id('u25'), 'u25')
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_is_xavp_simple()
|
|
|
|
|
|
|
|
local result
|
|
|
|
|
|
|
|
result = self.sr.pv._is_xavp("$xavp(id=>key)")
|
|
|
|
|
|
|
|
assertTrue(result)
|
|
|
|
|
|
|
|
assertEquals(result.type, 'xavp')
|
|
|
|
|
|
|
|
assertEquals(result.id, 'id')
|
|
|
|
|
|
|
|
assertEquals(result.key, 'key')
|
|
|
|
|
|
|
|
assertFalse(result.clean)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_is_xavp_complex()
|
|
|
|
|
|
|
|
local result
|
|
|
|
|
|
|
|
result = self.sr.pv._is_xavp("$xavp(id1[8]=>key3g2)")
|
|
|
|
|
|
|
|
assertTrue(result)
|
|
|
|
|
|
|
|
assertEquals(result.type, 'xavp')
|
|
|
|
|
|
|
|
assertEquals(result.id, 'id1')
|
|
|
|
|
|
|
|
assertEquals(result.key, 'key3g2')
|
|
|
|
|
|
|
|
assertEquals(result.indx, 8)
|
|
|
|
|
|
|
|
assertFalse(result.clean)
|
|
|
|
|
|
|
|
result = self.sr.pv._is_xavp("$xavp(id2g1f[9]=>keygg33_f)")
|
|
|
|
|
|
|
|
assertTrue(result)
|
|
|
|
|
|
|
|
assertEquals(result.type, 'xavp')
|
|
|
|
|
|
|
|
assertEquals(result.id, 'id2g1f')
|
|
|
|
|
|
|
|
assertEquals(result.key, 'keygg33_f')
|
|
|
|
|
|
|
|
assertEquals(result.indx, 9)
|
|
|
|
|
|
|
|
assertFalse(result.clean)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_is_avp_simple()
|
|
|
|
|
|
|
|
local result
|
|
|
|
|
|
|
|
result = self.sr.pv._is_avp("$avp(id2_f)")
|
|
|
|
|
|
|
|
assertTrue(result)
|
|
|
|
|
|
|
|
assertEquals(result.type, 'avp')
|
|
|
|
|
|
|
|
--print(table.tostring(result))
|
|
|
|
|
|
|
|
assertEquals(result.id, 'id2_f')
|
|
|
|
|
|
|
|
assertFalse(result.clean)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_is_avp_simple1()
|
|
|
|
|
|
|
|
local result
|
|
|
|
|
|
|
|
result = self.sr.pv._is_avp("$(avp(s:id))")
|
|
|
|
|
|
|
|
assertTrue(result)
|
|
|
|
|
|
|
|
assertEquals(result.type, 'avp')
|
|
|
|
|
|
|
|
--print(table.tostring(result))
|
|
|
|
|
|
|
|
assertEquals(result.id, 'id')
|
|
|
|
|
|
|
|
assertFalse(result.clean)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_is_avp_simple2()
|
|
|
|
|
|
|
|
local result
|
|
|
|
|
|
|
|
result = self.sr.pv._is_avp("$(avp(s:id)[*])")
|
|
|
|
|
|
|
|
assertTrue(result)
|
|
|
|
|
|
|
|
assertEquals(result.type, 'avp')
|
|
|
|
|
|
|
|
assertEquals(result.id, 'id')
|
|
|
|
|
|
|
|
--print(table.tostring(result))
|
|
|
|
|
|
|
|
assertTrue(result.clean)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_is_var_simple()
|
|
|
|
|
|
|
|
local result
|
|
|
|
|
|
|
|
result = self.sr.pv._is_var("$var(id)")
|
|
|
|
|
|
|
|
assertTrue(result)
|
|
|
|
|
|
|
|
assertEquals(result.type, 'var')
|
|
|
|
|
|
|
|
assertEquals(result.id, 'id')
|
|
|
|
|
|
|
|
--print(table.tostring(result))
|
|
|
|
|
|
|
|
assertFalse(result.clean)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_var_sets()
|
|
|
|
|
|
|
|
self.sr.pv.sets("$var(hithere)", "value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$var(hithere)"), "value")
|
|
|
|
|
|
|
|
assertError(self.sr.pv.sets, "$var(hithere)", 1)
|
|
|
|
|
|
|
|
assertError(self.sr.pv.sets, "$var(s:hithere)", "1")
|
|
|
|
|
|
|
|
assertError(self.sr.pv.sets, "$(var(hithere)[*])", "1")
|
|
|
|
|
|
|
|
assertError(self.sr.pv.sets, "$(var(s:hithere))", "1")
|
|
|
|
|
|
|
|
self.sr.pv.sets("$(var(hithere))", "new_value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$var(hithere)"), "new_value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.vars["var:hithere"], "new_value")
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_var_seti()
|
|
|
|
|
|
|
|
self.sr.pv.seti("$var(hithere)", 0)
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$var(hithere)"), 0)
|
|
|
|
|
|
|
|
assertError(self.sr.pv.seti, "$var(hithere)", "1")
|
|
|
|
|
|
|
|
assertError(self.sr.pv.sets, "$var(s:hithere)", 1)
|
|
|
|
|
|
|
|
assertError(self.sr.pv.sets, "$(var(hithere)[*])", 1)
|
|
|
|
|
|
|
|
assertError(self.sr.pv.sets, "$(var(s:hithere))", 1)
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$var(hithere)"), 0)
|
|
|
|
|
|
|
|
self.sr.pv.seti("$var(hithere)", 1)
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$var(hithere)"), 1)
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.vars["var:hithere"], 1)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_avp_sets()
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value")
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value")
|
|
|
|
assertEquals(self.sr.pv.vars["$avp(s:hithere)"], "value")
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), "value")
|
|
|
|
assertError(self.sr.pv.sets, "$avp(s:hithere)", 1)
|
|
|
|
assertError(self.sr.pv.sets, "$avp(s:hithere)", 1)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_seti()
|
|
|
|
function TestSRMock:test_avp_sets_all()
|
|
|
|
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$avp(hithere)"), "value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$(avp(hithere)[*])"), {"value"})
|
|
|
|
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value1")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$(avp(hithere)[*])"), {"value1","value"})
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_avp_seti()
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)", 0)
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)", 0)
|
|
|
|
assertEquals(self.sr.pv.vars["$avp(s:hithere)"], 0)
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), 0)
|
|
|
|
assertError(self.sr.pv.seti, "$avp(s:hithere)", "1")
|
|
|
|
assertError(self.sr.pv.seti, "$avp(s:hithere)", "1")
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_get()
|
|
|
|
function TestSRMock:test_xavp_sets()
|
|
|
|
local vals = {1,2,3}
|
|
|
|
self.sr.pv.sets("$xavp(g=>hithere)", "value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(g=>hithere)"), "value")
|
|
|
|
|
|
|
|
self.sr.pv.sets("$xavp(g=>bythere)", "value_bye")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(g=>bythere)"), "value_bye")
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_xavp_sets1()
|
|
|
|
|
|
|
|
self.sr.pv.sets("$xavp(g=>hithere)", "value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(g=>hithere)"), "value")
|
|
|
|
|
|
|
|
self.sr.pv.sets("$xavp(g=>hithere)", "value_bye")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(g=>hithere)"), "value_bye")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(g[1]=>hithere)"), "value")
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_xavp_seti()
|
|
|
|
|
|
|
|
self.sr.pv.seti("$xavp(t=>hithere)", 0)
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(t[0]=>hithere)"), 0)
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(t=>hithere)"), 0)
|
|
|
|
|
|
|
|
assertError(self.sr.pv.seti, "$xavp(t=>hithere)", "1")
|
|
|
|
|
|
|
|
assertError(self.sr.pv.seti, "$xavp(t[6]=>hithere)", "1")
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_avp_get_simple()
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value")
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value")
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), "value")
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), "value")
|
|
|
|
self.sr.pv.unset("$avp(s:hithere)")
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_avp_get_simple2()
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)", 1)
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)", 1)
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), 1)
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), 1)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_avp_get()
|
|
|
|
|
|
|
|
local vals = {1,2,3}
|
|
|
|
for i=1,#vals do
|
|
|
|
for i=1,#vals do
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)", vals[i])
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)", vals[i])
|
|
|
|
end
|
|
|
|
end
|
|
|
|
local l = self.sr.pv.get("$avp(s:hithere)")
|
|
|
|
local l = self.sr.pv.get("$(avp(s:hithere)[*])")
|
|
|
|
assertTrue(type(l), 'table')
|
|
|
|
assertTrue(type(l), 'table')
|
|
|
|
|
|
|
|
assertEquals(#l,#vals)
|
|
|
|
--print(table.tostring(l))
|
|
|
|
--print(table.tostring(l))
|
|
|
|
v = 1
|
|
|
|
v = 1
|
|
|
|
for i=#vals,1,-1 do
|
|
|
|
for i=#vals,1,-1 do
|
|
|
@ -56,26 +192,41 @@ TestSRMock = {}
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_unset()
|
|
|
|
function TestSRMock:test_avp_get_all()
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value")
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value")
|
|
|
|
self.sr.pv.unset("$avp(s:hithere)")
|
|
|
|
assertEquals(self.sr.pv.get("$avp(hithere)"), "value")
|
|
|
|
assertEquals(self.sr.pv.vars["$avp(s:hithere)"], nil)
|
|
|
|
assertEquals(self.sr.pv.get("$(avp(hithere)[*])"), {"value"})
|
|
|
|
self.sr.pv.unset("$avp(s:hithere)")
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value1")
|
|
|
|
assertEquals(self.sr.pv.vars["$avp(s:hithere)"], nil)
|
|
|
|
assertEquals(self.sr.pv.get("$(avp(hithere)[*])"), {"value1","value"})
|
|
|
|
|
|
|
|
self.sr.pv.sets("$(avp(s:hithere)[*])", "new_value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), "new_value")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$(avp(s:hithere)[*])"), {"new_value"})
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
self.sr.pv.sets("$xavp(g=>t)", "value")
|
|
|
|
function TestSRMock:test_unset_var()
|
|
|
|
assertEquals(self.sr.pv.vars["$xavp(g[0]=>t)"], "value")
|
|
|
|
self.sr.pv.sets("$var(hithere)", "value")
|
|
|
|
assertEquals(self.sr.pv.vars["$xavp(g=>t)"], nil)
|
|
|
|
assertEquals(self.sr.pv.get("$var(hithere)"), "value")
|
|
|
|
|
|
|
|
self.sr.pv.unset("$var(hithere)")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$var(hithere)"), nil)
|
|
|
|
|
|
|
|
self.sr.pv.unset("$var(hithere)")
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
self.sr.pv.sets("$xavp(g[0]=>v)", "value")
|
|
|
|
function TestSRMock:test_unset_avp()
|
|
|
|
self.sr.pv.unset("$xavp(g[1])")
|
|
|
|
self.sr.pv.sets("$avp(s:hithere)", "value")
|
|
|
|
assertEquals(self.sr.pv.vars["$xavp(g[1])"], nil)
|
|
|
|
assertEquals(self.sr.pv.get("$avp(hithere)"), "value")
|
|
|
|
assertEquals(self.sr.pv.vars["$xavp(g[0]=>t)"], "value")
|
|
|
|
self.sr.pv.unset("$avp(s:hithere)")
|
|
|
|
assertEquals(self.sr.pv.vars["$xavp(g[0]=>v)"], "value")
|
|
|
|
assertEquals(self.sr.pv.get("$avp(hithere)"), nil)
|
|
|
|
|
|
|
|
self.sr.pv.unset("$avp(s:hithere)")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), nil)
|
|
|
|
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
self.sr.pv.sets("$xavp(g[1]=>v)", "value")
|
|
|
|
function TestSRMock:test_unset_xavp()
|
|
|
|
self.sr.pv.unset("$xavp(g[1])")
|
|
|
|
self.sr.pv.sets("$xavp(g=>t)", "value_t")
|
|
|
|
assertEquals(self.sr.pv.vars["$xavp(g[1]=>v)"], nil)
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(g=>t)"), "value_t")
|
|
|
|
|
|
|
|
self.sr.pv.unset("$xavp(g=>t)")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(g=>t)"), nil)
|
|
|
|
|
|
|
|
self.sr.pv.unset("$xavp(g)")
|
|
|
|
|
|
|
|
assertEquals(self.sr.pv.get("$xavp(g)"), nil)
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_is_null()
|
|
|
|
function TestSRMock:test_is_null()
|
|
|
@ -94,15 +245,13 @@ TestSRMock = {}
|
|
|
|
assertError(self.sr.log, "debug", "Hi dude!")
|
|
|
|
assertError(self.sr.log, "debug", "Hi dude!")
|
|
|
|
end
|
|
|
|
end
|
|
|
|
|
|
|
|
|
|
|
|
function TestSRMock:test_set_clean()
|
|
|
|
function TestSRMock:test_avp_set_clean()
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)[*]", 0)
|
|
|
|
self.sr.pv.seti("$(avp(s:hithere)[*])", 0)
|
|
|
|
assertEquals(self.sr.pv.vars["$avp(s:hithere)"], 0)
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), 0)
|
|
|
|
assertFalse(self.sr.pv.vars["$avp(s:hithere)[*]"])
|
|
|
|
assertEquals(self.sr.pv.get("$(avp(s:hithere)[*])"), {0})
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)[*]", 1)
|
|
|
|
self.sr.pv.seti("$(avp(s:hithere)[*])", 1)
|
|
|
|
assertEquals(self.sr.pv.vars["$avp(s:hithere)"], 1)
|
|
|
|
assertEquals(self.sr.pv.get("$avp(s:hithere)"), 1)
|
|
|
|
assertFalse(self.sr.pv.vars["$avp(s:hithere)[*]"])
|
|
|
|
assertEquals(self.sr.pv.get("$(avp(s:hithere)[*])"), {1})
|
|
|
|
self.sr.pv.seti("$avp(s:hithere)", 0)
|
|
|
|
|
|
|
|
assertEquals(table.tostring(self.sr.pv.get("$avp(s:hithere)")), "{0,1}")
|
|
|
|
|
|
|
|
end
|
|
|
|
end
|
|
|
|
---- Control test output:
|
|
|
|
---- Control test output:
|
|
|
|
lu = LuaUnit
|
|
|
|
lu = LuaUnit
|
|
|
|