diff options
Diffstat (limited to 'perllib/FixMyStreet/TestAppProve.pm')
-rw-r--r-- | perllib/FixMyStreet/TestAppProve.pm | 18 |
1 files changed, 7 insertions, 11 deletions
diff --git a/perllib/FixMyStreet/TestAppProve.pm b/perllib/FixMyStreet/TestAppProve.pm index 049f7da6c..4a55d587b 100644 --- a/perllib/FixMyStreet/TestAppProve.pm +++ b/perllib/FixMyStreet/TestAppProve.pm @@ -37,20 +37,16 @@ my $pg; sub spin_up_database { warn "Spinning up a Pg cluster/database...\n"; - $pg = Test::PostgreSQL->new(); + $pg = Test::PostgreSQL->new( + seed_scripts => [ + 'db/schema.sql', + 'db/fixture.sql', + 'db/generate_secret.sql', + ], + ); warn sprintf "# Connected to %s\n", $pg->dsn; - my $dbh = DBI->connect($pg->dsn); - - my $tmpwarn = $SIG{__WARN__}; - $SIG{__WARN__} = - sub { print STDERR @_ if $_[0] !~ m/NOTICE: CREATE TABLE/; }; - $dbh->do( path('db/schema.sql')->slurp ) or die $!; - $dbh->do( path('db/fixture.sql')->slurp ) or die $!; - $dbh->do( path('db/generate_secret.sql')->slurp ) or die $!; - $SIG{__WARN__} = $tmpwarn; - return { FMS_DB_PORT => $pg->port, FMS_DB_NAME => 'test', |