#! /usr/bin/env perl # -*- perl -*-
# Copyright (C) 2016-2020 Guido Flohr <guido.flohr@cantanea.com>,
# all rights reserved.
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.
use common::sense;
use lib 't';
use TestSite;
use Test::More;
use Qgoda::CLI;
use Qgoda::Util qw(read_file);
my %assets;
my $array_filter = <<EOF;
[% USE q = Qgoda %]
[% q.list(['name', 'foobar']) %]
EOF
$assets{'array.md'} = {
        content => $array_filter
};
my $scalar_filter = <<EOF;
[% USE q = Qgoda %]
[% q.list('foobar') %]
EOF
$assets{'scalar.md'} = {
        content => $scalar_filter
};
my $scalar_ref_filter = <<EOF;
[% USE q = Qgoda %]
[% q.list(asset.date) %]
EOF
$assets{'scalar-ref.md'} = {
        content => $scalar_ref_filter
};
$assets{'bl.md'} = {
        number => 6,
        string => 'beer',
        array => ['beer', 'wine'],
        type => 'filter',
};
$assets{'cl.md'} = {
        number => 48,
        string => 'root',
        array => ['root', 'math', 'listen'],
        type => 'filter',
};
$assets{'gl.md'} = {
        number => '13',
        string => 'tree',
        array => ['tree', 'nature', 'power'],
        type => 'filter',
};
$assets{'yl.md'} = {
        number => 2304,
        string => 'strawberry',
        array => ['strawberry', 'soft', 'beautiful'],
        type => 'filter',
};
$assets{'bu.md'} = {
        number => 6,
        string => 'BEER',
        array => ['BEER', 'Wine'],
        type => 'filter',
};
$assets{'cu.md'} = {
        number => 48,
        string => 'Root',
        array => ['Root', 'Math', 'Listen'],
        type => 'filter',
};
$assets{'gu.md'} = {
        number => '13',
        string => 'TREE',
        array => ['TREE', 'Nature', 'Power'],
        type => 'filter',
};
$assets{'yu.md'} = {
        number => 2304,
        string => 'StrawBerry',
        array => ['StrawBerry', 'Soft', 'Beautiful'],
        type => 'filter',
};
my $filters = <<'EOF';
[% USE q = Qgoda %]
default: [% q.list(string = 'strawberry').vmap('relpath').sort.join(':') %]
eq: [% q.list(string = ['eq', 'StrawBerry']).vmap('relpath').sort.join(':') %]
ne: [% q.list(string = ['ne', 'beer'], type = 'filter').vmap('relpath').sort.join(':') %]
ge: [% q.list(string = ['ge', 'beer']).vmap('relpath').sort.join(':') %]
gt: [% q.list(string = ['gt', 'beer']).vmap('relpath').sort.join(':') %]
le: [% q.list(string = ['le', 'beer'], type = 'filter').vmap('relpath').sort.join(':') %]
lt: [% q.list(string = ['lt', 'beer'], type = 'filter').vmap('relpath').sort.join(':') %]
ieq: [% q.list(string = ['ieq', 'StrawBerry']).vmap('relpath').sort.join(':') %]
ine: [% q.list(string = ['ine', 'beer'], type = 'filter').vmap('relpath').sort.join(':') %]
ige: [% q.list(string = ['ige', 'beer']).vmap('relpath').sort.join(':') %]
igt: [% q.list(string = ['igt', 'beer']).vmap('relpath').sort.join(':') %]
ile: [% q.list(string = ['ile', 'beer'], type = 'filter').vmap('relpath').sort.join(':') %]
ilt: [% q.list(string = ['ilt', 'strawberry'], type = 'filter').vmap('relpath').sort.join(':') %]
==: [% q.list(number = ['==', '2304']).vmap('relpath').sort.join(':') %]
!=: [% q.list(number = ['!=', '2304'], type = 'filter').vmap('relpath').sort.join(':') %]
&gt;=: [% q.list(number = ['>=', '13']).vmap('relpath').sort.join(':') %]
&gt;: [% q.list(number = ['>', '13']).vmap('relpath').sort.join(':') %]
&lt;=: [% q.list(number = ['<=', '48'], type = 'filter').vmap('relpath').sort.join(':') %]
&lt;: [% q.list(number = ['<', '48'], type = 'filter').vmap('relpath').sort.join(':') %]
=~: [% q.list(string = ['=~', 'ee']).vmap('relpath').sort.join(':') %]
!~: [% q.list(string = ['!~', 'ee'], type = 'filter').vmap('relpath').sort.join(':') %]
contains: [% q.list(array = ['contains', 'beautiful']).vmap('relpath').sort.join(':') %]
icontains: [% q.list(array = ['icontains', 'beautiful']).vmap('relpath').sort.join(':') %]
EOF
$assets{'filters.md'} = {
        content => $filters,
};
my $site = TestSite->new(
        name => 'tpq-filters',
        assets => \%assets,
        files => {
                '_views/default.html' => "[% asset.content %]",
        }
);
# Temporarily close stderr while building the site.
open my $olderr, '>&STDERR' or die "cannot dup stderr: $!";
close STDERR;
ok(Qgoda::CLI->new(['build'])->dispatch);
open STDERR, '>&', $olderr;
is (scalar $site->findArtefacts, 12);
ok -e '_site/filters/index.html';
my $filters_result = read_file '_site/filters/index.html';
like $filters_result, qr{<p>default: yl.md</p>}, 'default filter';
like $filters_result,
     qr{<p>eq: yu.md</p>},
     'eq filter';
