[siesta-commit] siesta/t 07list.t,1.3,1.4

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

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

Modified Files:
	07list.t 
Log Message:

added some more tests, that found a problem with or test.db


Index: 07list.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07list.t,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- 07list.t	23 Aug 2002 08:15:11 -0000	1.3
+++ 07list.t	23 Aug 2002 08:33:28 -0000	1.4
@@ -1,6 +1,6 @@
 #!perl -w
 use strict;
-use Test::More tests => 10;
+use Test::More tests => 12;
 use Test::MockObject;
 use Siesta::Config;
 BEGIN { $Siesta::Config::DBFILE = 't/test.db' }
@@ -20,3 +20,9 @@
 my $user2 = Test::MockObject->new->mock( id  => sub { 'silent_bob@xxxxxxxx.xxxxxxxxxx' } );
 ok( !($list->is_member($user2)) );
 
+is (scalar($list->members()), 2);
+my $flag = 1;
+foreach my $member ($list->members()) {
+  $flag = $flag && $list->is_member($member);
+}
+ok ($flag);

• [siesta-commit] siesta/t 07list.t,1.3,1.4 gmccarroll 09:33 on 23 Aug 2002

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