--- trunk/t/2_soap.t	2005/06/22 12:31:45	62
+++ trunk/t/2_soap.t	2005/07/08 11:46:35	66
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 29;
+use Test::More tests => 36;
 
 BEGIN {
 	use_ok('Nos');
@@ -13,7 +13,10 @@
 
 my $list_name = 'SOAP test';
 
-ok(my $nos = new Nos::SOAP('dsn' => 'dbi:Pg:dbname=notices'), "new");
+ok(my $nos = new Nos::SOAP(
+	'dsn' => 'dbi:Pg:dbname=notices',
+	'aliases' => './t/aliases',
+), "new");
 
 ok(my $daemon = new SOAP::Transport::HTTP::Daemon(LocalAddr => 'localhost')->dispatch_to('Nos::SOAP'), "SOAP daemon");
 
@@ -143,6 +146,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");