Add test for account (un)deletion
This commit is contained in:
parent
2b54ecf7a9
commit
9101207449
1 changed files with 28 additions and 2 deletions
|
@ -12,8 +12,8 @@ require "$FindBin::Bin/../index.pl";
|
|||
|
||||
my $t = Test::Mojo->new('Travelynx');
|
||||
|
||||
if (not $t->app->config->{db}) {
|
||||
plan(skip_all => 'No database configured');
|
||||
if ( not $t->app->config->{db} ) {
|
||||
plan( skip_all => 'No database configured' );
|
||||
}
|
||||
|
||||
$t->app->pg->db->query('drop schema if exists travelynx_test_02 cascade');
|
||||
|
@ -90,5 +90,31 @@ $t->post_ok(
|
|||
);
|
||||
$t->status_is(302)->header_is( location => '/' );
|
||||
|
||||
# Request deletion
|
||||
|
||||
$csrf_token = $t->ua->get('/account')->res->dom->at('input[name=csrf_token]')
|
||||
->attr('value');
|
||||
|
||||
$t->post_ok(
|
||||
'/delete' => form => {
|
||||
action => 'delete',
|
||||
csrf_token => $csrf_token,
|
||||
password => 'foofoofoo',
|
||||
}
|
||||
);
|
||||
$t->status_is(302)->header_is( location => '/account' );
|
||||
$t->get_ok('/account');
|
||||
$t->status_is(200)->content_like(qr{wird gelöscht});
|
||||
|
||||
$t->post_ok(
|
||||
'/delete' => form => {
|
||||
action => 'undelete',
|
||||
csrf_token => $csrf_token,
|
||||
}
|
||||
);
|
||||
$t->status_is(302)->header_is( location => '/account' );
|
||||
$t->get_ok('/account');
|
||||
$t->status_is(200)->content_unlike(qr{wird gelöscht});
|
||||
|
||||
$t->app->pg->db->query('drop schema travelynx_test_02 cascade');
|
||||
done_testing();
|
||||
|
|
Loading…
Reference in a new issue