use lib '../lib'; use Test::More; use Test::Deep; use Data::Dumper; use 5.010; use Switch::Right; $|=1; use TestHelper; my @medals = keys %{Lacuna::DB::Result::Medals::MEDALS()}; plan tests => scalar @medals; my $assets = '/home/lacuna/server/public/assets/medal/'; # TODO - fix asserting on asset files # opendir(my $dir, $assets); # my @images = readdir $dir; # closedir $dir; # foreach my $key (@medals) { # my $file = $key.'.png'; # ok(smartmatch($file, any => \@images), $key); # }