PostText/t/moderator.t

use Mojo::Base -strict;
use Test::More;
use Test::Mojo;

my $t = Test::Mojo->new('PostText');

my %valid_login   = (
    email    => 'swaggboi@slackware.uk',
    password => 'i like to party'
    );

my %invalid_login = (
    email    => 'fuck@example.com',
    password => 'ah fuck'
    );

subtest Login => sub {
    $t->get_ok('/login')
        ->status_is(200)
        ->element_exists('form input[name="email"]')
        ->element_exists('form input[name="password"]')
        ->text_like(h2 => qr/Moderator Login/);

    $t->post_ok('/login', form => \%invalid_login)
        ->status_is(403)
        ->element_exists('form input[name="email"]')
        ->element_exists('form input[name="password"]')
        ->text_like(p => qr/Invalid login/);

    $t->post_ok('/login', form => \%valid_login)
        ->status_is(302)
        ->header_like(Location => qr{moderator/flagged});

    $t->get_ok('/moderator/flagged')
        ->status_is(200)
        ->text_like(h2 => qr/Flagged Posts/);

    $t->get_ok('/login')
        ->status_is(302)
        ->header_like(Location => qr{moderator/flagged});

    # Do these subs while logged in
    subtest Flag => sub {
        $t->get_ok('/moderator/unflag/1')
            ->status_is(302)
            ->header_like(Location => qr{thread/list});
    };

    subtest Hide => sub {
        $t->get_ok('/moderator/hide/1')
            ->status_is(302)
            ->header_like(Location => qr{thread/single/1});

        $t->get_ok('/moderator/unhide/1')
            ->status_is(302)
            ->header_like(Location => qr{thread/list});
    };

    $t->get_ok('/logout')
        ->status_is(302)
        ->header_like(Location => qr{thread/list});
};

done_testing();