Admin

name	type	size	perms	modified	actions
[parent directory]
bar/	dir	-	0755	2024-08-29 02:17:12
foo/	dir	-	0755	2024-08-29 02:17:12
001_packages.t	file	3,582 B	0644	2023-10-19 12:38:24	edit
002_existing_clusters.t	file	178 B	0644	2023-07-31 08:06:12	edit
003_alternatives.t	file	1,429 B	0644	2023-10-19 12:38:24	edit
005_PgCommon.t	file	8,943 B	0644	2023-10-19 12:38:24	edit
006_next_free_port.t	file	1,453 B	0644	2023-10-19 12:38:24	edit
007_pg_conftool.t	file	2,682 B	0644	2023-07-31 08:06:12	edit
010_defaultport_cluster.t	file	2,062 B	0644	2023-07-31 08:06:12	edit
015_start_stop.t	file	5,357 B	0644	2023-07-31 08:06:12	edit
020_create_sql_remove.t	file	22,236 B	0644	2024-01-16 13:37:16	edit
021_pg_renamecluster.t	file	1,738 B	0644	2023-10-19 12:38:24	edit
022_recovery.t	file	1,410 B	0644	2023-07-31 08:06:12	edit
025_logging.t	file	4,754 B	0644	2023-07-31 08:06:12	edit
030_errors.t	file	15,849 B	0644	2023-10-19 12:38:24	edit
031_errors_disk_full.t	file	2,473 B	0644	2023-07-31 08:06:12	edit
032_ssl_key_permissions.t	file	2,239 B	0644	2023-07-31 08:06:12	edit
040_upgrade.t	file	13,427 B	0644	2023-10-19 12:38:24	edit
041_upgrade_custompaths.t	file	2,595 B	0644	2023-10-19 12:38:24	edit
042_upgrade_rename.t	file	827 B	0644	2023-10-19 12:38:24	edit
043_upgrade_ssl_cert.t	file	2,904 B	0644	2023-10-19 12:38:24	edit
045_backup.t	file	7,656 B	0644	2023-10-19 12:38:24	edit
050_encodings.t	file	5,446 B	0644	2023-10-19 12:38:24	edit
052_upgrade_encodings.t	file	4,853 B	0644	2023-10-19 12:38:24	edit
060_obsolete_confparams.t	file	3,276 B	0644	2023-07-31 08:06:12	edit
070_non_postgres_clusters.t	file	4,305 B	0644	2023-10-19 12:38:24	edit
080_start.conf.t	file	5,580 B	0644	2023-07-31 08:06:12	edit
085_pg_ctl.conf.t	file	2,326 B	0644	2023-10-19 12:38:24	edit
090_multicluster.t	file	13,605 B	0644	2023-10-19 12:38:24	edit
110_integrate_cluster.t	file	1,429 B	0644	2023-10-19 12:38:24	edit
120_pg_upgradecluster_scripts.t	file	4,153 B	0644	2023-10-19 12:38:24	edit
130_nonroot_admin.t	file	1,795 B	0644	2023-10-19 12:38:24	edit
135_pg_virtualenv.t	file	1,461 B	0644	2023-07-31 08:06:12	edit
140_pg_config.t	file	4,492 B	0644	2023-10-19 12:38:24	edit
150_tsearch_stemming.t	file	4,721 B	0644	2023-07-31 08:06:12	edit
160_alternate_confroot.t	file	2,082 B	0644	2023-10-19 12:38:24	edit
170_extensions.t	file	3,025 B	0644	2023-07-31 08:06:12	edit
180_ecpg.t	file	1,318 B	0644	2023-10-19 12:38:24	edit
190_pg_buildext.t	file	3,578 B	0644	2023-11-06 16:11:59	edit
200_maintscripts.t	file	1,395 B	0644	2023-10-19 12:38:24	edit
template	file	495 B	0644	2023-07-31 08:06:12	edit
TestLib.pm	file	8,487 B	0644	2024-01-16 13:37:16	edit

editing: 031_errors_disk_full.t

# Check for proper ENOSPC handling

use strict;

require File::Temp;

use lib 't';
use TestLib;
use Test::More tests => $ENV{NO_TMPFS} ? 1 : 22;

# skip tests if NO_TMPFS is set
if ($ENV{NO_TMPFS}) {
    pass 'Skipping disk full tests, NO_TMPFS is set';
    exit;
}

# we are using unshare here, won't work with systemd
$ENV{_SYSTEMCTL_SKIP_REDIRECT} = 1;

my $outref;

#
note 'check that a failed pg_createcluster leaves no cruft behind: try creating a cluster on a 10 MB tmpfs';
my $cmd = <<EOF;
exec 2>&1
set -e
mount --make-rprivate / 2> /dev/null || :
mkdir -p /var/lib/postgresql
trap "umount /var/lib/postgresql" 0 HUP INT QUIT ILL ABRT PIPE TERM
mount -t tmpfs -o size=10000000 none /var/lib/postgresql
# this is supposed to fail
LC_MESSAGES=C pg_createcluster $MAJORS[-1] test && exit 1 || true
echo -n "ls>"
# should not output anything
ls /etc/postgresql
ls /var/lib/postgresql
echo "<ls"
EOF

my $result;
$result = exec_as 'root', "echo '$cmd' | unshare -m sh", $outref;

is $result, 0, 'script failed';
like $$outref, qr/No space left on device/i,
    'pg_createcluster fails due to insufficient disk space';
like $$outref, qr/\nls><ls\n/, 'does not leave files behind';

check_clean;

#
note 'check disk full conditions on startup';
my $cmd = <<EOF;
set -e
mount --make-rprivate / 2> /dev/null || :
export LC_MESSAGES=C
dirs="/etc/postgresql /var/lib/postgresql /var/log/postgresql"
mkdir -p \$dirs
trap "umount \$dirs" 0 HUP INT QUIT ILL ABRT PIPE TERM
mount -t tmpfs -o size=1000000 none /etc/postgresql
# an empty cluster needs 69MB on ppc64el, round up to 90
mount -t tmpfs -o size=90000000 none /var/lib/postgresql
mount -t tmpfs -o size=1000000 none /var/log/postgresql
pg_createcluster $MAJORS[-1] test

# fill up /var/lib/postgresql
! cat < /dev/zero > /var/lib/postgresql/cruft 2>/dev/null
echo '-- full lib --'
! pg_ctlcluster $MAJORS[-1] test start
echo '-- end full lib --'
echo '-- full lib log --'
cat /var/log/postgresql/postgresql-$MAJORS[-1]-test.log
echo '-- end full lib log --'
rm /var/lib/postgresql/cruft
pg_dropcluster $MAJORS[-1] test --stop
EOF

$result = exec_as 'root', "echo '$cmd' | unshare -m sh", $outref;
is $result, 0, 'script failed';
like $$outref, qr/^-- full lib --.*No space left on device.*^-- end full lib --/ims,
    'pg_ctlcluster prints error message';
like $$outref, qr/^-- full lib log --.*No space left on device.*^-- end full lib log --/ims,
    'log file has error message';

check_clean;

# vim: filetype=perl

cancel