[prev] [thread] [next] [lurker] [Date index for 2003/03/15]
Update of /cvsroot/siesta/siesta/t In directory sc8-pr-cvs1:/tmp/cvs-serv9889/t Modified Files: 07list.t Log Message: refactor get_lists Index: 07list.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/07list.t,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- 07list.t 15 Mar 2003 20:15:52 -0000 1.23 +++ 07list.t 15 Mar 2003 21:39:18 -0000 1.24 @@ -92,14 +92,14 @@ my $us = Siesta::List->new_from_hash( name => 'caitlin' ); ok( $us->save, "saved 'caitlin'" ); $flag = 0; -foreach my $list ( Siesta->storage->get_lists ) { +foreach my $list ( Siesta->lists ) { $flag++ if $list->name eq 'caitlin'; } is( $flag, 1, "inserted" ); ok( $us->owner('test') ); ok( $us->save ); $flag = 0; -foreach my $list ( Siesta->storage->get_lists ) { +foreach my $list ( Siesta->lists ) { $flag++ if $list->name eq 'caitlin'; }
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52