create.t

use Statocles::Base 'Test';
my $SHARE_DIR = path( __DIR__, '..', 'share' );
use Statocles::Command;
use Capture::Tiny qw( capture );
use YAML;
use File::Share qw( dist_dir );

my ( undef, undef, undef, $day, $mon, $year ) = localtime;
$year += 1900;
$mon += 1;

my @date_parts = (
    sprintf( '%04i', $year ),
    sprintf( '%02i', $mon ),
    sprintf( '%02i', $day ),
);

my $create_dir = path( dist_dir( 'Statocles' ), 'create' );

subtest 'create a site' => sub {
    my $cwd = cwd;

    subtest 'project site with file deploy' => sub {
        my $tmp = tempdir;
        chdir $tmp;

        my $in = $SHARE_DIR->child( qw( create project_file_in.txt ) )->openr_utf8;
        local *STDIN = $in;

        my @args = ( 'create', 'example.com' );
        my ( $out, $err, $exit ) = capture { Statocles::Command->main( @args ) };

        is $exit, 0;
        ok !$err, 'nothing on stderr' or diag "STDERR: $err";
        eq_or_diff $out, $SHARE_DIR->child( qw( create project_file_out.txt ) )->slurp_utf8;

        my $expect_config = site_config();
        $expect_config->{site}{args}{nav}{main}[0]{href} = "/blog";
        $expect_config->{site}{args}{index} = "/page";
        $expect_config->{site}{args}{base_url} = "http://example.com";
        $expect_config->{deploy}{class} = "Statocles::Deploy::File";
        $expect_config->{deploy}{args}{path} = ".";

        ok $tmp->child( 'example.com', 'site.yml' )->is_file, 'site.yml file exists';
        my $config = $tmp->child( 'example.com', 'site.yml' )->slurp_utf8;
        cmp_deeply
            YAML::Load( $config ),
            $expect_config,
            'config is complete and correct';
        like $config, qr{Generated by Statocles version $Statocles::VERSION},
            'tagged with version to test that comments survive';

        ok $tmp->child( 'example.com', 'blog' )->is_dir, 'blog dir exists';
        eq_or_diff $tmp->child( 'example.com', 'blog', @date_parts, 'first-post', 'index.markdown' )->slurp,
                   $create_dir->child( 'blog', 'post.markdown' )->slurp,
                   'first post exists';
        ok $tmp->child( 'example.com', 'static' )->is_dir, 'static dir exists';
        ok $tmp->child( 'example.com', 'page' )->is_dir, 'page dir exists';
        eq_or_diff $tmp->child( 'example.com', 'page', 'index.markdown' )->slurp,
                   $create_dir->child( 'page', 'index.markdown' )->slurp,
                   'first page exists';
        ok !$tmp->child( 'example.com', 'theme' )->exists, 'theme dir does not exists';

        subtest 'build the site' => \&test_site_build, $tmp->child( 'example.com' );

        chdir $cwd;
    };

    subtest 'do nothing at all' => sub {
        my $tmp = tempdir;
        chdir $tmp;

        my $in = $SHARE_DIR->child( qw( create none_in.txt ) )->openr_utf8;
        local *STDIN = $in;

        my @args = ( 'create', 'http://example.com' );
        my ( $out, $err, $exit ) = capture { Statocles::Command->main( @args ) };

        is $exit, 0;
        ok !$err, 'nothing on stderr' or diag "STDERR: $err";
        eq_or_diff $out, $SHARE_DIR->child( qw( create none_out.txt ) )->slurp_utf8;

        my $expect_config = site_config();
        $expect_config->{site}{args}{base_url} = "http://example.com";
        $expect_config->{deploy}{class} = 'Statocles::Deploy::File';
        $expect_config->{deploy}{args}{path} = '.';

        ok $tmp->child( 'example.com', 'site.yml' )->is_file, 'site.yml file exists';
        my $config = $tmp->child( 'example.com', 'site.yml' )->slurp_utf8;
        cmp_deeply
            YAML::Load( $config ),
            $expect_config,
            'config is complete and correct';
        like $config, qr{Generated by Statocles version $Statocles::VERSION},
            'tagged with version to test that comments survive';

        ok $tmp->child( 'example.com', 'blog' )->is_dir, 'blog dir exists';
        eq_or_diff $tmp->child( 'example.com', 'blog', @date_parts, 'first-post', 'index.markdown' )->slurp,
                   $create_dir->child( 'blog', 'post.markdown' )->slurp,
                   'first post exists';
        ok $tmp->child( 'example.com', 'static' )->is_dir, 'static dir exists';
        ok $tmp->child( 'example.com', 'page' )->is_dir, 'page dir exists';
        eq_or_diff $tmp->child( 'example.com', 'page', 'index.markdown' )->slurp,
                   $create_dir->child( 'page', 'index.markdown' )->slurp,
                   'first page exists';
        ok !$tmp->child( 'example.com', 'theme' )->exists, 'theme dir does not exists';

        subtest 'build the site' => \&test_site_build, $tmp->child( 'example.com' );

        chdir $cwd;
    };

    subtest 'site in the current directory' => sub {
        my $tmp = tempdir;
        chdir $tmp;

        my $in = $SHARE_DIR->child( qw( create project_file_with_base_in.txt ) )->openr_utf8;
        local *STDIN = $in;

        my @args = ( 'create' );
        my ( $out, $err, $exit ) = capture { Statocles::Command->main( @args ) };

        is $exit, 0;
        ok !$err, 'nothing on stderr' or diag "STDERR: $err";
        eq_or_diff $out, $SHARE_DIR->child( qw( create project_file_with_base_out.txt ) )->slurp_utf8;

        my $expect_config = site_config();
        # Missing http:// gets added
        $expect_config->{site}{args}{base_url} = "http://example.com";
        $expect_config->{site}{args}{nav}{main}[0]{href} = "/blog";
        $expect_config->{site}{args}{index} = "/page";
        $expect_config->{deploy}{class} = "Statocles::Deploy::File";
        $expect_config->{deploy}{args}{path} = ".";

        ok $tmp->child( 'site.yml' )->is_file, 'site.yml file exists';
        my $config = $tmp->child( 'site.yml' )->slurp_utf8;
        cmp_deeply
            YAML::Load( $config ),
            $expect_config,
            'config is complete and correct';
        like $config, qr{Generated by Statocles version $Statocles::VERSION},
            'tagged with version to test that comments survive';

        ok $tmp->child( 'blog' )->is_dir, 'blog dir exists';
        eq_or_diff $tmp->child( 'blog', @date_parts, 'first-post', 'index.markdown' )->slurp,
                   $create_dir->child( 'blog', 'post.markdown' )->slurp,
                   'first post exists';
        ok $tmp->child( 'static' )->is_dir, 'static dir exists';
        ok $tmp->child( 'page' )->is_dir, 'page dir exists';
        eq_or_diff $tmp->child( 'page', 'index.markdown' )->slurp,
                   $create_dir->child( 'page', 'index.markdown' )->slurp,
                   'first page exists';
        ok !$tmp->child( 'theme' )->exists, 'theme dir does not exists';

        subtest 'build the site' => \&test_site_build, $tmp->child( 'example.com' );

        chdir $cwd;
    };

    subtest 'https base url' => sub {
        my $tmp = tempdir;
        chdir $tmp;

        my $in = $SHARE_DIR->child( qw( create project_file_with_https_base_in.txt ) )->openr_utf8;
        local *STDIN = $in;

        my @args = ( 'create' );
        my ( $out, $err, $exit ) = capture { Statocles::Command->main( @args ) };

        is $exit, 0;
        ok !$err, 'nothing on stderr' or diag "STDERR: $err";
        eq_or_diff $out, $SHARE_DIR->child( qw( create project_file_with_https_base_out.txt ) )->slurp_utf8;

        my $expect_config = site_config();
        $expect_config->{site}{args}{base_url} = "https://example.com";
        $expect_config->{site}{args}{nav}{main}[0]{href} = "/blog";
        $expect_config->{site}{args}{index} = "/page";
        $expect_config->{deploy}{class} = "Statocles::Deploy::File";
        $expect_config->{deploy}{args}{path} = ".";

        ok $tmp->child( 'site.yml' )->is_file, 'site.yml file exists';
        my $config = $tmp->child( 'site.yml' )->slurp_utf8;
        cmp_deeply
            YAML::Load( $config ),
            $expect_config,
            'config is complete and correct';
        like $config, qr{Generated by Statocles version $Statocles::VERSION},
            'tagged with version to test that comments survive';

        ok $tmp->child( 'blog' )->is_dir, 'blog dir exists';
        eq_or_diff $tmp->child( 'blog', @date_parts, 'first-post', 'index.markdown' )->slurp,
                   $create_dir->child( 'blog', 'post.markdown' )->slurp,
                   'first post exists';
        ok $tmp->child( 'static' )->is_dir, 'static dir exists';
        ok $tmp->child( 'page' )->is_dir, 'page dir exists';
        eq_or_diff $tmp->child( 'page', 'index.markdown' )->slurp,
                   $create_dir->child( 'page', 'index.markdown' )->slurp,
                   'first page exists';
        ok !$tmp->child( 'theme' )->exists, 'theme dir does not exists';

        subtest 'build the site' => \&test_site_build, $tmp->child( 'example.com' );

        chdir $cwd;
    };

    subtest 'base url and directory on the command-line' => sub {
        my $tmp = tempdir;
        chdir $tmp;

        my $in = $SHARE_DIR->child( qw( create none_in.txt ) )->openr_utf8;
        local *STDIN = $in;

        my @args = ( 'create', 'http://site.example.com', 'example.com' );
        my ( $out, $err, $exit ) = capture { Statocles::Command->main( @args ) };

        is $exit, 0;
        ok !$err, 'nothing on stderr' or diag "STDERR: $err";
        eq_or_diff $out, $SHARE_DIR->child( qw( create none_out.txt ) )->slurp_utf8;

        my $expect_config = site_config();
        $expect_config->{site}{args}{base_url} = "http://site.example.com";
        $expect_config->{deploy}{class} = 'Statocles::Deploy::File';
        $expect_config->{deploy}{args}{path} = '.';

        ok $tmp->child( 'example.com', 'site.yml' )->is_file, 'site.yml file exists';
        my $config = $tmp->child( 'example.com', 'site.yml' )->slurp_utf8;
        cmp_deeply
            YAML::Load( $config ),
            $expect_config,
            'config is complete and correct';
        like $config, qr{Generated by Statocles version $Statocles::VERSION},
            'tagged with version to test that comments survive';

        ok $tmp->child( 'example.com', 'blog' )->is_dir, 'blog dir exists';
        eq_or_diff $tmp->child( 'example.com', 'blog', @date_parts, 'first-post', 'index.markdown' )->slurp,
                   $create_dir->child( 'blog', 'post.markdown' )->slurp,
                   'first post exists';
        ok $tmp->child( 'example.com', 'static' )->is_dir, 'static dir exists';
        ok $tmp->child( 'example.com', 'page' )->is_dir, 'page dir exists';
        eq_or_diff $tmp->child( 'example.com', 'page', 'index.markdown' )->slurp,
                   $create_dir->child( 'page', 'index.markdown' )->slurp,
                   'first page exists';
        ok !$tmp->child( 'example.com', 'theme' )->exists, 'theme dir does not exists';

        subtest 'build the site' => \&test_site_build, $tmp->child( 'example.com' );

        chdir $cwd;
    };

    chdir $cwd;
};