like $filters_result,
     qr{<p>ne: bu.md:cl.md:cu.md:gl.md:gu.md:yl.md:yu.md</p>},
     'ne filter';
like $filters_result,
     qr{<p>ge: bl.md:cl.md:gl.md:yl.md</p>},
     'ge filter';
like $filters_result,
     qr{<p>gt: cl.md:gl.md:yl.md</p>},
     'gt filter';
like $filters_result,
     qr{<p>le: bl.md:bu.md:cu.md:gu.md:yu.md</p>},
     'le filter';
like $filters_result,
     qr{<p>lt: bu.md:cu.md:gu.md:yu.md</p>},
     'lt filter';
like $filters_result,
     qr{<p>ieq: yl.md:yu.md</p>},
     'ieq filter';
like $filters_result,
     qr{<p>ine: cl.md:cu.md:gl.md:gu.md:yl.md:yu.md</p>},
     'ine filter';
like $filters_result,
     qr{<p>ige: bl.md:bu.md:cl.md:cu.md:gl.md:gu.md:yl.md:yu.md</p>},
     'ige filter';
like $filters_result,
     qr{<p>igt: cl.md:cu.md:gl.md:gu.md:yl.md:yu.md</p>},
     'igt filter';
like $filters_result,
     qr{<p>ile: bl.md:bu.md</p>},
     'ile filter';
like $filters_result,
     qr{<p>ilt: bl.md:bu.md:cl.md:cu.md</p>},
     'ilt filter';
like $filters_result,
     qr{<p>==: yl.md:yu.md</p>},
     '== filter';
like $filters_result,
     qr{<p>!=: bl.md:bu.md:cl.md:cu.md:gl.md:gu.md</p>},
     '!= filter';
like $filters_result,
     qr{<p>\&gt;=: cl.md:cu.md:gl.md:gu.md:yl.md:yu.md</p>},
     '>= filter';
like $filters_result,
     qr{<p>\&gt;: cl.md:cu.md:yl.md:yu.md</p>},
     '> filter';
like $filters_result,
     qr{<p>\&lt;=: bl.md:bu.md:cl.md:cu.md:gl.md:gu.md</p>},
     '<= filter';
like $filters_result,
     qr{<p>\&lt;: bl.md:bu.md:gl.md:gu.md</p>},
     '< filter';
like $filters_result,
     qr{<p>=~: bl.md:gl.md</p>},
     '=~ filter';
like $filters_result,
     qr{<p>!~: bu.md:cl.md:cu.md:gu.md:yl.md:yu.md</p>},
     '=~ filter';
like $filters_result,
     qr{<p>contains: yl.md</p>},
     'contains filter';
like $filters_result,
     qr{<p>icontains: yl.md:yu.md</p>},
     'icontains filter';
my $invalid = qr/^\[\% '' \%\]/;
ok -e '_site/array/index.html';
like ((read_file '_site/array/index.html'), $invalid, 'array filter');
ok -e '_site/scalar/index.html';
like ((read_file '_site/scalar/index.html'), $invalid, 'scalar filters');
ok -e '_site/scalar-ref/index.html';
like ((read_file '_site/scalar-ref/index.html'), $invalid, 'scalar ref filter');
$site->tearDown;
done_testing;