[siesta-commit] siesta/t 07list.t,1.5,1.6

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

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

Modified Files:
	07list.t 
Log Message:

added some tests for remove_member


Index: 07list.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07list.t,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- 07list.t	23 Aug 2002 09:05:04 -0000	1.5
+++ 07list.t	23 Aug 2002 09:26:49 -0000	1.6
@@ -30,3 +30,10 @@
   $flag = $flag && $list->is_member($member);
 }
 ok($flag, "->is_member agrees with ->members");
+
+my $old_cnt = scalar($list->members());
+ok ($list->is_member('richardc@xxxxxxxxx.xxx'));
+ok ($list->remove_member('richardc@xxxxxxxxx.xxx'));
+ok (scalar($list->members()) == $old_cnt - 1);
+ok (!($list->is_member('richardc@xxxxxxxxx.xxx')));
+ok ($list->is_member('jay@xxxxxxxx.xxxxxxxxxx'));

• [siesta-commit] siesta/t 07list.t,1.5,1.6 gmccarroll 10:26 on 23 Aug 2002

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