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  = (
    name  => 'Anonymous',
    title => 'hi',
    post  => 'ayy... lmao'
    );
my %invalid_title = (
    name => 'Anonymous',
    title => '',
    post => 'ayy... lmao'
    );
my %invalid_post  = (
    name => 'Anonymous',
    title => 'hi',
    post => 'a'
    );


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

# GET
$t->get_ok('/post')->status_is(200)->text_like(h2 => qr/New Thread/);

# POST
$t->post_ok('/post')->status_is(200)->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 post/);

$t->post_ok('/post', form => \%valid_params)->status_is(200)
    ->text_like(h2 => qr/View Threads/);

done_testing();