15 lines
347 B
Perl
15 lines
347 B
Perl
use Mojo::Base -strict;
|
|
use Test::More;
|
|
use Test::Mojo;
|
|
|
|
my $t = Test::Mojo->new('PostText');
|
|
|
|
subtest 'Bumping thread', sub {
|
|
$t->get_ok('/list')->status_is(200)
|
|
->element_exists('a[href~="bump"]')
|
|
->text_like(h2 => qr/Threads List/);
|
|
|
|
$t->get_ok('/bump/1')->status_is(302)
|
|
->header_like(Location => qr/list/);
|
|
};
|