subtest 'git deploy' => sub {
    if ( !eval { require Statocles::Deploy::Git; 1 } ) {
        pass "No test: Statocles::Deploy::Git failed to load: $@";
        return;
    }

    my $git_version = Statocles::Deploy::Git->_git_version;
    diag "Git version: $git_version";
    if ( $git_version < 1.007002 ) {
        pass "No test: Git 1.7.2 or higher required";
        return;
    }

    require Git::Repository;
    my $cwd = cwd;

    subtest 'basic blog site with git' => sub {
        my $tmp = tempdir;
        chdir $tmp;

        my $in = $SHARE_DIR->child( qw( create basic_blog_in.txt ) )->openr_utf8;
        local *STDIN = $in;

        my @args = ( 'create', 'www.example.com' );
        my ( $out, $err, $exit ) = capture { Statocles::Command->main( @args ) };

        is $exit, 0;
        ok !$err, 'nothing on stderr' or diag "STDERR: $err";
        eq_or_diff $out, $SHARE_DIR->child( qw( create basic_blog_out.txt ) )->slurp_utf8;

        ok $tmp->child( 'www.example.com', 'site.yml' )->is_file, 'site.yml file exists';
        my $expect_config = site_config();

        $expect_config->{site}{args}{base_url} = "http://www.example.com";
        $expect_config->{deploy}{class} = 'Statocles::Deploy::Git';
        $expect_config->{deploy}{args}{branch} = 'master';
        $expect_config->{theme}{args}{store} = 'theme';

        my $config = $tmp->child( 'www.example.com', 'site.yml' )->slurp_utf8;
        cmp_deeply
            YAML::Load( $config ),
            $expect_config,
            'config is complete and correct';
        like $config, qr{Generated by Statocles version $Statocles::VERSION},
            'tagged with version to test that comments survive';

        ok $tmp->child( 'www.example.com', 'blog' )->is_dir, 'blog dir exists';
        eq_or_diff $tmp->child( 'www.example.com', 'blog', @date_parts, 'first-post', 'index.markdown' )->slurp,
                   $create_dir->child( 'blog', 'post.markdown' )->slurp,
                   'first post exists';
        ok $tmp->child( 'www.example.com', 'static' )->is_dir, 'static dir exists';
        ok $tmp->child( 'www.example.com', 'page' )->is_dir, 'page dir exists';
        eq_or_diff $tmp->child( 'www.example.com', 'page', 'index.markdown' )->slurp,
                   $create_dir->child( 'page', 'index.markdown' )->slurp,
                   'first page exists';
        ok $tmp->child( 'www.example.com', 'theme' )->is_dir, 'theme dir exists';

        ok $tmp->child( 'www.example.com', '.git' )->is_dir, 'git repository created';
        eq_or_diff $tmp->child( 'www.example.com', '.gitignore' )->slurp,
            qq{\n.statocles\n},
            'gitignore is created',
            ;

        subtest 'build the site' => \&test_site_build, $tmp->child( 'www.example.com' );

        chdir $cwd;
    };

    subtest 'init in existing git repo' => sub {
        my $tmp = tempdir;
        chdir $tmp;

        Git::Repository->run( 'init' );
        $tmp->child( '.gitignore' )->spew( "some\n\nexisting\npaths\n" );

        my $in = $SHARE_DIR->child( qw( create basic_blog_in.txt ) )->openr_utf8;
        local *STDIN = $in;

        my @args = ( 'create', 'http://example.com', '.' );
        my ( $out, $err, $exit ) = capture { Statocles::Command->main( @args ) };

        is $exit, 0;
        ok !$err, 'nothing on stderr' or diag "STDERR: $err";
        eq_or_diff $out, $SHARE_DIR->child( qw( create basic_blog_out.txt ) )->slurp_utf8;

        ok $tmp->child( 'site.yml' )->is_file, 'site.yml file exists';
        my $expect_config = site_config();

        $expect_config->{site}{args}{base_url} = "http://example.com";
        $expect_config->{deploy}{class} = 'Statocles::Deploy::Git';
        $expect_config->{deploy}{args}{branch} = 'master';
        $expect_config->{theme}{args}{store} = 'theme';

        my $config = $tmp->child( 'site.yml' )->slurp_utf8;
        cmp_deeply
            YAML::Load( $config ),
            $expect_config,
            'config is complete and correct';
        like $config, qr{Generated by Statocles version $Statocles::VERSION},
            'tagged with version to test that comments survive';

        ok $tmp->child( 'blog' )->is_dir, 'blog dir exists';
        eq_or_diff $tmp->child( 'blog', @date_parts, 'first-post', 'index.markdown' )->slurp,
                   $create_dir->child( 'blog', 'post.markdown' )->slurp,
                   'first post exists';
        ok $tmp->child( 'static' )->is_dir, 'static dir exists';
        ok $tmp->child( 'page' )->is_dir, 'page dir exists';
        eq_or_diff $tmp->child( 'page', 'index.markdown' )->slurp,
                   $create_dir->child( 'page', 'index.markdown' )->slurp,
                   'first page exists';
        ok $tmp->child( 'theme' )->is_dir, 'theme dir exists';

        ok $tmp->child( '.git' )->is_dir, 'git repository still exists';
        eq_or_diff $tmp->child( '.gitignore' )->slurp,
            qq{some\n\nexisting\npaths\n\n.statocles\n},
            'gitignore is added to',
            ;

        subtest 'build the site' => \&test_site_build, $tmp;

        chdir $cwd;
    };

};

