Something went wrong. Try again.
Perl game server for TLE Community
Something went wrong. Try again.
12345678910111213141516171819202122232425262728293031use 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);# }