More tests

Web/t/01_endpoints/02_auth/06_login.t

@@ -0,0 +1,12 @@
+#!/usr/bin/env perl
+use MJB::Web::Test;
+
+my $t = Test::Mojo::MJB->new('MJB::Web');
+
+##
+# This test ensures that a user who hasn't logged in can access the login page.
+###
+
+$t->get_ok( '/login' )->status_is( 200 );
+
+done_testing();

Web/t/01_endpoints/02_auth/07_do_login.t

@@ -0,0 +1,48 @@
+#!/usr/bin/env perl
+use MJB::Web::Test;
+
+#==
+# This test ensures that login works.
+#
+# It will create an account through the normal registration, logout,
+# confirm it is logged out, log in, and confirm it is logged in.
+#==
+
+my $t = Test::Mojo::MJB->new('MJB::Web');
+
+# Make sure that open registration method is enabled.
+$t->app->config->{register}{enable_open} = 1;
+
+# 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...');
+    });
+
+# Remove session information so we are logged out of the fred account.
+$t->reset_session;
+
+# Try to login to the newly created account.
+$t->post_ok( '/login', form => { 
+        email            => 'fred@blog.com',
+        password         => 'SuperSecure',
+    })->status_is( 302 
+    )->header_is( location => '/dashboard', 'Login redirected to dashboard' )
+    ->code_block( sub {
+        is( scalar(@{shift->stash->{errors}}), 0, 'No errors' );
+    })->get_ok( '/'
+    )->code_block( sub {
+        is(shift->stash->{person}->name, 'fred', 'Got the fred after login...');
+    });
+
+done_testing();