diff options
| -rwxr-xr-x | t/29-app-dthumb-data.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/29-app-dthumb-data.t b/t/29-app-dthumb-data.t index 7ca9f2d..3790006 100755 --- a/t/29-app-dthumb-data.t +++ b/t/29-app-dthumb-data.t @@ -11,8 +11,10 @@ opendir(my $share, 'share'); my @files = grep { /^[^.]/ } readdir($share); closedir($share); +my @files_archived = sort grep { ! /\.dthumb$/ } @files; + plan( - tests => 2 + scalar @files, + tests => 3 + scalar @files, ); my $dthumb = App::Dthumb::Data->new(); @@ -28,3 +30,6 @@ for my $file (@files) { } is($dthumb->get('404notfound'), undef, '$dthumb->get on non-existing file'); + +is_deeply([@files_archived], [sort $dthumb->list_archived()], + '$dthumb->list_archived skips .dthumb files'); |