WIP -- times out in "prove -l -v t/03-auth.t" with no output from spa…

…wn_postgres -- Start postgreSQL instance directly in tests

openQA tests like `prove -l t/basic.t` already include a line
`OpenQA::Test::Database->new->create;` but this still needs a database
process to be present. This is detected and flagged as an error
accordingly but we could make the tests themselves more convenient and
less reliant on the Makefile by spawning a postgresql process itself
within tests if not already running.

Related progress issue: https://progress.opensuse.org/issues/102524

t/03-auth.t

@@ -10,7 +10,7 @@ use Test::Mojo;
 use Test::Output 'combined_like';
 use Test::Warnings;
 use OpenQA::Test::Database;
-use OpenQA::Test::TimeLimit '10';
+use OpenQA::Test::TimeLimit '30';
 use OpenQA::WebAPI::Auth::OAuth2;
 use Mojo::File qw(tempdir path);
 use Mojo::Transaction;

t/lib/OpenQA/Test/Database.pm

@@ -17,15 +17,27 @@ use Try::Tiny;
 
 has fixture_path => 't/fixtures';
 
-plan skip_all => 'set TEST_PG to e.g. "DBI:Pg:dbname=test" to enable this test' unless $ENV{TEST_PG};
+plan skip_all => 'set TEST_PG to e.g. "DBI:Pg:dbname=test" to enable this test' if $ENV{USE_EXTERNAL_PG} && !$ENV{TEST_PG};
 
 sub generate_schema_name {
     return 'tmp_' . random_string();
 }
 
+sub spawn_postgres {
+    $ENV{TEST_PG_PATH} //= '/dev/shm/tpg';
+    # this times out in `prove -l -v t/03-auth.t` and I don't see any output.
+    # Maybe it's better to use IPC::Run and show the output unbuffered or
+    # something
+    my $out = qx{test -d $ENV{TEST_PG_PATH} && (pg_ctl -D $ENV{TEST_PG_PATH} -s status >&/dev/null || pg_ctl -D $ENV{TEST_PG_PATH} -s start) || ./t/test_postgresql $ENV{TEST_PG_PATH}};
+    diag $out;
+    $ENV{TEST_PG} = "DBI:Pg:dbname=openqa_test;host=$ENV{TEST_PG_PATH}";
+}
+
 sub create {
     my ($self, %options) = @_;
 
+    spawn_postgres;
+
     # create new database connection
     my $schema = OpenQA::Schema::connect_db(mode => 'test', deploy => 0);
 
@@ -52,6 +64,10 @@ sub create {
     return $schema;
 }
 
+END {
+    qx{pg_ctl -D $ENV{TEST_PG_PATH} stop} unless $ENV{USE_EXTERNAL_PG} || $ENV{KEEP_DB};
+}
+
 sub insert_fixtures {
     my ($self, $schema, $fixtures_glob) = @_;