Load DB explictly.

master
Manager Bot 3 years ago
parent f4cc028789
commit f406dd7b88
  1. 6
      Web/lib/MJB/Web/Test.pm

@ -9,6 +9,8 @@ use Mojo::File;
push our @ISA, qw( Exporter ); push our @ISA, qw( Exporter );
push our @EXPORT, qw( $run_code ); push our @EXPORT, qw( $run_code );
our $pgsql;
sub import { sub import {
shift->export_to_level(1); shift->export_to_level(1);
my $target = caller; my $target = caller;
@ -21,7 +23,8 @@ sub import {
Test::Mojo::MJB->import::into($target); Test::Mojo::MJB->import::into($target);
} }
our $pgsql = Test::Postgresql58->new() sub enable_testing_database {
$pgsql = Test::Postgresql58->new()
or BAILOUT( "PSQL Error: " . $Test::Postgresql58::errstr ); or BAILOUT( "PSQL Error: " . $Test::Postgresql58::errstr );
load_psql_file("../DB/etc/schema.sql"); load_psql_file("../DB/etc/schema.sql");
@ -29,6 +32,7 @@ load_psql_file("../DB/etc/schema.sql");
$ENV{MJB_TESTMODE} = 1; $ENV{MJB_TESTMODE} = 1;
$ENV{MJB_DSN} = $pgsql->dsn; $ENV{MJB_DSN} = $pgsql->dsn;
$ENV{MJB_TESTMODE_TEMPDIR} = Mojo::File::tempdir->to_string; $ENV{MJB_TESTMODE_TEMPDIR} = Mojo::File::tempdir->to_string;
}
sub load_psql_file { sub load_psql_file {
my ( $file ) = @_; my ( $file ) = @_;

Loading…
Cancel
Save