20 lines
693 B
Perl
20 lines
693 B
Perl
use strict;
|
|
use warnings;
|
|
use TestLib;
|
|
use Test::More tests => 2;
|
|
|
|
my $tempdir = TestLib::tempdir;
|
|
|
|
system_or_bail "initdb -D $tempdir/data -A trust >/dev/null";
|
|
open CONF, ">>$tempdir/data/postgresql.conf";
|
|
print CONF "listen_addresses = ''\n";
|
|
print CONF "unix_socket_directories = '$tempdir'\n";
|
|
close CONF;
|
|
|
|
command_exit_is(['pg_ctl', 'status', '-D', "$tempdir/data"], 3, 'pg_ctl status with server not running');
|
|
|
|
system_or_bail 'pg_ctl', '-s', '-l', "$tempdir/logfile", '-D', "$tempdir/data", '-w', 'start';
|
|
command_exit_is(['pg_ctl', 'status', '-D', "$tempdir/data"], 0, 'pg_ctl status with server running');
|
|
|
|
system_or_bail 'pg_ctl', '-s', 'stop', '-D', "$tempdir/data", '-m', 'fast';
|