2021-05-07 16:56:14 +02:00
2022-01-08 01:04:57 +01:00
# Copyright (c) 2021-2022, PostgreSQL Global Development Group
2021-05-07 16:56:14 +02:00
2014-04-15 03:33:46 +02:00
use strict ;
use warnings ;
Refactor Perl test code
The original code was a bit clunky; make it more amenable for further
reuse by creating a new Perl package PostgresNode, which is an
object-oriented representation of a single server, with some support
routines such as init, start, stop, psql. This serves as a better basis
on which to build further test code, and enables writing tests that use
more than one server without too much complication.
This commit modifies a lot of the existing test files, mostly to remove
explicit calls to system commands (pg_ctl) replacing them with method
calls of a PostgresNode object. The result is quite a bit more
straightforward.
Also move some initialization code to BEGIN and INIT blocks instead of
having it straight in as top-level code.
This commit also introduces package RecursiveCopy so that we can copy
whole directories without having to depend on packages that may not be
present on vanilla Perl 5.8 installations.
I also ran perltidy on the modified files, which changes some code sites
that are not otherwise touched by this patch. I tried to avoid this,
but it ended up being more trouble than it's worth.
Authors: Michael Paquier, Álvaro Herrera
Review: Noah Misch
2015-12-02 22:46:16 +01:00
2021-10-24 16:28:19 +02:00
use PostgreSQL::Test::Cluster ;
use PostgreSQL::Test::Utils ;
2022-02-11 20:54:44 +01:00
use Test::More ;
2014-04-15 03:33:46 +02:00
program_help_ok ( 'createdb' ) ;
program_version_ok ( 'createdb' ) ;
program_options_handling_ok ( 'createdb' ) ;
2021-10-24 16:28:19 +02:00
my $ node = PostgreSQL::Test::Cluster - > new ( 'main' ) ;
Refactor Perl test code
The original code was a bit clunky; make it more amenable for further
reuse by creating a new Perl package PostgresNode, which is an
object-oriented representation of a single server, with some support
routines such as init, start, stop, psql. This serves as a better basis
on which to build further test code, and enables writing tests that use
more than one server without too much complication.
This commit modifies a lot of the existing test files, mostly to remove
explicit calls to system commands (pg_ctl) replacing them with method
calls of a PostgresNode object. The result is quite a bit more
straightforward.
Also move some initialization code to BEGIN and INIT blocks instead of
having it straight in as top-level code.
This commit also introduces package RecursiveCopy so that we can copy
whole directories without having to depend on packages that may not be
present on vanilla Perl 5.8 installations.
I also ran perltidy on the modified files, which changes some code sites
that are not otherwise touched by this patch. I tried to avoid this,
but it ended up being more trouble than it's worth.
Authors: Michael Paquier, Álvaro Herrera
Review: Noah Misch
2015-12-02 22:46:16 +01:00
$ node - > init ;
$ node - > start ;
2014-04-15 03:33:46 +02:00
Refactor Perl test code
The original code was a bit clunky; make it more amenable for further
reuse by creating a new Perl package PostgresNode, which is an
object-oriented representation of a single server, with some support
routines such as init, start, stop, psql. This serves as a better basis
on which to build further test code, and enables writing tests that use
more than one server without too much complication.
This commit modifies a lot of the existing test files, mostly to remove
explicit calls to system commands (pg_ctl) replacing them with method
calls of a PostgresNode object. The result is quite a bit more
straightforward.
Also move some initialization code to BEGIN and INIT blocks instead of
having it straight in as top-level code.
This commit also introduces package RecursiveCopy so that we can copy
whole directories without having to depend on packages that may not be
present on vanilla Perl 5.8 installations.
I also ran perltidy on the modified files, which changes some code sites
that are not otherwise touched by this patch. I tried to avoid this,
but it ended up being more trouble than it's worth.
Authors: Michael Paquier, Álvaro Herrera
Review: Noah Misch
2015-12-02 22:46:16 +01:00
$ node - > issues_sql_like (
2014-04-15 03:33:46 +02:00
[ 'createdb' , 'foobar1' ] ,
qr/statement: CREATE DATABASE foobar1/ ,
'SQL CREATE DATABASE run' ) ;
Refactor Perl test code
The original code was a bit clunky; make it more amenable for further
reuse by creating a new Perl package PostgresNode, which is an
object-oriented representation of a single server, with some support
routines such as init, start, stop, psql. This serves as a better basis
on which to build further test code, and enables writing tests that use
more than one server without too much complication.
This commit modifies a lot of the existing test files, mostly to remove
explicit calls to system commands (pg_ctl) replacing them with method
calls of a PostgresNode object. The result is quite a bit more
straightforward.
Also move some initialization code to BEGIN and INIT blocks instead of
having it straight in as top-level code.
This commit also introduces package RecursiveCopy so that we can copy
whole directories without having to depend on packages that may not be
present on vanilla Perl 5.8 installations.
I also ran perltidy on the modified files, which changes some code sites
that are not otherwise touched by this patch. I tried to avoid this,
but it ended up being more trouble than it's worth.
Authors: Michael Paquier, Álvaro Herrera
Review: Noah Misch
2015-12-02 22:46:16 +01:00
$ node - > issues_sql_like (
2015-04-04 19:34:23 +02:00
[ 'createdb' , '-l' , 'C' , '-E' , 'LATIN1' , '-T' , 'template0' , 'foobar2' ] ,
2014-04-15 03:33:46 +02:00
qr/statement: CREATE DATABASE foobar2 ENCODING 'LATIN1'/ ,
'create database with encoding' ) ;
2022-03-17 11:11:21 +01:00
if ( $ ENV { with_icu } eq 'yes' )
{
# This fails because template0 uses libc provider and has no ICU
# locale set. It would succeed if template0 used the icu
# provider. XXX Maybe split into multiple tests?
$ node - > command_fails (
[ 'createdb' , '-T' , 'template0' , '--locale-provider=icu' , 'foobar4' ] ,
'create database with ICU fails without ICU locale specified' ) ;
$ node - > issues_sql_like (
[ 'createdb' , '-T' , 'template0' , '--locale-provider=icu' , '--icu-locale=en' , 'foobar5' ] ,
qr/statement: CREATE DATABASE foobar5 .* LOCALE_PROVIDER icu ICU_LOCALE 'en'/ ,
'create database with ICU locale specified' ) ;
$ node - > command_fails (
[ 'createdb' , '-T' , 'template0' , '--locale-provider=icu' , '--icu-locale=@colNumeric=lower' , 'foobarX' ] ,
'fails for invalid ICU locale' ) ;
}
else
{
$ node - > command_fails (
[ 'createdb' , '-T' , 'template0' , '--locale-provider=icu' , 'foobar4' ] ,
'create database with ICU fails since no ICU support' ) ;
}
Refactor Perl test code
The original code was a bit clunky; make it more amenable for further
reuse by creating a new Perl package PostgresNode, which is an
object-oriented representation of a single server, with some support
routines such as init, start, stop, psql. This serves as a better basis
on which to build further test code, and enables writing tests that use
more than one server without too much complication.
This commit modifies a lot of the existing test files, mostly to remove
explicit calls to system commands (pg_ctl) replacing them with method
calls of a PostgresNode object. The result is quite a bit more
straightforward.
Also move some initialization code to BEGIN and INIT blocks instead of
having it straight in as top-level code.
This commit also introduces package RecursiveCopy so that we can copy
whole directories without having to depend on packages that may not be
present on vanilla Perl 5.8 installations.
I also ran perltidy on the modified files, which changes some code sites
that are not otherwise touched by this patch. I tried to avoid this,
but it ended up being more trouble than it's worth.
Authors: Michael Paquier, Álvaro Herrera
Review: Noah Misch
2015-12-02 22:46:16 +01:00
$ node - > command_fails ( [ 'createdb' , 'foobar1' ] ,
'fails if database already exists' ) ;
2021-10-27 09:02:19 +02:00
2022-03-17 11:11:21 +01:00
$ node - > command_fails ( [ 'createdb' , '-T' , 'template0' , '--locale-provider=xyz' , 'foobarX' ] ,
'fails for invalid locale provider' ) ;
2021-10-27 09:02:19 +02:00
# Check use of templates with shared dependencies copied from the template.
my ( $ ret , $ stdout , $ stderr ) = $ node - > psql (
'foobar2' ,
' CREATE ROLE role_foobar ;
CREATE TABLE tab_foobar ( id int ) ;
ALTER TABLE tab_foobar owner to role_foobar ;
CREATE POLICY pol_foobar ON tab_foobar FOR ALL TO role_foobar ; ' ) ;
$ node - > issues_sql_like (
[ 'createdb' , '-l' , 'C' , '-T' , 'foobar2' , 'foobar3' ] ,
qr/statement: CREATE DATABASE foobar3 TEMPLATE foobar2/ ,
'create database with template' ) ;
( $ ret , $ stdout , $ stderr ) = $ node - > psql (
'foobar3' ,
" SELECT pg_describe_object ( classid , objid , objsubid ) AS obj ,
pg_describe_object ( refclassid , refobjid , 0 ) AS refobj
FROM pg_shdepend s JOIN pg_database d ON ( d . oid = s . dbid )
WHERE d . datname = 'foobar3' ORDER BY obj ; " , on_error_die = > 1 ) ;
chomp ( $ stdout ) ;
like (
$ stdout ,
qr / ^ policy pol_foobar on table tab_foobar \ | role role_foobar
table tab_foobar \ | role role_foobar $/ ,
'shared dependencies copied over to target database' ) ;
2020-02-27 03:20:46 +01:00
# Check quote handling with incorrect option values.
$ node - > command_checks_all (
[ 'createdb' , '--encoding' , "foo'; SELECT '1" , 'foobar2' ] ,
1 ,
[ qr/^$/ ] ,
[ qr/^createdb: error: "foo'; SELECT '1" is not a valid encoding name/ s ] ,
2021-01-08 02:36:09 +01:00
'createdb with incorrect --encoding' ) ;
2020-02-27 03:20:46 +01:00
$ node - > command_checks_all (
[ 'createdb' , '--lc-collate' , "foo'; SELECT '1" , 'foobar2' ] ,
1 ,
[ qr/^$/ ] ,
[
2021-01-08 02:36:09 +01:00
qr/^createdb: error: database creation failed: ERROR: invalid locale name|^createdb: error: database creation failed: ERROR: new collation \(foo'; SELECT '1\) is incompatible with the collation of the template database/ s
2020-02-27 03:20:46 +01:00
] ,
'createdb with incorrect --lc-collate' ) ;
2021-01-08 02:36:09 +01:00
$ node - > command_checks_all (
[ 'createdb' , '--lc-ctype' , "foo'; SELECT '1" , 'foobar2' ] ,
1 ,
[ qr/^$/ ] ,
[
qr/^createdb: error: database creation failed: ERROR: invalid locale name|^createdb: error: database creation failed: ERROR: new LC_CTYPE \(foo'; SELECT '1\) is incompatible with the LC_CTYPE of the template database/ s
] ,
'createdb with incorrect --lc-ctype' ) ;
2022-02-11 20:54:44 +01:00
Add new block-by-block strategy for CREATE DATABASE.
Because this strategy logs changes on a block-by-block basis, it
avoids the need to checkpoint before and after the operation.
However, because it logs each changed block individually, it might
generate a lot of extra write-ahead logging if the template database
is large. Therefore, the older strategy remains available via a new
STRATEGY parameter to CREATE DATABASE, and a corresponding --strategy
option to createdb.
Somewhat controversially, this patch assembles the list of relations
to be copied to the new database by reading the pg_class relation of
the template database. Cross-database access like this isn't normally
possible, but it can be made to work here because there can't be any
connections to the database being copied, nor can it contain any
in-doubt transactions. Even so, we have to use lower-level interfaces
than normal, since the table scan and relcache interfaces will not
work for a database to which we're not connected. The advantage of
this approach is that we do not need to rely on the filesystem to
determine what ought to be copied, but instead on PostgreSQL's own
knowledge of the database structure. This avoids, for example,
copying stray files that happen to be located in the source database
directory.
Dilip Kumar, with a fairly large number of cosmetic changes by me.
Reviewed and tested by Ashutosh Sharma, Andres Freund, John Naylor,
Greg Nancarrow, Neha Sharma. Additional feedback from Bruce Momjian,
Heikki Linnakangas, Julien Rouhaud, Adam Brusselback, Kyotaro
Horiguchi, Tomas Vondra, Andrew Dunstan, Álvaro Herrera, and others.
Discussion: http://postgr.es/m/CA+TgmoYtcdxBjLh31DLxUXHxFVMPGzrU5_T=CYCvRyFHywSBUQ@mail.gmail.com
2022-03-29 17:31:43 +02:00
$ node - > command_checks_all (
[ 'createdb' , '--strategy' , "foo" , 'foobar2' ] ,
1 ,
[ qr/^$/ ] ,
[
qr/^createdb: error: database creation failed: ERROR: invalid create database strategy|^createdb: error: database creation failed: ERROR: invalid create database strategy foo/ s
] ,
'createdb with incorrect --strategy' ) ;
# Check database creation strategy
$ node - > issues_sql_like (
[ 'createdb' , '-T' , 'foobar2' , 'foobar6' , '-S' , 'wal_log' ] ,
qr/statement: CREATE DATABASE foobar6 STRATEGY wal_log TEMPLATE foobar2/ ,
'create database with WAL_LOG strategy' ) ;
$ node - > issues_sql_like (
[ 'createdb' , '-T' , 'foobar2' , 'foobar7' , '-S' , 'file_copy' ] ,
qr/statement: CREATE DATABASE foobar7 STRATEGY file_copy TEMPLATE foobar2/ ,
'create database with FILE_COPY strategy' ) ;
2022-02-11 20:54:44 +01:00
done_testing ( ) ;