# HG changeset patch
# User Kim Alvefur <zash@zash.se>
# Date 1531069994 -7200
# Node ID 4d64ff0719a6c493f1ccf39ba18a3e4d1bef1566
# Parent  a2a4c225a3f8033e15e232d00a3320eca255ea7a
util.stanza: Brief tests for :remove_children

diff -r a2a4c225a3f8 -r 4d64ff0719a6 spec/util_stanza_spec.lua
--- a/spec/util_stanza_spec.lua	Sun Jul 08 19:12:17 2018 +0200
+++ b/spec/util_stanza_spec.lua	Sun Jul 08 19:13:14 2018 +0200
@@ -235,4 +235,26 @@
 			assert.falsy(st.is_stanza({}));
 		end);
 	end);
+
+	describe("#remove_children", function ()
+		it("should work", function ()
+			local s = st.stanza("x", {xmlns="test"})
+				:tag("y", {xmlns="test"}):up()
+				:tag("z", {xmlns="test2"}):up()
+				:tag("x", {xmlns="test2"}):up()
+
+			s:remove_children("x");
+			assert.falsy(s:get_child("x"))
+			assert.truthy(s:get_child("z","test2"));
+			assert.truthy(s:get_child("x","test2"));
+
+			s:remove_children(nil, "test2");
+			assert.truthy(s:get_child("y"))
+			assert.falsy(s:get_child(nil,"test2"));
+
+			s:remove_children();
+			assert.falsy(s.tags[1]);
+		end);
+	end);
+
 end);