#! perl

use strict;
use warnings;

use File::Spec;
use Data::Dumper;

use Dancer qw/:syntax/;

set environment => 'production';
set engines => {
                template_flute => { check_dangling => 1 },
               };

set template => 'template_flute';

set views => 't/views';
set log => 'debug';

get '/' => sub {
    template product => {};
};

use Test::More tests => 10, import => ['!pass'];

use Dancer::Test;

response_content_like [GET => '/'], qr/product-gallery/,
  "content looks good for /";
my $logs = read_logs;

ok (@$logs == 4);
diag to_dumper($logs);
foreach my $log (@$logs) {
    is $log->{level}, "debug", "Debug found";
    like $log->{message}, qr/Found dangling element/, "log looks good";
}