[siesta-commit] siesta/t 07list.t,1.1,1.2

[prev] [thread] [next] [lurker] [Date index for 2002/08/23]

From: gmccarroll
Subject: [siesta-commit] siesta/t 07list.t,1.1,1.2
Date: 09:11 on 23 Aug 2002
Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv11816

Modified Files:
	07list.t 
Log Message:

added tests for is_member


Index: 07list.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07list.t,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- 07list.t	22 Aug 2002 19:21:23 -0000	1.1
+++ 07list.t	23 Aug 2002 08:11:48 -0000	1.2
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 6;
+use Test::More tests => 8;
 use Siesta::Config;
 BEGIN { $Siesta::Config::DBFILE = 't/test.db' }
 use Siesta::List;
@@ -12,3 +12,5 @@
 is( $list->owner,        'jay@xxxxxxxx.xxxxxxxxxx' );
 is( $list->post_address, 'dealers@xxxxxxxx.xxxxxxxxxx' );
 is( $list->return_path,  'dealers-bounce@xxxxxxxx.xxxxxxxxxx' );
+ok( $list->is_member('jay@xxxxxxxx.xxxxxxxxxx') );
+ok( !($list->is_member('silent_bob@xxxxxxxx.xxxxxxxxxx')) );



Generated at 13:57 on 01 Jul 2004 by mariachi 0.52