view release on metacpan or  search on metacpan

t/01-cms.t  view on Meta::CPAN

use strict;
use warnings;
use Carp;
use Data::Dump qw( dump );

use Test::More tests => 10;
use lib 't/MyCMS/lib';

use Catalyst::Test 'MyCMS';
use HTTP::Request::Common;

my $result;

# create a page
ok( $result = request('/cms/mypage?cxcms=create'), "GET create" );

#diag( dump $result );

is( $result->code, 400, "may not GET to create" );