tCMS/t/Trog-Themes-themed-templates.t

#!/usr/bin/env perl
use 5.040;
use re '/aasx';
use warnings FATAL => 'all';

use Test::More;
use Test::MockModule qw{strict};
use Path::Tiny();

use FindBin::libs;

require_ok('Trog::Themes') or BAIL_OUT("Can't find SUT");

# A stock template tree and a theme which only partially overrides it.
my $root  = Path::Tiny->tempdir();
my $stock = $root->child('www/templates/html/components/forms');
my $theme = $root->child('www/themes/spec/templates/html/components/forms');
$_->mkpath foreach ( $stock, $theme );

$stock->child($_)->spew_utf8("stock $_")  foreach qw{blog.tx series.tx profile.tx blog.json series.json};
$theme->child($_)->spew_utf8("themed $_") foreach qw{blog.tx gallery.tx blog.json};

my $themedir = '';
my $mock     = Test::MockModule->new('Trog::Themes');
$mock->redefine( 'get_dir', sub { $themedir } );

# $template_dir is what the stock tree hangs off; point it at the fixture.
{
    no warnings qw{once};
    $Trog::Themes::template_dir = "$root/www/templates";
}

subtest 'with no theme, nothing changes' => sub {
    $themedir = '';

    is_deeply(
        [ Trog::Themes::template_dirs( 'text/html', 1 ) ],
        ["$root/www/templates/html/components"],
        "only the stock dir is searched"
    );

    my $listed = [ sort @{ Trog::Themes::themed_templates_in_dir( 'forms', 'text/html', 1 ) } ];
    is_deeply( $listed, [qw{blog.tx profile.tx series.tx}], "the stock templates are listed" );
};

subtest 'with a partial theme, the stock templates show through' => sub {
    $themedir = "$root/www/themes/spec";

    is_deeply(
        [ Trog::Themes::template_dirs( 'text/html', 1 ) ],
        [ "$root/www/themes/spec/templates/html/components", "$root/www/templates/html/components" ],
        "the theme is searched first, then the stock tree"
    );

    is_deeply(
        [ sort @{ Trog::Themes::themed_templates_in_dir( 'forms', 'text/html', 1 ) } ],
        [qw{blog.tx gallery.tx profile.tx series.tx}],
        "themed_templates_in_dir() adds back the ones the theme didn't override"
    );

    my $listed = Trog::Themes::themed_templates_in_dir( 'forms', 'text/html', 1 );
    is( scalar( grep { $_ eq 'blog.tx' } @$listed ), 1,         "an overridden template is listed once, not twice" );
    is( $listed->[0],                                'blog.tx', "and the theme's copies come first" );
};

subtest 'themed_file_in_dir prefers the theme, falls back to stock' => sub {
    $themedir = "$root/www/themes/spec";

    is(
        Trog::Themes::themed_file_in_dir( qw{forms blog.json text/html}, 1 ),
        "$theme/blog.json", "the theme's copy wins"
    );
    is(
        Trog::Themes::themed_file_in_dir( qw{forms series.json text/html}, 1 ),
        "$stock/series.json", "one the theme lacks falls back"
    );
    is(
        Trog::Themes::themed_file_in_dir( qw{forms nope.json text/html}, 1 ),
        undef, "and one nobody has is undef, not a path that doesn't exist"
    );
};

subtest 'routes: a theme ships routes.pm under a dir relative to the tCMS root' => sub {
    my $site = Path::Tiny->tempdir();
    $site->child('www/themes/routed')->mkpath;
    $site->child('www/themes/routed/routes.pm')->spew_utf8(<<'PM');
package Theme;
our %routes = ( '/spec-themed' => { method => 'GET' } );
1;
PM

    my $was = Path::Tiny->cwd;
    chdir $site or die "chdir $site: $!";
    $themedir = 'www/themes/routed';
    my %routes = eval { Trog::Themes::routes() };
    my $err    = $@;
    chdir $was or die "chdir $was: $!";

    is( $err, '', 'it loads' );
    is_deeply( [ keys %routes ], ['/spec-themed'], 'and the routes are the ones it declared' );
};

subtest 'an empty or missing dir is not fatal' => sub {
    $themedir = "$root/www/themes/spec";
    is_deeply( Trog::Themes::themed_templates_in_dir( 'nosuchdir', 'text/html', 1 ), [], "just an empty list" );
};

done_testing();