--- trunk/t/1_nos.t	2005/08/02 19:41:28	70
+++ trunk/t/1_nos.t	2005/08/24 21:27:40	75
@@ -3,7 +3,7 @@
 use strict;
 use blib;
 
-use Test::More tests => 85;
+use Test::More tests => 89;
 use Cwd qw/abs_path/;
 
 BEGIN {
@@ -35,13 +35,13 @@
 	return $a->exists($email);
 }
 
-ok($nos->new_list( list => 'My list', email => 'my-list@example.com', aliases => $aliases), "new_list my-list");
+ok($nos->create_list( list => 'My list', email => 'my-list@example.com', aliases => $aliases), "create_list my-list");
 ok(check_aliases('my-list@example.com'), "alias added");
 
-ok($nos->new_list( list => 'another', email => 'another@example.com', aliases => $aliases), "new_list another");
+ok($nos->create_list( list => 'another', email => 'another@example.com', aliases => $aliases), "create_list another");
 ok(check_aliases('another@example.com'), "alias added");
 
-ok($nos->new_list( list => 'test', email => 'test@example.com', aliases => $aliases), "new_list test");
+ok($nos->create_list( list => 'test', email => 'test@example.com', aliases => $aliases), "create_list test");
 ok(check_aliases('test@example.com'), "alias added");
 
 ok($nos->_get_list('My list'), "_get_list");
@@ -81,6 +81,22 @@
 	}
 }
 
+# now test sending
+
+ok(my $sent = $nos->send_queued_messages(
+        list => 'My list',
+	driver => 'Test',
+        sleep => 0,
+), 'send_queued_messages for My list');
+
+cmp_ok( scalar(Email::Send::Test->emails), '==', $sent, "sent $sent emails" );
+
+# now test received
+
+ok($nos->received_messages( email => 'foo@example.com' ), 'received from foo@example.com');
+ok($nos->received_messages( list => 'My list' ), 'received to My list');
+
+# do some changes
 
 ok($nos->delete_member( email => 'foo@example.com' ), "delete");
 
@@ -95,7 +111,7 @@
 
 # now test delete
 
-ok($nos->new_list( list => 'delete', email => 'delete@example.com', aliases => $aliases), "new_list error");
+ok($nos->create_list( list => 'delete', email => 'delete@example.com', aliases => $aliases), "create_list error");
 
 ok($nos->add_member_to_list( list => 'delete', email => 'delete_me@example.com' ), "add test member");
 
@@ -123,7 +139,7 @@
 # test delete lists
 
 foreach my $list (( 'My list', 'test', 'another', 'delete' )) {
-	ok($nos->delete_list( list => $list, aliases => $aliases ), "delete $list");
+	ok($nos->drop_list( list => $list, aliases => $aliases ), "drop $list");
 	ok(! $nos->_get_list($list), "$list doesn't exist");
 }