[prev] [thread] [next] [lurker] [Date index for 2003/03/16]
Update of /cvsroot/siesta/siesta/t In directory sc8-pr-cvs1:/tmp/cvs-serv9307 Modified Files: 15defer.t Log Message: shoop Index: 15defer.t =================================================================== RCS file: /cvsroot/siesta/siesta/t/15defer.t,v retrieving revision 1.1 retrieving revision 1.2 diff -u -d -r1.1 -r1.2 --- 15defer.t 16 Mar 2003 00:47:54 -0000 1.1 +++ 15defer.t 16 Mar 2003 01:02:49 -0000 1.2 @@ -3,11 +3,13 @@ use Test::More tests => 5; use Siesta; use Siesta::Config; - -unlink map { <t/root/queue/dealers/$_/*> } qw( tmp new cur ); +use File::Find::Rule; Siesta->connect( DBI => "dbi:SQLite:t/test.db" ); $Siesta::Config::ROOT = 't/root'; + +# clear out any files from previous runs +unlink find( file => in => $Siesta::Config::ROOT ); my $list = Siesta::List->new('dealers'); ok( $list, "got a list" );
Generated at 13:57 on 01 Jul 2004 by mariachi 0.52