done_testing;

sub test_site_build {
    my ( $tmp ) = @_;
    my $cwd = cwd;
    chdir $tmp;
    my ( $out, $err, $exit );
    eval {
        ( $out, $err, $exit ) = capture { Statocles::Command->main( 'build' ) };
    };
    ok !$@, 'completed successfully' or diag $@;
    is $exit, 0;
    ok !$err, 'nothing on stderr' or diag "STDERR: $err";
    ok !$out, 'nothing on stdout' or diag "STDOUT: $out";
    chdir $cwd;
}

sub site_config {
    return {
        site => {
            class => 'Statocles::Site',
            args => {
                title => 'My Statocles Site',
                nav => {
                    main => [
                        {
                            text => 'Blog',
                            href => '/',
                        },
                    ],
                },
                theme => { '$ref' => 'theme' },
                apps => {
                    blog => { '$ref' => 'blog_app' },
                    page => { '$ref' => 'page_app' },
                    static => { '$ref' => 'static_app' },
                },
                index => '/blog',
                deploy => { '$ref' => 'deploy' },
                plugins => {
                    link_check => {
                        '$class' => 'Statocles::Plugin::LinkCheck',
                    },
                },
            },
        },

        blog_app => {
            class => 'Statocles::App::Blog',
            args => {
                store => 'blog',
                url_root => '/blog',
            },
        },

        page_app => {
            class => 'Statocles::App::Basic',
            args => {
                store => 'page',
                url_root => '/page',
            },
        },

        static_app => {
            class => 'Statocles::App::Basic',
            args => {
                store => 'static',
                url_root => '/static',
            },
        },

        theme => {
            class => 'Statocles::Theme',
            args => {
                store => '::default',
            },
        },

    };
}