PostText/t/post.t

#!/usr/bin/env perl

use strict;
use warnings;
use Test::More;
use Mojo::File qw{curfile};
use Test::Mojo;

my $script         = curfile->dirname->sibling('PostText.pl');
my $t              = Test::Mojo->new($script);
my %valid_params   = (
    author => 'Anonymous',
    title  => 'hi',
    body   => 'ayy... lmao'
    );
my %invalid_title  = (
    author => 'Anonymous',
    title  => '',
    body   => 'ayy... lmao'
    );
my %invalid_post   = (
    author => 'Anonymous',
    title  => 'hi',
    body   => 'a'
    );
my %valid_remark   = (
    author => 'Anonymous',
    body   => 'hi'
    );
my %invalid_remark = (
    author => 'Anonymous',
    body   => 'a'
    );

$t->ua->max_redirects(1);

# GET
$t->get_ok('/post')->status_is(200)
    ->element_exists('form input[name="author"]' )
    ->element_exists('form input[name="title"]'  )
    ->element_exists('form textarea[name="body"]')
    ->element_exists('form input[type="submit"]' )
    ->text_like(h2 => qr/New Thread/);

$t->get_ok('/post/1')->status_is(200)
    ->element_exists('form input[name="author"]' )
    ->element_exists('form textarea[name="body"]')
    ->element_exists('form input[type="submit"]' )
    ->text_like(h2 => qr/New Remark/);

# POST
$t->post_ok('/post')->status_is(200)
    ->element_exists('form input[name="author"]' )
    ->element_exists('form input[name="title"]'  )
    ->element_exists('form textarea[name="body"]')
    ->element_exists('form input[type="submit"]' )
    ->text_like(h2 => qr/New Thread/);

$t->post_ok('/post', form => \%invalid_title)->status_is(400)
    ->text_like(p => qr/Invalid title/);
$t->post_ok('/post', form => \%invalid_post)->status_is(400)
    ->text_like(p => qr/Invalid text/);
$t->post_ok('/post', form => \%valid_params)->status_is(200)
    ->text_like(h2 => qr/Thread #[0-9]+/);

$t->post_ok('/post/1')->status_is(200)
    ->element_exists('form input[name="author"]' )
    ->element_exists('form textarea[name="body"]')
    ->element_exists('form input[type="submit"]' )
    ->text_like(h2 => qr/New Remark/);

$t->post_ok('/post/1', form => \%valid_remark)->status_is(200)
    ->text_like(h2 => qr/Thread #1/);
$t->post_ok('/post/1', form => \%invalid_remark)->status_is(400)
    ->text_like(p => qr/Invalid text/);

done_testing();