Test infra round two.

Author: Kaitlyn Parkhurst

Web/lib/BlogDB/Web.pm

@@ -22,7 +22,9 @@ sub startup ($self) {
 
     # Create $self->db as a BlogDB::DB connection.
     $self->helper( db => sub {
-        return state $db = BlogDB::DB->connect($self->config->{database}->{blogdb});
+        return state $db = exists $ENV{BLOGDB_TESTMODE} && $ENV{BLOGDB_TESTMODE} == 1
+            ? BlogDB::DB->connect( $ENV{BLOGDB_DSN}, '', '' )
+            : BlogDB::DB->connect($self->config->{database}->{blogdb});
     });
 
     # Create $self->set_template

Web/lib/BlogDB/Web/Test.pm

@@ -0,0 +1,52 @@
+package BlogDB::Web::Test;
+use Import::Into;
+use Test::More;
+use Test::Deep;
+use Test::Mojo;
+use Test::Postgresql58;
+
+push our @ISA, qw( Exporter );
+push our @EXPORT, qw(  );
+
+sub import {
+    shift->export_to_level(1);
+    my $target = caller;
+
+    Mojo::Base->import::into($target, '-strict');
+    warnings  ->import::into($target);
+    strict    ->import::into($target);
+    Test::More->import::into($target);
+    Test::Deep->import::into($target);
+    Test::Mojo->import::into($target);
+}
+
+our $pgsql = Test::Postgresql58->new()
+    or BAILOUT( "PSQL Error: " . $Test::Postgresql58::errstr );
+
+load_psql_file("/home/symkat/Code/BlogDB/DB/etc/schema.sql");
+
+$ENV{BLOGDB_TESTMODE} = 1;
+$ENV{BLOGDB_DSN}      = $pgsql->dsn;
+
+sub load_psql_file {
+    my ( $file ) = @_;
+
+    open my $lf, "<", $file
+        or die "Failed to open $file for reading: $!";
+    my $content;
+    while ( defined( my $line = <$lf> ) ) {
+        next unless $line !~ /^\s*--/;
+        $content .= $line;
+    }
+    close $lf;
+
+    my $dbh = DBI->connect( $pgsql->dsn );
+    for my $command ( split( /;/, $content ) ) {
+        next if $command =~ /^\s*$/;
+        $dbh->do( $command )
+            or BAIL_OUT( "PSQL Error($file): $command: " . $dbh->errstr);
+    }
+    undef $dbh;
+}
+
+1;

Web/t/01_index.t

@@ -1,26 +1,17 @@
 #!/usr/bin/env perl
-use Mojo::Base -strict;
-use Test::Mojo;
-use Test::More;
-use Test::Postgresql58;
-use DBI;
+use BlogDB::Web::Test;
 
 my $t = Test::Mojo->new('BlogDB::Web');
 
 $t->get_ok( '/' );
 
-our $pgsql = Test::Postgresql58->new()
-    or BAILOUT( "PSQL Error: " . $Test::Postgresql58::errstr );
-
-load_psql_file("/home/symkat/Code/BlogDB/DB/etc/schema.sql");
-
 # Create an account.
 $t->post_ok( '/register', form => { 
         username => 'fred',
         email    => 'fred@blog.com',
         password => 'SuperSecure',
         confirm  => 'SuperSecure',
-    })->status_is( 200 );
+    })->status_is( 302 );
 
 # Login works and redirects the user.
 $t->post_ok( '/login', form => {
@@ -39,24 +30,3 @@ $t->post_ok( '/login', form => {
     })->status_is( 500 );
 
 done_testing();
-
-sub load_psql_file {
-    my ( $file ) = @_;
-
-    open my $lf, "<", $file
-        or die "Failed to open $file for reading: $!";
-    my $content;
-    while ( defined( my $line = <$lf> ) ) {
-        next unless $line !~ /^\s*--/;
-        $content .= $line;
-    }
-    close $lf;
-
-    my $dbh = DBI->connect( $pgsql->dsn );
-    for my $command ( split( /;/, $content ) ) {
-        next if $command =~ /^\s*$/;
-        $dbh->do( $command )
-            or BAIL_OUT( "PSQL Error($file): $command: " . $dbh->errstr);
-    }
-    undef $dbh;
-}