PostText/t/admin.t

131 lines
4.5 KiB
Perl

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'
);
subtest Login => sub {
$t->post_ok('/login', form => \%valid_login)
->status_is(302)
->header_like(Location => qr{moderator/flagged});
$t->get_ok('/login')
->status_is(302)
->header_like(Location => qr{moderator/flagged});
# Do these subs while logged in
subtest 'Buttons for admins', sub {
$t->get_ok('/moderator/flagged')
->status_is(200)
->text_like(h2 => qr/Flagged Posts/)
->element_exists('a[href*="/moderator/admin/create"]')
->element_exists('a[href*="/moderator/admin/reset"]' )
};
subtest Create => sub {
$t->get_ok('/moderator/admin/create')
->status_is(200)
->text_like(h2 => qr/Create Moderator/)
->element_exists('form input[name="name"]' )
->element_exists('form input[name="email"]' )
->element_exists('form input[name="password"]')
};
subtest Reset => sub {
$t->get_ok('/moderator/admin/reset')
->status_is(200)
->text_like(h2 => qr/Reset Password/)
->element_exists('a[href*="/moderator/admin/reset"]')
->element_exists('form input[name="email"]' )
->element_exists('form input[name="password"]' )
};
subtest Lock => sub {
$t->get_ok('/moderator/admin/lock')
->status_is(200)
->text_like(h2 => qr/Lock Account/)
->element_exists('a[href*="/moderator/admin/lock"]')
->element_exists('form input[name="email"]' )
};
subtest Unlock => sub {
$t->get_ok('/moderator/admin/unlock')
->status_is(200)
->text_like(h2 => qr/Unlock Account/)
->element_exists('a[href*="/moderator/admin/unlock"]')
->element_exists('form input[name="email"]' )
};
subtest Promote => sub {
$t->get_ok('/moderator/admin/promote')
->status_is(200)
->text_like(h2 => qr/Promote Moderator/)
->element_exists('a[href*="/moderator/admin/promote"]')
->element_exists('form input[name="email"]' )
};
subtest Demote => sub {
$t->get_ok('/moderator/admin/demote')
->status_is(200)
->text_like(h2 => qr/Demote Admin/)
->element_exists('a[href*="/moderator/admin/demote"]')
->element_exists('form input[name="email"]' )
};
# Admin session ends
$t->get_ok('/logout')
->status_is(302)
->header_like(Location => qr{thread/list});
subtest 'No admin, no buttons', sub {
$t->get_ok('/thread/single/1')
->status_is(200)
->element_exists_not('a[href*="/moderator/admin/create"]' )
->element_exists_not('a[href*="/moderator/admin/reset"]' )
->element_exists_not('a[href*="/moderator/admin/lock"]' )
->element_exists_not('a[href*="/moderator/admin/unlock"]' )
->element_exists_not('a[href*="/moderator/admin/promote"]')
->element_exists_not('a[href*="/moderator/admin/demote"]' );
$t->get_ok('/remark/single/1')
->status_is(200)
->element_exists_not('a[href*="/moderator/admin/create"]' )
->element_exists_not('a[href*="/moderator/admin/reset"]' )
->element_exists_not('a[href*="/moderator/admin/lock"]' )
->element_exists_not('a[href*="/moderator/admin/unlock"]' )
->element_exists_not('a[href*="/moderator/admin/promote"]')
->element_exists_not('a[href*="/moderator/admin/demote"]' );
$t->get_ok('/moderator/admin/create')
->status_is(302)
->header_like(Location => qr/login/);
$t->get_ok('/moderator/admin/reset')
->status_is(302)
->header_like(Location => qr/login/);
$t->get_ok('/moderator/admin/lock')
->status_is(302)
->header_like(Location => qr/login/);
$t->get_ok('/moderator/admin/unlock')
->status_is(302)
->header_like(Location => qr/login/);
$t->get_ok('/moderator/admin/promote')
->status_is(302)
->header_like(Location => qr/login/);
$t->get_ok('/moderator/admin/demote')
->status_is(302)
->header_like(Location => qr/login/);
};
};
done_testing;