[siesta-commit] siesta/t 07list.t,1.11,1.12

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

Update of /cvsroot/siesta/siesta/t
In directory usw-pr-cvs1:/tmp/cvs-serv23666/t

Modified Files:
	07list.t 
Log Message:
add_member hackup

Index: 07list.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07list.t,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- 07list.t	23 Aug 2002 11:11:21 -0000	1.11
+++ 07list.t	26 Aug 2002 16:42:55 -0000	1.12
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 20;
+use Test::More tests => 23;
 use Test::MockObject;
 use Siesta::Config;
 BEGIN { $Siesta::Config::DBFILE = 't/test.db' }
@@ -31,7 +31,7 @@
 }
 ok($flag, "->is_member agrees with ->members");
 
-# removal tests
+# removal
 my $old_cnt = scalar($list->members());
 ok( $list->is_member('bob@xxxxxxxx.xxxxxxxxxx'), "unsub - bob is a member" );
 ok( $list->remove_member('bob@xxxxxxxx.xxxxxxxxxx'), "remove successful" );
@@ -41,3 +41,8 @@
 ok (!($list->is_member('bob@xxxxxxxx.xxxxxxxxxx')), "bob no longer a member");
 ok ($list->is_member('jay@xxxxxxxx.xxxxxxxxxx'), "jay still is");
 
+# add
+my $count = scalar $list->members;
+ok( $list->add_member( 'bob@jail' ), 'was able to add bob' );
+is( scalar $list->members, $count + 1 );
+ok( $list->is_member( 'bob@jail' ) );

• [siesta-commit] siesta/t 07list.t,1.11,1.12 clampr 17:42 on 26 Aug 2002

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