--- trunk/t/1_nos.t	2005/06/21 09:14:54	56
+++ trunk/t/1_nos.t	2005/06/21 20:49:27	59
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 50;
+use Test::More tests => 68;
 
 BEGIN { use_ok('Nos') };
 
@@ -59,3 +59,30 @@
 
 cmp_ok(scalar $nos->list_members( list => 'My list' ), '==', 1, 'members of My list');
 cmp_ok(scalar $nos->list_members( list => 'another' ), '==', 0, 'members of another');
+
+# now test delete
+
+ok($nos->new_list( list => 'delete', email => 'delete@example.com'), "new_list error");
+
+ok($nos->add_member_to_list( list => 'delete', email => 'delete_me@example.com' ), "add test member");
+
+my $nr;
+ok($nr = scalar $nos->list_members( list => 'delete' ), "get delete list members");
+
+foreach my $i (1 .. 5) {
+	ok($nos->add_member_to_list( list => 'delete', 'email' => 'delete_'.$i.'@example.com'), "add bogus member $i");
+}
+
+cmp_ok(scalar $nos->list_members( list => 'delete' ), '==', $nr + 5, "new member");
+
+ok($nos->delete_member_from_list( list => 'delete', email => 'delete_me@example.com'), "delete_memeber_from_list");
+
+cmp_ok(scalar $nos->list_members( list => 'delete' ), '==', $nr + 4, 'member deleted');
+
+ok(! $nos->delete_member_from_list( list => 'delete', email => 'delete_me@example.com'), "delete non-existant member");
+
+foreach my $i (1 .. 5) {
+	ok($nos->delete_member( email => 'delete_'.$i.'@example.com'), "delete_member $i");
+}
+
+cmp_ok(scalar $nos->list_members( list => 'delete' ), '==', 0, "list empty");