Added group param for clean.

ngcp/ngcp.lua

@@ -87,11 +87,19 @@ NGCP_MT = { __index = NGCP }
         return {real = unique_keys, peer = keys.peer}
     end
 
-    function NGCP:clean(vtype)
+    function NGCP:clean(vtype, group)
         local _,v
+        if not group then
             for _,v in pairs(self.prefs) do
                 v:clean(vtype)
             end
+        else
+            if self.prefs[group] then
+                self.prefs[group]:clean(vtype)
+            else
+                error(string.format("unknown group:%s", group))
+            end
+        end
     end
 -- class
 --EOF

tests/ngcp.lua

@@ -85,6 +85,30 @@ TestNGCP = {} --class
         assertFalse(sr.pv.get("$xavp(user)"))
     end
 
+    function TestNGCP:test_clean_caller_groups()
+        local groups = {"peer", "usr", "dom", "real"}
+        local _,v
+
+        for _,v in pairs(groups) do
+            assertEquals(sr.pv.get(string.format("$xavp(caller_%s_prefs=>dummy)", v), "caller"))
+            self.ngcp:clean("caller", v)
+            assertFalse(sr.pv.get(string.format("$xavp(caller_%s_prefs=>dummy)", v)))
+        end
+        assertError(self.ngcp.clean, self.ngcp, "caller", "whatever")
+    end
+
+    function TestNGCP:test_clean_callee_groups()
+        local groups = {"peer", "usr", "dom", "real"}
+        local _,v
+
+        for _,v in pairs(groups) do
+            assertEquals(sr.pv.get(string.format("$xavp(callee_%s_prefs=>dummy)", v), "callee"))
+            self.ngcp:clean("callee", v)
+            assertFalse(sr.pv.get(string.format("$xavp(callee_%s_prefs=>dummy)", v)))
+        end
+        assertError(self.ngcp.clean, self.ngcp, "callee", "whatever")
+    end
+
     function TestNGCP:test_callee_clean()
         local callee_xavp = NGCPDomainPrefs:xavp('callee')
         assertEquals(sr.pv.get("$xavp(callee_dom_prefs=>dummy)"),"callee")