[siesta-commit] siesta/t 07list.t,1.7,1.8

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

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

Modified Files:
	07list.t 
Log Message:

richard removed and replaced by bob / brodie


Index: 07list.t
===================================================================
RCS file: /cvsroot/siesta/siesta/t/07list.t,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- 07list.t	23 Aug 2002 09:33:36 -0000	1.7
+++ 07list.t	23 Aug 2002 10:11:44 -0000	1.8
@@ -21,8 +21,8 @@
   ->mock( id  => sub { 'jay@xxxxxxxx.xxxxxxxxxx' } );
 ok( $list->is_member($user1), "jay member (object)" );
 my $user2 = Test::MockObject->new
-  ->mock( id  => sub { 'silent_bob@xxxxxxxx.xxxxxxxxxx' } );
-ok( !($list->is_member($user2)), 'silent_bob@ bob@ object' );
+  ->mock( id  => sub { 'brodie@comic-store' } );
+ok( !($list->is_member($user2)), 'brodie (object)' );
 
 is (scalar($list->members()), 2, "only two members");
 my $flag = 1;
@@ -32,8 +32,8 @@
 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 ($list->is_member('bob@xxxxxxxx.xxxxxxxxxx'));
+ok ($list->remove_member('bob@xxxxxxxx.xxxxxxxxxx'));
 ok (scalar($list->members()) == $old_cnt - 1);
-ok (!($list->is_member('richardc@xxxxxxxxx.xxx')));
+ok (!($list->is_member('bob@xxxxxxxx.xxxxxxxxxx')));
 ok ($list->is_member('jay@xxxxxxxx.xxxxxxxxxx'));



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