t/29-app-dthumb-data.t


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;
use autodie;

use App::Dthumb::Data;
use File::Slurp qw(read_dir);
use Test::More;

my @files = grep { ! -d "share/$_" } read_dir('share');
push(@files, map { "css/$_" } read_dir('share/css'));
push(@files, map { "js/$_" } read_dir('share/js'));

my @files_archived = sort grep { ! /\.dthumb$/ } @files;

plan(
	tests => 3 + scalar @files,
);

my $dthumb = App::Dthumb::Data->new();

isa_ok($dthumb, 'App::Dthumb::Data', 'App::Dthumb::Data->new()');

for my $file (@files) {
	open(my $fh, '<', "share/${file}");
	my $data = do { local $/ = undef; <$fh> };
	close($fh);

	is($dthumb->get($file), $data, "\$dthumb->get($file)");
}

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');