use 5.010; use strict; use warnings; use lib 't'; use Test::Most; use testlib::Fixtures; use DateTime; use App::TimeTracker; my $tmp = testlib::Fixtures->setup_2011_05; my $t = App::TimeTracker->new(home=>$tmp,config=>{}); { my @files = $t->find_task_files({ from=>DateTime->new(year=>'2011',month=>5,day=>20), to=>DateTime->new(year=>'2011',month=>5,day=>25), }); is(scalar @files,6,'got 6 files'); is($files[0],$tmp->file('2011','05','20110520-093423_oe1_orf_at.trc'),'first file'); is($files[5],$tmp->file('2011','05','20110525-224324_App_TimeTracker.trc'),'last file'); } { my @files = $t->find_task_files({ projects=>['TimeTracker'], }); is(scalar @files,7,'got 7 files'); is((scalar grep { /App_TimeTracker/ } @files),7,'all match project'); } { my @files = $t->find_task_files({ from=>DateTime->new(year=>'2011',month=>5,day=>01), projects=>['oe1'], }); is(scalar @files,16,'got 16 files'); } done_testing();