--- trunk/t/2_soap.t	2005/06/22 12:31:45	62
+++ trunk/t/2_soap.t	2005/06/22 16:42:06	63
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 29;
+use Test::More tests => 36;
 
 BEGIN {
 	use_ok('Nos');
@@ -143,6 +143,34 @@
 
 cmp_ok($#{$arr}, '==', 0, "member deleted");
 
+# DeleteList
+
+ok($soap->DeleteList({
+	list => $list_name,
+})->result, "DeleteList named");
+
+ok(my $has_members = $soap->ListMembers({
+	list => $list_name,
+})->result, "ListMembers for $list_name");
+
+cmp_ok($#{$has_members}, '==', -1, "ok, no members");
+
+ok($list_id = $soap->NewList({
+	list => $list_name,
+	from => 'SOAP list',
+	email => 'soap-test@example.com',
+})->result, "NewList $list_name (recreated)");
+
+ok($soap->DeleteList(
+	$list_name,
+)->result, "DeleteList positional");
+
+ok($has_members = $soap->ListMembers({
+	list => $list_name,
+})->result, "ListMembers for $list_name");
+
+cmp_ok($#{$has_members}, '==', -1, "ok, no members");
+
 # kill server
 
 ok(kill('HUP' => $pid), "kill $pid");