mirror of
https://git.postgresql.org/git/postgresql.git
synced 2024-08-22 13:03:22 +02:00
56 lines
1.4 KiB
Perl
56 lines
1.4 KiB
Perl
|
|
# Copyright (c) 2021-2022, PostgreSQL Global Development Group
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PostgreSQL::Test::Cluster;
|
|
use PostgreSQL::Test::Utils;
|
|
use Test::More tests => 4;
|
|
|
|
my $node = PostgreSQL::Test::Cluster->new('main');
|
|
$node->init;
|
|
$node->append_conf('postgresql.conf',
|
|
"shared_preload_libraries = 'auto_explain'");
|
|
$node->append_conf('postgresql.conf', "auto_explain.log_min_duration = 0");
|
|
$node->append_conf('postgresql.conf', "auto_explain.log_analyze = on");
|
|
$node->start;
|
|
|
|
# run a couple of queries
|
|
$node->safe_psql("postgres", "SELECT * FROM pg_class;");
|
|
$node->safe_psql("postgres",
|
|
"SELECT * FROM pg_proc WHERE proname = 'int4pl';");
|
|
|
|
# emit some json too
|
|
$node->append_conf('postgresql.conf', "auto_explain.log_format = json");
|
|
$node->reload;
|
|
$node->safe_psql("postgres", "SELECT * FROM pg_proc;");
|
|
$node->safe_psql("postgres",
|
|
"SELECT * FROM pg_class WHERE relname = 'pg_class';");
|
|
|
|
$node->stop('fast');
|
|
|
|
my $log = $node->logfile();
|
|
|
|
my $log_contents = slurp_file($log);
|
|
|
|
like(
|
|
$log_contents,
|
|
qr/Seq Scan on pg_class/,
|
|
"sequential scan logged, text mode");
|
|
|
|
like(
|
|
$log_contents,
|
|
qr/Index Scan using pg_proc_proname_args_nsp_index on pg_proc/,
|
|
"index scan logged, text mode");
|
|
|
|
like(
|
|
$log_contents,
|
|
qr/"Node Type": "Seq Scan"[^}]*"Relation Name": "pg_proc"/s,
|
|
"sequential scan logged, json mode");
|
|
|
|
like(
|
|
$log_contents,
|
|
qr/"Node Type": "Index Scan"[^}]*"Index Name": "pg_class_relname_nsp_index"/s,
|
|
"index scan logged, json mode");
|