[prev] [thread] [next] [lurker] [Date index for 2002/08/23]
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