use strict;
use warnings;
use Test::More;
use Test::Exception;
use HTTP::Request::Common;
use URI;
use FindBin qw/$Bin/;
use lib "$Bin/lib";
use Catalyst::Test qw/TestApp/;
my $db_file = "$Bin/lib/TestApp/testdbic.db";
unlink $db_file if -e $db_file;
use_ok('TestApp::Schema');
my $schema;
lives_ok( sub { $schema = TestApp::Schema->connect("DBI:SQLite:$db_file") },
'Connect' );
ok($schema);
lives_ok( sub { $schema->deploy }, 'deploy schema' );
# populate DB
$schema->resultset('Resource::Artist')->create(
{ id => 1,
name => 'davewood',
password => 'asdf',
}
);
my $artist = $schema->resultset('Resource::Artist')->create(
{ id => 2,
name => 'flipper',
password => 'asdf',
}
);
lives_ok(
sub {
$artist->albums->create( { id => 1, name => 'Mach et einfach!' } );
},
'create album'
);
# change redirect_mode to 'show'
# 'list' is default but we overwrote it in TestApp.pm
{
my ( $res, $c ) = ctx_request( GET '/' );
for my $resource (qw/ Artist Concert Album Song /) {
my $controller = $c->controller("Resource::$resource");
$controller->redirect_mode('show_parent');
}
}
# check redirection for redirect_mode = 'list'
# CREATE
{
my $path = '/artists/create';
my $res = request($path);
ok( $res->is_success, "$path returns HTTP 200" );
like( $res->decoded_content, '/method="post"/',
"$path content contains 'method=\"post\"'" );
$res = request( POST $path,
[ name => 'simit', password => 'asdf', password_repeat => 'asdf' ] );
ok( $res->is_redirect, "$path returns HTTP 302" );
my $uri = URI->new( $res->header('location') );
is( $uri->path, '/artists/list' );
my $cookie = $res->header('Set-Cookie');
my $content
= request( GET $uri->path, Cookie => $cookie )->decoded_content;
like( $content, '/show">simit/', 'resource has been created' );
like( $content, '/simit created/', 'check create success notification' );
}
# DELETE
{
my $path = '/artists/1/delete';
my $res = request( POST $path);
ok( $res->is_redirect, "$path returns HTTP 302" );
my $uri = URI->new( $res->header('location') );
is( $uri->path, '/artists/list' );
my $cookie = $res->header('Set-Cookie');
my $content
= request( GET $uri->path, Cookie => $cookie )->decoded_content;
unlike( $content, '/show">davewood/', 'resource has been deleted' );
like(
$content,
'/davewood deleted/',
'check delete success notification'
);
ok( request( POST $path)->code == 404,
"Already deleted $path returns HTTP 404"
);
}
# EDIT
{
my $path = '/artists/2/edit';
my $res = request($path);
ok( $res->is_success, "$path returns HTTP 200" );
like( $res->decoded_content, '/method="post"/',
"$path content contains 'method=\"post\"'" );
$res = request( POST $path, [ name => 'foobar' ] );
ok( $res->is_redirect, "$path returns HTTP 302" );
my $uri = URI->new( $res->header('location') );
is( $uri->path, '/artists/list' );
my $cookie = $res->header('Set-Cookie');
my $content
= request( GET $uri->path, Cookie => $cookie )->decoded_content;
like( $content, '/show">foobar/', 'resource has been edited' );
like( $content, '/foobar updated/', 'check edit success notification' );
}
# for nested resources
# CREATE
{
my $path = '/artists/2/albums/create';
my $res = request($path);
ok( $res->is_success, "$path returns HTTP 200" );
like( $res->decoded_content, '/method="post"/',
"$path content contains 'method=\"post\"'" );
$res = request( POST $path, [ name => 'I Brake Together' ] );
ok( $res->is_redirect, "$path returns HTTP 302" );
my $uri = URI->new( $res->header('location') );
is( $uri->path, '/artists/2/show' );
my $cookie = $res->header('Set-Cookie');
my $content
= request( GET $uri->path, Cookie => $cookie )->decoded_content;
like(
$content,
'/I Brake Together created/',
'check create success notification'
);
}
# EDIT
{
my $path = '/artists/2/albums/2/edit';
my $res = request($path);
ok( $res->is_success, "$path returns HTTP 200" );
like( $res->decoded_content, '/method="post"/',
"$path content contains 'method=\"post\"'" );
$res = request( POST $path, [ name => 'Es gibt Reis, Baby' ] );
ok( $res->is_redirect, "$path returns HTTP 302" );
my $uri = URI->new( $res->header('location') );
is( $uri->path, '/artists/2/show' );
my $cookie = $res->header('Set-Cookie');
my $content
= request( GET $uri->path, Cookie => $cookie )->decoded_content;
like(
$content,
'/Es gibt Reis, Baby updated/',
'check edit success notification'
);
}
# DELETE
{
my $path = '/artists/2/albums/2/delete';
my $res = request( POST $path);
ok( $res->is_redirect, "$path returns HTTP 302" );
my $uri = URI->new( $res->header('location') );
is( $uri->path, '/artists/2/show' );
my $cookie = $res->header('Set-Cookie');
my $content
= request( GET $uri->path, Cookie => $cookie )->decoded_content;
like(
$content,
'/Es gibt Reis, Baby deleted/',
'check delete success notification'
);
ok( request( POST $path)->code == 404,
"Already deleted $path returns HTTP 404"
);
}
done_testing;