/usr/share/postgresql-common/t/025_logging.t is in postgresql-common 173.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 | # Test various logging-related things
use strict;
use lib 't';
use TestLib;
use PgCommon;
use Test::More tests => 57 * ($#MAJORS+1);
my $syslog_works = 0;
sub check_logging ($$)
{
my ($text, $msg) = @_;
my $ls = `pg_lsclusters -h`;
$ls =~ s/\s+/ /g;
$ls =~ s/\s*$//;
like $ls, $text, $msg;
}
sub check_major {
my $v = $_[0];
note "Running tests for $v";
my $pgdata = "/var/lib/postgresql/$v/main";
# create cluster
ok ((system "pg_createcluster $v main --start >/dev/null") == 0,
"pg_createcluster $v main");
# default log setup
my $default_log = "/var/log/postgresql/postgresql-$v-main.log";
check_logging qr($v main 5432 online postgres $pgdata $default_log), "pg_lscluster reports logfile $default_log";
like_program_out 'postgres', "psql -qc \"foobar$$\"", 1, qr/syntax error.*foobar$$/, 'log an error';
like_program_out 'postgres', "grep foobar$$ $default_log", 0, qr/syntax error.*foobar$$/, 'error appears in logfile';
# syslog
is_program_out 0, "pg_conftool $v main set log_destination syslog", 0, "", "set log_destination syslog";
is_program_out 0, "pg_ctlcluster $v main reload", 0, "", "$v main reload";
is_program_out 'postgres', "psql -Atc \"show log_destination\"", 0, "syslog\n", 'log_destination is syslog';
check_logging qr($v main 5432 online postgres $pgdata syslog), "pg_lscluster reports syslog";
SKIP: {
skip "/var/log/syslog not available", 2 unless ($syslog_works);
like_program_out 0, "grep 'postgres.*parameter \"log_destination\" changed to \"syslog\"' /var/log/syslog", 0, qr/log_destination/, 'error appears in /var/log/syslog';
}
# turn logging_collector on, csvlog
is_program_out 0, "pg_conftool $v main set logging_collector on", 0, "", "set logging_collector on";
is_program_out 0, "pg_conftool $v main set log_destination csvlog", 0, "", "set log_destination csvlog";
is_program_out 0, "pg_ctlcluster $v main restart", 0, "", "$v main restart";
is_program_out 'postgres', "psql -Atc \"show logging_collector\"", 0, "on\n", 'logging_collector is on';
is_program_out 'postgres', "psql -Atc \"show log_destination\"", 0, "csvlog\n", 'log_destination is csvlog';
check_logging qr($v main 5432 online postgres $pgdata pg_log/.*\.csv), "pg_lscluster reports csvlog";
like_program_out 'postgres', "psql -qc \"barbaz$$\"", 1, qr/syntax error.*barbaz$$/, 'log an error';
like_program_out 'postgres', "grep barbaz$$ $pgdata/pg_log/*.csv", 0, qr/syntax error.*barbaz$$/, 'error appears in pg_log/*.csv';
# stderr,syslog,csvlog
is_program_out 0, "pg_conftool $v main set log_destination stderr,syslog,csvlog", 0, "", "set log_destination stderr,syslog,csvlog";
is_program_out 0, "pg_ctlcluster $v main reload", 0, "", "$v main reload";
is_program_out 'postgres', "psql -Atc \"show log_destination\"", 0, "stderr,syslog,csvlog\n", 'log_destination is stderr,syslog,csvlog';
check_logging qr($v main 5432 online postgres $pgdata pg_log/.*\.log,syslog,pg_log/.*\.csv), "pg_lscluster reports stderr,syslog,csvlog";
like_program_out 'postgres', "psql -qc \"moo$$\"", 1, qr/syntax error.*moo$$/, 'log an error';
like_program_out 'postgres', "grep moo$$ $pgdata/pg_log/*.log", 0, qr/syntax error.*moo$$/, 'error appears in pg_log/*.log';
SKIP: {
skip "/var/log/syslog not available", 2 unless ($syslog_works);
like_program_out 0, "grep 'postgres.*moo$$' /var/log/syslog", 0, qr/moo$$/, 'error appears in /var/log/syslog';
}
like_program_out 'postgres', "grep moo$$ $pgdata/pg_log/*.csv", 0, qr/syntax error.*moo$$/, 'error appears in pg_log/*.csv';
# stop server, clean up, check for leftovers
is_program_out 0, "pg_dropcluster $v main --stop", 0, "", 'pg_dropcluster removes cluster';
check_clean;
}
system "logger -t '$0' 'test$$'";
if (system ("grep -q 'test$$' /var/log/syslog 2> /dev/null") == 0) {
note 'Logging to /var/log/syslog works';
$syslog_works = 1;
} else {
note 'Logging to /var/log/syslog does not work, skipping some syslog tests';
}
foreach (@MAJORS) {
check_major $_;
}
# vim: filetype=perl
|