mirror of https://github.com/postgres/postgres
Reviewed-by: Pavel Stěhule <pavel.stehule@gmail.com> Reviewed-by: Erik Rijkers <er@xs4all.nl>pull/6/head
Peter Eisentraut
11 years ago
parent
7b5a9d61a8
commit
7d0f493f19
@ -0,0 +1,37 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 14; |
||||
|
||||
my $tempdir = TestLib::tempdir; |
||||
|
||||
program_help_ok('initdb'); |
||||
program_version_ok('initdb'); |
||||
program_options_handling_ok('initdb'); |
||||
|
||||
command_ok(['initdb', "$tempdir/data"], 'basic initdb'); |
||||
command_fails(['initdb', "$tempdir/data"], 'existing data directory'); |
||||
command_ok(['initdb', '-N', "$tempdir/data2"], 'nosync'); |
||||
command_ok(['initdb', '-S', "$tempdir/data2"], 'sync only'); |
||||
command_fails(['initdb', '-S', "$tempdir/data3"], 'sync missing data directory'); |
||||
mkdir "$tempdir/data4" or BAIL_OUT($!); |
||||
command_ok(['initdb', "$tempdir/data4"], 'existing empty data directory'); |
||||
|
||||
system_or_bail "rm -rf $tempdir/*"; |
||||
|
||||
command_ok(['initdb', "$tempdir/data", '-X', "$tempdir/pgxlog"], 'separate xlog directory'); |
||||
|
||||
system_or_bail "rm -rf $tempdir/*"; |
||||
command_fails(['initdb', "$tempdir/data", '-X', 'pgxlog'], 'relative xlog directory not allowed'); |
||||
|
||||
system_or_bail "rm -rf $tempdir/*"; |
||||
mkdir "$tempdir/pgxlog"; |
||||
command_ok(['initdb', "$tempdir/data", '-X', "$tempdir/pgxlog"], 'existing empty xlog directory'); |
||||
|
||||
system_or_bail "rm -rf $tempdir/*"; |
||||
mkdir "$tempdir/pgxlog"; |
||||
mkdir "$tempdir/pgxlog/lost+found"; |
||||
command_fails(['initdb', "$tempdir/data", '-X', "$tempdir/pgxlog"], 'existing nonempty xlog directory'); |
||||
|
||||
system_or_bail "rm -rf $tempdir/*"; |
||||
command_ok(['initdb', "$tempdir/data", '-T', 'german'], 'select default dictionary'); |
||||
@ -1,3 +1,5 @@ |
||||
/pg_basebackup |
||||
/pg_receivexlog |
||||
/pg_recvlogical |
||||
|
||||
/tmp_check/ |
||||
|
||||
@ -0,0 +1,90 @@ |
||||
use strict; |
||||
use warnings; |
||||
use Cwd; |
||||
use TestLib; |
||||
use Test::More tests => 28; |
||||
|
||||
program_help_ok('pg_basebackup'); |
||||
program_version_ok('pg_basebackup'); |
||||
program_options_handling_ok('pg_basebackup'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
command_fails(['pg_basebackup'], 'pg_basebackup needs target directory specified'); |
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup"], 'pg_basebackup fails because of hba'); |
||||
|
||||
open HBA, ">>$tempdir/pgdata/pg_hba.conf"; |
||||
print HBA "local replication all trust\n"; |
||||
print HBA "host replication all 127.0.0.1/32 trust\n"; |
||||
print HBA "host replication all ::1/128 trust\n"; |
||||
close HBA; |
||||
system_or_bail 'pg_ctl', '-s', '-D', "$tempdir/pgdata", 'reload'; |
||||
|
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup"], 'pg_basebackup fails because of WAL configuration'); |
||||
|
||||
open CONF, ">>$tempdir/pgdata/postgresql.conf"; |
||||
print CONF "max_wal_senders = 10\n"; |
||||
print CONF "wal_level = archive\n"; |
||||
close CONF; |
||||
restart_test_server; |
||||
|
||||
command_ok(['pg_basebackup', '-D', "$tempdir/backup"], 'pg_basebackup runs'); |
||||
ok(-f "$tempdir/backup/PG_VERSION", 'backup was created'); |
||||
|
||||
command_ok(['pg_basebackup', '-D', "$tempdir/backup2", '--xlogdir', "$tempdir/xlog2"], 'separate xlog directory'); |
||||
ok(-f "$tempdir/backup2/PG_VERSION", 'backup was created'); |
||||
ok(-d "$tempdir/xlog2/", 'xlog directory was created'); |
||||
|
||||
command_ok(['pg_basebackup', '-D', "$tempdir/tarbackup", '-Ft'], 'tar format'); |
||||
ok(-f "$tempdir/tarbackup/base.tar", 'backup tar was created'); |
||||
|
||||
mkdir "$tempdir/tblspc1"; |
||||
psql 'postgres', "CREATE TABLESPACE tblspc1 LOCATION '$tempdir/tblspc1';"; |
||||
psql 'postgres', "CREATE TABLE test1 (a int) TABLESPACE tblspc1;"; |
||||
command_ok(['pg_basebackup', '-D', "$tempdir/tarbackup2", '-Ft'], 'tar format with tablespaces'); |
||||
ok(-f "$tempdir/tarbackup2/base.tar", 'backup tar was created'); |
||||
my @tblspc_tars = glob "$tempdir/tarbackup2/[0-9]*.tar"; |
||||
is(scalar(@tblspc_tars), 1, 'one tablespace tar was created'); |
||||
|
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup1", '-Fp'], |
||||
'plain format with tablespaces fails without tablespace mapping'); |
||||
|
||||
command_ok(['pg_basebackup', '-D', "$tempdir/backup1", '-Fp', |
||||
"-T$tempdir/tblspc1=$tempdir/tbackup/tblspc1"], |
||||
'plain format with tablespaces succeeds with tablespace mapping'); |
||||
ok(-d "$tempdir/tbackup/tblspc1", 'tablespace was relocated'); |
||||
opendir(my $dh, "$tempdir/pgdata/pg_tblspc") or die; |
||||
ok((grep { -l "$tempdir/backup1/pg_tblspc/$_" and readlink "$tempdir/backup1/pg_tblspc/$_" eq "$tempdir/tbackup/tblspc1" } readdir($dh)), |
||||
"tablespace symlink was updated"); |
||||
closedir $dh; |
||||
|
||||
mkdir "$tempdir/tbl=spc2"; |
||||
psql 'postgres', "DROP TABLE test1;"; |
||||
psql 'postgres', "DROP TABLESPACE tblspc1;"; |
||||
psql 'postgres', "CREATE TABLESPACE tblspc2 LOCATION '$tempdir/tbl=spc2';"; |
||||
command_ok(['pg_basebackup', '-D', "$tempdir/backup3", '-Fp', |
||||
"-T$tempdir/tbl\\=spc2=$tempdir/tbackup/tbl\\=spc2"], |
||||
'mapping tablespace with = sign in path'); |
||||
ok(-d "$tempdir/tbackup/tbl=spc2", 'tablespace with = sign was relocated'); |
||||
|
||||
psql 'postgres', "DROP TABLESPACE tblspc2;"; |
||||
|
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup_foo", '-Fp', |
||||
"-T=/foo"], |
||||
'-T with empty old directory fails'); |
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup_foo", '-Fp', |
||||
"-T/foo="], |
||||
'-T with empty new directory fails'); |
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup_foo", '-Fp', |
||||
"-T/foo=/bar=/baz"], |
||||
'-T with multiple = fails'); |
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup_foo", '-Fp', |
||||
"-Tfoo=/bar"], |
||||
'-T with old directory not absolute fails'); |
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup_foo", '-Fp', |
||||
"-T/foo=bar"], |
||||
'-T with new directory not absolute fails'); |
||||
command_fails(['pg_basebackup', '-D', "$tempdir/backup_foo", '-Fp', |
||||
"-Tfoo"], |
||||
'-T with invalid format fails'); |
||||
@ -0,0 +1,8 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 3; |
||||
|
||||
program_help_ok('pg_receivexlog'); |
||||
program_version_ok('pg_receivexlog'); |
||||
program_options_handling_ok('pg_receivexlog'); |
||||
@ -1 +1,2 @@ |
||||
/pg_config |
||||
/tmp_check/ |
||||
|
||||
@ -0,0 +1,12 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 7; |
||||
|
||||
program_help_ok('pg_config'); |
||||
program_version_ok('pg_config'); |
||||
program_options_handling_ok('pg_config'); |
||||
command_like(['pg_config', '--bindir'], qr/bin/, 'pg_config single option'); # XXX might be wrong |
||||
command_like(['pg_config', '--bindir', '--libdir'], qr/bin.*\n.*lib/, 'pg_config two options'); |
||||
command_like(['pg_config', '--libdir', '--bindir'], qr/lib.*\n.*bin/, 'pg_config two options different order'); |
||||
command_like(['pg_config'], qr/.*\n.*\n.*/, 'pg_config without options prints many lines'); |
||||
@ -1 +1,2 @@ |
||||
/pg_controldata |
||||
/tmp_check/ |
||||
|
||||
@ -0,0 +1,14 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 6; |
||||
|
||||
my $tempdir = TestLib::tempdir; |
||||
|
||||
program_help_ok('pg_controldata'); |
||||
program_version_ok('pg_controldata'); |
||||
program_options_handling_ok('pg_controldata'); |
||||
command_fails(['pg_controldata'], 'pg_controldata without arguments fails'); |
||||
command_fails(['pg_controldata', 'nonexistent'], 'pg_controldata with nonexistent directory fails'); |
||||
system_or_bail "initdb -D $tempdir/data -A trust >/dev/null"; |
||||
command_like(['pg_controldata', "$tempdir/data"], qr/checkpoint/, 'pg_controldata produces output'); |
||||
@ -1 +1,2 @@ |
||||
/pg_ctl |
||||
/tmp_check/ |
||||
|
||||
@ -0,0 +1,25 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 10; |
||||
|
||||
my $tempdir = TestLib::tempdir; |
||||
|
||||
program_help_ok('pg_ctl'); |
||||
program_version_ok('pg_ctl'); |
||||
program_options_handling_ok('pg_ctl'); |
||||
|
||||
command_ok(['pg_ctl', 'initdb', '-D', "$tempdir/data"], 'pg_ctl initdb'); |
||||
open CONF, ">>$tempdir/data/postgresql.conf"; |
||||
print CONF "listen_addresses = ''\n"; |
||||
print CONF "unix_socket_directories = '$tempdir'\n"; |
||||
close CONF; |
||||
command_ok(['pg_ctl', 'start', '-D', "$tempdir/data", '-w'], 'pg_ctl start -w'); |
||||
command_ok(['pg_ctl', 'start', '-D', "$tempdir/data", '-w'], 'second pg_ctl start succeeds'); |
||||
command_ok(['pg_ctl', 'stop', '-D', "$tempdir/data", '-w', '-m', 'fast'], 'pg_ctl stop -w'); |
||||
command_fails(['pg_ctl', 'stop', '-D', "$tempdir/data", '-w', '-m', 'fast'], 'second pg_ctl stop fails'); |
||||
|
||||
command_ok(['pg_ctl', 'restart', '-D', "$tempdir/data", '-w', '-m', 'fast'], 'pg_ctl restart with server not running'); |
||||
command_ok(['pg_ctl', 'restart', '-D', "$tempdir/data", '-w', '-m', 'fast'], 'pg_ctl restart with server running'); |
||||
|
||||
system_or_bail 'pg_ctl', '-s', 'stop', '-D', "$tempdir/data", '-m', 'fast'; |
||||
@ -0,0 +1,19 @@ |
||||
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'; |
||||
@ -0,0 +1,18 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 6; |
||||
|
||||
program_help_ok('clusterdb'); |
||||
program_version_ok('clusterdb'); |
||||
program_options_handling_ok('clusterdb'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
issues_sql_like(['clusterdb', 'postgres'], qr/statement: CLUSTER;/, 'SQL CLUSTER run'); |
||||
|
||||
command_fails(['clusterdb', '-t', 'nonexistent', 'postgres'], 'fails with nonexistent table'); |
||||
|
||||
psql 'postgres', 'CREATE TABLE test1 (a int); CREATE INDEX test1x ON test1 (a); CLUSTER test1 USING test1x'; |
||||
issues_sql_like(['clusterdb', 'postgres', '-t', 'test1'], qr/statement: CLUSTER test1;/, 'cluster specific table'); |
||||
@ -0,0 +1,9 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 1; |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
issues_sql_like(['clusterdb', '-a'], qr/statement: CLUSTER.*statement: CLUSTER/s, 'cluster all databases'); |
||||
@ -0,0 +1,16 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 6; |
||||
|
||||
program_help_ok('createdb'); |
||||
program_version_ok('createdb'); |
||||
program_options_handling_ok('createdb'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
issues_sql_like(['createdb', 'foobar1'], qr/statement: CREATE DATABASE foobar1/, 'SQL CREATE DATABASE run'); |
||||
issues_sql_like(['createdb', 'foobar2', '-l', 'C', '-E', 'LATIN1', '-T', 'template0'], qr/statement: CREATE DATABASE foobar2 ENCODING 'LATIN1'/, 'create database with encoding'); |
||||
|
||||
command_fails(['createdb', 'foobar1'], 'fails if database already exists'); |
||||
@ -0,0 +1,18 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 6; |
||||
|
||||
program_help_ok('createlang'); |
||||
program_version_ok('createlang'); |
||||
program_options_handling_ok('createlang'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
command_fails(['createlang', 'plpgsql', 'postgres'], 'fails if language already exists'); |
||||
|
||||
psql 'postgres', 'DROP EXTENSION plpgsql'; |
||||
issues_sql_like(['createlang', 'plpgsql', 'postgres'], qr/statement: CREATE EXTENSION "plpgsql"/, 'SQL CREATE EXTENSION run'); |
||||
|
||||
command_like(['createlang', '--list', 'postgres'], qr/plpgsql/, 'list output'); |
||||
@ -0,0 +1,26 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 8; |
||||
|
||||
program_help_ok('createuser'); |
||||
program_version_ok('createuser'); |
||||
program_options_handling_ok('createuser'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
issues_sql_like(['createuser', 'user1'], |
||||
qr/statement: CREATE ROLE user1 NOSUPERUSER NOCREATEDB NOCREATEROLE INHERIT LOGIN;/, |
||||
'SQL CREATE USER run'); |
||||
issues_sql_like(['createuser', '-L', 'role1'], |
||||
qr/statement: CREATE ROLE role1 NOSUPERUSER NOCREATEDB NOCREATEROLE INHERIT NOLOGIN;/, |
||||
'create a non-login role'); |
||||
issues_sql_like(['createuser', '-r', 'user2'], |
||||
qr/statement: CREATE ROLE user2 NOSUPERUSER NOCREATEDB CREATEROLE INHERIT LOGIN;/, |
||||
'create a CREATEROLE user'); |
||||
issues_sql_like(['createuser', '-s', 'user3'], |
||||
qr/statement: CREATE ROLE user3 SUPERUSER CREATEDB CREATEROLE INHERIT LOGIN;/, |
||||
'create a superuser'); |
||||
|
||||
command_fails(['createuser', 'user1'], 'fails if role already exists'); |
||||
@ -0,0 +1,16 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 5; |
||||
|
||||
program_help_ok('dropdb'); |
||||
program_version_ok('dropdb'); |
||||
program_options_handling_ok('dropdb'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
psql 'postgres', 'CREATE DATABASE foobar1'; |
||||
issues_sql_like(['dropdb', 'foobar1'], qr/statement: DROP DATABASE foobar1/, 'SQL DROP DATABASE run'); |
||||
|
||||
command_fails(['dropdb', 'nonexistent'], 'fails with nonexistent database'); |
||||
@ -0,0 +1,15 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 5; |
||||
|
||||
program_help_ok('droplang'); |
||||
program_version_ok('droplang'); |
||||
program_options_handling_ok('droplang'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
issues_sql_like(['droplang', 'plpgsql', 'postgres'], qr/statement: DROP EXTENSION "plpgsql"/, 'SQL DROP EXTENSION run'); |
||||
|
||||
command_fails(['droplang', 'nonexistent', 'postgres'], 'fails with nonexistent language'); |
||||
@ -0,0 +1,16 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 5; |
||||
|
||||
program_help_ok('dropuser'); |
||||
program_version_ok('dropuser'); |
||||
program_options_handling_ok('dropuser'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
psql 'postgres', 'CREATE ROLE foobar1'; |
||||
issues_sql_like(['dropuser', 'foobar1'], qr/statement: DROP ROLE foobar1/, 'SQL DROP ROLE run'); |
||||
|
||||
command_fails(['dropuser', 'nonexistent'], 'fails with nonexistent user'); |
||||
@ -0,0 +1,15 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 5; |
||||
|
||||
program_help_ok('pg_isready'); |
||||
program_version_ok('pg_isready'); |
||||
program_options_handling_ok('pg_isready'); |
||||
|
||||
command_fails(['pg_isready'], 'fails with no server running'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
command_ok(['pg_isready'], 'succeeds with server running'); |
||||
@ -0,0 +1,21 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 7; |
||||
|
||||
program_help_ok('reindexdb'); |
||||
program_version_ok('reindexdb'); |
||||
program_options_handling_ok('reindexdb'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
$ENV{PGOPTIONS} = '--client-min-messages=WARNING'; |
||||
|
||||
issues_sql_like(['reindexdb', 'postgres'], qr/statement: REINDEX DATABASE postgres;/, 'SQL REINDEX run'); |
||||
|
||||
psql 'postgres', 'CREATE TABLE test1 (a int); CREATE INDEX test1x ON test1 (a);'; |
||||
issues_sql_like(['reindexdb', 'postgres', '-t', 'test1'], qr/statement: REINDEX TABLE test1;/, 'reindex specific table'); |
||||
issues_sql_like(['reindexdb', 'postgres', '-i', 'test1x'], qr/statement: REINDEX INDEX test1x;/, 'reindex specific index'); |
||||
|
||||
issues_sql_like(['reindexdb', 'postgres', '-s'], qr/statement: REINDEX SYSTEM postgres;/, 'reindex system tables'); |
||||
@ -0,0 +1,11 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 1; |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
$ENV{PGOPTIONS} = '--client-min-messages=WARNING'; |
||||
|
||||
issues_sql_like(['reindexdb', '-a'], qr/statement: REINDEX.*statement: REINDEX/s, 'reindex all databases'); |
||||
@ -0,0 +1,17 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 8; |
||||
|
||||
program_help_ok('vacuumdb'); |
||||
program_version_ok('vacuumdb'); |
||||
program_options_handling_ok('vacuumdb'); |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
issues_sql_like(['vacuumdb', 'postgres'], qr/statement: VACUUM;/, 'SQL VACUUM run'); |
||||
issues_sql_like(['vacuumdb', '-f', 'postgres'], qr/statement: VACUUM \(FULL\);/, 'vacuumdb -f'); |
||||
issues_sql_like(['vacuumdb', '-F', 'postgres'], qr/statement: VACUUM \(FREEZE\);/, 'vacuumdb -F'); |
||||
issues_sql_like(['vacuumdb', '-z', 'postgres'], qr/statement: VACUUM \(ANALYZE\);/, 'vacuumdb -z'); |
||||
issues_sql_like(['vacuumdb', '-Z', 'postgres'], qr/statement: ANALYZE;/, 'vacuumdb -z'); |
||||
@ -0,0 +1,9 @@ |
||||
use strict; |
||||
use warnings; |
||||
use TestLib; |
||||
use Test::More tests => 1; |
||||
|
||||
my $tempdir = tempdir; |
||||
start_test_server $tempdir; |
||||
|
||||
issues_sql_like(['vacuumdb', '-a'], qr/statement: VACUUM.*statement: VACUUM/s, 'vacuum all databases'); |
||||
@ -0,0 +1,186 @@ |
||||
package TestLib; |
||||
|
||||
use strict; |
||||
use warnings; |
||||
|
||||
use Exporter 'import'; |
||||
our @EXPORT = qw( |
||||
tempdir |
||||
start_test_server |
||||
restart_test_server |
||||
psql |
||||
system_or_bail |
||||
|
||||
command_ok |
||||
command_fails |
||||
command_exit_is |
||||
program_help_ok |
||||
program_version_ok |
||||
program_options_handling_ok |
||||
command_like |
||||
issues_sql_like |
||||
); |
||||
|
||||
use Cwd; |
||||
use File::Spec; |
||||
use File::Temp (); |
||||
use Test::More; |
||||
BEGIN { |
||||
eval { |
||||
require IPC::Run; |
||||
import IPC::Run qw(run start); |
||||
1; |
||||
} or do { |
||||
plan skip_all => "IPC::Run not available"; |
||||
} |
||||
} |
||||
|
||||
delete $ENV{PGCONNECT_TIMEOUT}; |
||||
delete $ENV{PGDATA}; |
||||
delete $ENV{PGDATABASE}; |
||||
delete $ENV{PGHOSTADDR}; |
||||
delete $ENV{PGREQUIRESSL}; |
||||
delete $ENV{PGSERVICE}; |
||||
delete $ENV{PGSSLMODE}; |
||||
delete $ENV{PGUSER}; |
||||
|
||||
if (!$ENV{PGPORT}) { |
||||
$ENV{PGPORT} = 65432; |
||||
} |
||||
|
||||
$ENV{PGPORT} = int($ENV{PGPORT}) % 65536; |
||||
|
||||
|
||||
# |
||||
# Helper functions |
||||
# |
||||
|
||||
|
||||
sub tempdir { |
||||
return File::Temp::tempdir('testXXXX', DIR => cwd(), CLEANUP => 1); |
||||
} |
||||
|
||||
my ($test_server_datadir, $test_server_logfile); |
||||
|
||||
sub start_test_server { |
||||
my ($tempdir) = @_; |
||||
my $ret; |
||||
|
||||
system "initdb -D $tempdir/pgdata -A trust -N >/dev/null"; |
||||
$ret = system 'pg_ctl', '-D', "$tempdir/pgdata", '-s', '-w', '-l', "$tempdir/logfile", '-o', "--fsync=off -k $tempdir --listen-addresses='' --log-statement=all", 'start'; |
||||
|
||||
if ($ret != 0) { |
||||
system('cat', "$tempdir/logfile"); |
||||
BAIL_OUT("pg_ctl failed"); |
||||
} |
||||
|
||||
$ENV{PGHOST} = $tempdir; |
||||
$test_server_datadir = "$tempdir/pgdata"; |
||||
$test_server_logfile = "$tempdir/logfile"; |
||||
} |
||||
|
||||
sub restart_test_server { |
||||
system 'pg_ctl', '-s', '-D', $test_server_datadir, '-w', '-l', $test_server_logfile, 'restart'; |
||||
} |
||||
|
||||
END { |
||||
if ($test_server_datadir) { |
||||
system 'pg_ctl', '-D', $test_server_datadir, '-s', '-w', '-m', 'immediate', 'stop'; |
||||
} |
||||
} |
||||
|
||||
sub psql { |
||||
my ($dbname, $sql) = @_; |
||||
run ['psql', '-X', '-q', '-d', $dbname, '-f', '-'], '<', \$sql or die; |
||||
} |
||||
|
||||
sub system_or_bail { |
||||
system(@_) == 0 or BAIL_OUT("system @_ failed: $?"); |
||||
} |
||||
|
||||
|
||||
# |
||||
# Test functions |
||||
# |
||||
|
||||
|
||||
sub command_ok { |
||||
my ($cmd, $test_name) = @_; |
||||
my $result = run $cmd, '>', File::Spec->devnull(), '2>', File::Spec->devnull(); |
||||
ok($result, $test_name); |
||||
} |
||||
|
||||
sub command_fails { |
||||
my ($cmd, $test_name) = @_; |
||||
my $result = run $cmd, '>', File::Spec->devnull(), '2>', File::Spec->devnull(); |
||||
ok(!$result, $test_name); |
||||
} |
||||
|
||||
sub command_exit_is { |
||||
my ($cmd, $expected, $test_name) = @_; |
||||
my $h = start $cmd, '>', File::Spec->devnull(), '2>', File::Spec->devnull(); |
||||
$h->finish(); |
||||
is($h->result(0), $expected, $test_name); |
||||
} |
||||
|
||||
sub program_help_ok { |
||||
my ($cmd) = @_; |
||||
subtest "$cmd --help" => sub { |
||||
plan tests => 3; |
||||
my ($stdout, $stderr); |
||||
my $result = run [$cmd, '--help'], '>', \$stdout, '2>', \$stderr; |
||||
ok($result, "$cmd --help exit code 0"); |
||||
isnt($stdout, '', "$cmd --help goes to stdout"); |
||||
is($stderr, '', "$cmd --help nothing to stderr"); |
||||
}; |
||||
} |
||||
|
||||
sub program_version_ok { |
||||
my ($cmd) = @_; |
||||
subtest "$cmd --version" => sub { |
||||
plan tests => 3; |
||||
my ($stdout, $stderr); |
||||
my $result = run [$cmd, '--version'], '>', \$stdout, '2>', \$stderr; |
||||
ok($result, "$cmd --version exit code 0"); |
||||
isnt($stdout, '', "$cmd --version goes to stdout"); |
||||
is($stderr, '', "$cmd --version nothing to stderr"); |
||||
}; |
||||
} |
||||
|
||||
sub program_options_handling_ok { |
||||
my ($cmd) = @_; |
||||
subtest "$cmd options handling" => sub { |
||||
plan tests => 2; |
||||
my ($stdout, $stderr); |
||||
my $result = run [$cmd, '--not-a-valid-option'], '>', \$stdout, '2>', \$stderr; |
||||
ok(!$result, "$cmd with invalid option nonzero exit code"); |
||||
isnt($stderr, '', "$cmd with invalid option prints error message"); |
||||
}; |
||||
} |
||||
|
||||
sub command_like { |
||||
my ($cmd, $expected_stdout, $test_name) = @_; |
||||
subtest $test_name => sub { |
||||
plan tests => 3; |
||||
my ($stdout, $stderr); |
||||
my $result = run $cmd, '>', \$stdout, '2>', \$stderr; |
||||
ok($result, "@$cmd exit code 0"); |
||||
is($stderr, '', "@$cmd no stderr"); |
||||
like($stdout, $expected_stdout, "$test_name: matches"); |
||||
}; |
||||
} |
||||
|
||||
sub issues_sql_like { |
||||
my ($cmd, $expected_sql, $test_name) = @_; |
||||
subtest $test_name => sub { |
||||
plan tests => 2; |
||||
my ($stdout, $stderr); |
||||
truncate $test_server_logfile, 0; |
||||
my $result = run $cmd, '>', \$stdout, '2>', \$stderr; |
||||
ok($result, "@$cmd exit code 0"); |
||||
my $log = `cat $test_server_logfile`; |
||||
like($log, $expected_sql, "$test_name: SQL found in server log"); |
||||
}; |
||||
} |
||||
|
||||
1; |
||||
Loading…
Reference in new issue