#!/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();