200 lines
7.5 KiB
Perl
200 lines
7.5 KiB
Perl
|
|
# Copyright (c) 2021-2023, PostgreSQL Global Development Group
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use PostgreSQL::Test::Cluster;
|
|
use PostgreSQL::Test::Utils;
|
|
use Test::More;
|
|
|
|
program_help_ok('vacuumdb');
|
|
program_version_ok('vacuumdb');
|
|
program_options_handling_ok('vacuumdb');
|
|
|
|
my $node = PostgreSQL::Test::Cluster->new('main');
|
|
$node->init;
|
|
$node->start;
|
|
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', 'postgres' ],
|
|
qr/statement: VACUUM.*;/,
|
|
'SQL VACUUM run');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '-f', 'postgres' ],
|
|
qr/statement: VACUUM \(SKIP_DATABASE_STATS, FULL\).*;/,
|
|
'vacuumdb -f');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '-F', 'postgres' ],
|
|
qr/statement: VACUUM \(SKIP_DATABASE_STATS, FREEZE\).*;/,
|
|
'vacuumdb -F');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '-zj2', 'postgres' ],
|
|
qr/statement: VACUUM \(SKIP_DATABASE_STATS, ANALYZE\).*;/,
|
|
'vacuumdb -zj2');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '-Z', 'postgres' ],
|
|
qr/statement: ANALYZE.*;/,
|
|
'vacuumdb -Z');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--disable-page-skipping', 'postgres' ],
|
|
qr/statement: VACUUM \(DISABLE_PAGE_SKIPPING, SKIP_DATABASE_STATS\).*;/,
|
|
'vacuumdb --disable-page-skipping');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--skip-locked', 'postgres' ],
|
|
qr/statement: VACUUM \(SKIP_DATABASE_STATS, SKIP_LOCKED\).*;/,
|
|
'vacuumdb --skip-locked');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--skip-locked', '--analyze-only', 'postgres' ],
|
|
qr/statement: ANALYZE \(SKIP_LOCKED\).*;/,
|
|
'vacuumdb --skip-locked --analyze-only');
|
|
$node->command_fails(
|
|
[ 'vacuumdb', '--analyze-only', '--disable-page-skipping', 'postgres' ],
|
|
'--analyze-only and --disable-page-skipping specified together');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--no-index-cleanup', 'postgres' ],
|
|
qr/statement: VACUUM \(INDEX_CLEANUP FALSE, SKIP_DATABASE_STATS\).*;/,
|
|
'vacuumdb --no-index-cleanup');
|
|
$node->command_fails(
|
|
[ 'vacuumdb', '--analyze-only', '--no-index-cleanup', 'postgres' ],
|
|
'--analyze-only and --no-index-cleanup specified together');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--no-truncate', 'postgres' ],
|
|
qr/statement: VACUUM \(TRUNCATE FALSE, SKIP_DATABASE_STATS\).*;/,
|
|
'vacuumdb --no-truncate');
|
|
$node->command_fails(
|
|
[ 'vacuumdb', '--analyze-only', '--no-truncate', 'postgres' ],
|
|
'--analyze-only and --no-truncate specified together');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--no-process-main', 'postgres' ],
|
|
qr/statement: VACUUM \(PROCESS_MAIN FALSE, SKIP_DATABASE_STATS\).*;/,
|
|
'vacuumdb --no-process-main');
|
|
$node->command_fails(
|
|
[ 'vacuumdb', '--analyze-only', '--no-process-main', 'postgres' ],
|
|
'--analyze-only and --no-process-main specified together');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--no-process-toast', 'postgres' ],
|
|
qr/statement: VACUUM \(PROCESS_TOAST FALSE, SKIP_DATABASE_STATS\).*;/,
|
|
'vacuumdb --no-process-toast');
|
|
$node->command_fails(
|
|
[ 'vacuumdb', '--analyze-only', '--no-process-toast', 'postgres' ],
|
|
'--analyze-only and --no-process-toast specified together');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '-P', 2, 'postgres' ],
|
|
qr/statement: VACUUM \(SKIP_DATABASE_STATS, PARALLEL 2\).*;/,
|
|
'vacuumdb -P 2');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '-P', 0, 'postgres' ],
|
|
qr/statement: VACUUM \(SKIP_DATABASE_STATS, PARALLEL 0\).*;/,
|
|
'vacuumdb -P 0');
|
|
$node->command_ok([qw(vacuumdb -Z --table=pg_am dbname=template1)],
|
|
'vacuumdb with connection string');
|
|
|
|
$node->command_fails(
|
|
[qw(vacuumdb -Zt pg_am;ABORT postgres)],
|
|
'trailing command in "-t", without COLUMNS');
|
|
|
|
# Unwanted; better if it failed.
|
|
$node->command_ok(
|
|
[qw(vacuumdb -Zt pg_am(amname);ABORT postgres)],
|
|
'trailing command in "-t", with COLUMNS');
|
|
|
|
$node->safe_psql(
|
|
'postgres', q|
|
|
CREATE TABLE "need""q(uot" (")x" text);
|
|
CREATE TABLE vactable (a int, b int);
|
|
CREATE VIEW vacview AS SELECT 1 as a;
|
|
|
|
CREATE FUNCTION f0(int) RETURNS int LANGUAGE SQL AS 'SELECT $1 * $1';
|
|
CREATE FUNCTION f1(int) RETURNS int LANGUAGE SQL AS 'SELECT f0($1)';
|
|
CREATE TABLE funcidx (x int);
|
|
INSERT INTO funcidx VALUES (0),(1),(2),(3);
|
|
CREATE INDEX i0 ON funcidx ((f1(x)));
|
|
CREATE SCHEMA "Foo";
|
|
CREATE TABLE "Foo".bar(id int);
|
|
|);
|
|
$node->command_ok([qw|vacuumdb -Z --table="need""q(uot"(")x") postgres|],
|
|
'column list');
|
|
$node->command_fails(
|
|
[qw|vacuumdb -Zt funcidx postgres|],
|
|
'unqualified name via functional index');
|
|
|
|
$node->command_fails(
|
|
[ 'vacuumdb', '--analyze', '--table', 'vactable(c)', 'postgres' ],
|
|
'incorrect column name with ANALYZE');
|
|
$node->command_fails([ 'vacuumdb', '-P', -1, 'postgres' ],
|
|
'negative parallel degree');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--analyze', '--table', 'vactable(a, b)', 'postgres' ],
|
|
qr/statement: VACUUM \(SKIP_DATABASE_STATS, ANALYZE\) public.vactable\(a, b\);/,
|
|
'vacuumdb --analyze with complete column list');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--analyze-only', '--table', 'vactable(b)', 'postgres' ],
|
|
qr/statement: ANALYZE public.vactable\(b\);/,
|
|
'vacuumdb --analyze-only with partial column list');
|
|
$node->command_checks_all(
|
|
[ 'vacuumdb', '--analyze', '--table', 'vacview', 'postgres' ],
|
|
0,
|
|
[qr/^.*vacuuming database "postgres"/],
|
|
[qr/^WARNING.*cannot vacuum non-tables or special system tables/s],
|
|
'vacuumdb with view');
|
|
$node->command_fails(
|
|
[ 'vacuumdb', '--table', 'vactable', '--min-mxid-age', '0', 'postgres' ],
|
|
'vacuumdb --min-mxid-age with incorrect value');
|
|
$node->command_fails(
|
|
[ 'vacuumdb', '--table', 'vactable', '--min-xid-age', '0', 'postgres' ],
|
|
'vacuumdb --min-xid-age with incorrect value');
|
|
$node->issues_sql_like(
|
|
[
|
|
'vacuumdb', '--table', 'vactable', '--min-mxid-age',
|
|
'2147483000', 'postgres'
|
|
],
|
|
qr/GREATEST.*relminmxid.*2147483000/,
|
|
'vacuumdb --table --min-mxid-age');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--min-xid-age', '2147483001', 'postgres' ],
|
|
qr/GREATEST.*relfrozenxid.*2147483001/,
|
|
'vacuumdb --table --min-xid-age');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--schema', '"Foo"', 'postgres' ],
|
|
qr/VACUUM \(SKIP_DATABASE_STATS\) "Foo".bar/,
|
|
'vacuumdb --schema');
|
|
$node->issues_sql_like(
|
|
[ 'vacuumdb', '--exclude-schema', '"Foo"', 'postgres' ],
|
|
qr/(?:(?!VACUUM "Foo".bar).)*/,
|
|
'vacuumdb --exclude-schema');
|
|
$node->command_fails_like(
|
|
[ 'vacuumdb', '-N', 'pg_catalog', '-t', 'pg_class', 'postgres', ],
|
|
qr/cannot vacuum specific table\(s\) and exclude schema\(s\) at the same time/,
|
|
'cannot use options -N and -t at the same time');
|
|
$node->command_fails_like(
|
|
[ 'vacuumdb', '-n', 'pg_catalog', '-t', 'pg_class', 'postgres' ],
|
|
qr/cannot vacuum all tables in schema\(s\) and specific table\(s\) at the same time/,
|
|
'cannot use options -n and -t at the same time');
|
|
$node->command_fails_like(
|
|
[ 'vacuumdb', '-n', 'pg_catalog', '-N', '"Foo"', 'postgres' ],
|
|
qr/cannot vacuum all tables in schema\(s\) and exclude schema\(s\) at the same time/,
|
|
'cannot use options -n and -N at the same time');
|
|
$node->command_fails_like(
|
|
[ 'vacuumdb', '-a', '-N', '"Foo"' ],
|
|
qr/cannot exclude specific schema\(s\) in all databases/,
|
|
'cannot use options -a and -N at the same time');
|
|
$node->command_fails_like(
|
|
[ 'vacuumdb', '-a', '-n', '"Foo"' ],
|
|
qr/cannot vacuum specific schema\(s\) in all databases/,
|
|
'cannot use options -a and -n at the same time');
|
|
$node->command_fails_like(
|
|
[ 'vacuumdb', '-a', '-t', '"Foo".bar' ],
|
|
qr/cannot vacuum specific table\(s\) in all databases/,
|
|
'cannot use options -a and -t at the same time');
|
|
$node->command_fails_like(
|
|
[ 'vacuumdb', '-a', '-d', 'postgres' ],
|
|
qr/cannot vacuum all databases and a specific one at the same time/,
|
|
'cannot use options -a and -d at the same time');
|
|
$node->command_fails_like(
|
|
[ 'vacuumdb', '-a', 'postgres' ],
|
|
qr/cannot vacuum all databases and a specific one at the same time/,
|
|
'cannot use option -a and a dbname as argument at the same time');
|
|
|
|
done_testing();
|