You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
38 lines
1.4 KiB
38 lines
1.4 KiB
#!/usr/bin/env perl
|
|
use MJB::Web::Test;
|
|
|
|
my $t = Test::Mojo::MJB->new('MJB::Web');
|
|
|
|
# Make sure that this registration method is enabled.
|
|
$t->app->config->{register}{enable_open} = 1;
|
|
|
|
# Try creating an account with an error, ensure we get the error.
|
|
$t->post_ok( '/register/open', form => {
|
|
name => 'fred',
|
|
email => 'fred@blog.com',
|
|
password => 'SuperSecure',
|
|
password_confirm => 'SuperFail',
|
|
})->status_is( 302
|
|
)->code_block( sub {
|
|
is( shift->stash->{errors}->[0], 'Password and confirm password must match', 'Expected error thrown' );
|
|
})->code_block( sub {
|
|
is( shift->app->db->resultset('Person')->search( { name => 'fred'})->count, 0, 'No user created.');
|
|
});
|
|
|
|
## Try creating a valid account, ensure it exists in the DB.
|
|
$t->post_ok( '/register/open', form => {
|
|
name => 'fred',
|
|
email => 'fred@blog.com',
|
|
password => 'SuperSecure',
|
|
password_confirm => 'SuperSecure',
|
|
})->status_is( 302
|
|
)->code_block( sub {
|
|
is( scalar(@{shift->stash->{errors}}), 0, 'No errors' );
|
|
})->code_block( sub {
|
|
is( shift->app->db->resultset('Person')->search( { name => 'fred'})->count, 1, 'User created.');
|
|
})->get_ok( '/'
|
|
)->code_block( sub {
|
|
is(shift->stash->{person}->name, 'fred', 'Got the fred after login...');
|
|
});
|
|
|
|
done_testing();
|
|
|