--- trunk/t/1_nos.t	2006/12/18 16:25:28	88
+++ trunk/t/1_nos.t	2006/12/18 18:55:43	89
@@ -16,7 +16,7 @@
 $self_path =~ s#/[^/]+$##;
 ok($self_path, "self_path: $self_path");
 
-ok(my $nos = new Nos('dsn' => 'dbi:Pg:dbname=notices'), "new");
+ok(my $nos = new Nos('dsn' => 'dbi:Pg:dbname=notices', full_hostname_in_aliases => 1), "new");
 
 my $aliases = $self_path . '/aliases';
 
@@ -90,12 +90,14 @@
   	sleep => 0,
 ), 'send_queued_messages for My list');
 
-cmp_ok( eval { scalar(Email::Send::Test->emails) }, '==', $sent, "sent $sent emails" );
-
 # replay to messages
 
+my @emails = Email::Send::Test->emails;
+
+cmp_ok( scalar( @emails ), '==', $sent, "sent $sent emails" );
+
 for (my $i = 0; $i < $sent; $i++) {
-	ok(my $msg = Email::Send::Test->emails->[$i], "email $i");
+	ok(my $msg = $emails[$i], "email $i");
 	isa_ok($msg, 'Email::Simple');
 	my ($from, $to);
 	ok($from = $msg->header("From"), "found From: $from");