@ -18,16 +18,27 @@ $node->init;
$ node - > start ;
my $ pgdata = $ node - > data_dir ;
# Create an unlogged table to test that forks other than init are not
# copied.
# Create an unlogged table and an unlogged sequence to test that forks
# other than init are not copied.
$ node - > safe_psql ( 'postgres' , 'CREATE UNLOGGED TABLE base_unlogged (id int)' ) ;
$ node - > safe_psql ( 'postgres' , 'CREATE UNLOGGED SEQUENCE seq_unlogged' ) ;
my $ baseUnloggedPath = $ node - > safe_psql ( 'postgres' ,
q{ select pg_relation_filepath('base_unlogged') } ) ;
my $ seqUnloggedPath = $ node - > safe_psql ( 'postgres' ,
q{ select pg_relation_filepath('seq_unlogged') } ) ;
# Test that main and init forks exist.
ok ( - f "$pgdata/${baseUnloggedPath}_init" , 'init fork in base exists' ) ;
ok ( - f "$pgdata/$baseUnloggedPath" , 'main fork in base exists' ) ;
ok ( - f "$pgdata/${baseUnloggedPath}_init" , 'table init fork exists' ) ;
ok ( - f "$pgdata/$baseUnloggedPath" , 'table main fork exists' ) ;
ok ( - f "$pgdata/${seqUnloggedPath}_init" , 'sequence init fork exists' ) ;
ok ( - f "$pgdata/$seqUnloggedPath" , 'sequence main fork exists' ) ;
# Test the sequence
is ( $ node - > safe_psql ( 'postgres' , "SELECT nextval('seq_unlogged')" ) ,
1 , 'sequence nextval' ) ;
is ( $ node - > safe_psql ( 'postgres' , "SELECT nextval('seq_unlogged')" ) ,
2 , 'sequence nextval again' ) ;
# Create an unlogged table in a tablespace.
@ -44,6 +55,19 @@ my $ts1UnloggedPath = $node->safe_psql('postgres',
ok ( - f "$pgdata/${ts1UnloggedPath}_init" , 'init fork in tablespace exists' ) ;
ok ( - f "$pgdata/$ts1UnloggedPath" , 'main fork in tablespace exists' ) ;
# Create more unlogged sequences for testing.
$ node - > safe_psql ( 'postgres' , 'CREATE UNLOGGED SEQUENCE seq_unlogged2' ) ;
# This rewrites the sequence relation in AlterSequence().
$ node - > safe_psql ( 'postgres' , 'ALTER SEQUENCE seq_unlogged2 INCREMENT 2' ) ;
$ node - > safe_psql ( 'postgres' , "SELECT nextval('seq_unlogged2')" ) ;
$ node - > safe_psql ( 'postgres' ,
'CREATE UNLOGGED TABLE tab_seq_unlogged3 (a int GENERATED ALWAYS AS IDENTITY)'
) ;
# This rewrites the sequence relation in ResetSequence().
$ node - > safe_psql ( 'postgres' , 'TRUNCATE tab_seq_unlogged3 RESTART IDENTITY' ) ;
$ node - > safe_psql ( 'postgres' , 'INSERT INTO tab_seq_unlogged3 DEFAULT VALUES' ) ;
# Crash the postmaster.
$ node - > stop ( 'immediate' ) ;
@ -54,6 +78,8 @@ append_to_file("$pgdata/${baseUnloggedPath}_fsm", 'TEST_FSM');
# Remove main fork to test that it is recopied from init.
unlink ( "$pgdata/${baseUnloggedPath}" )
or BAIL_OUT ( "could not remove \"${baseUnloggedPath}\": $!" ) ;
unlink ( "$pgdata/${seqUnloggedPath}" )
or BAIL_OUT ( "could not remove \"${seqUnloggedPath}\": $!" ) ;
# the same for the tablespace
append_to_file ( "$pgdata/${ts1UnloggedPath}_vm" , 'TEST_VM' ) ;
@ -64,13 +90,25 @@ unlink("$pgdata/${ts1UnloggedPath}")
$ node - > start ;
# check unlogged table in base
ok ( - f "$pgdata/${baseUnloggedPath}_init" , 'init fork in base still exists' ) ;
ok ( - f "$pgdata/$baseUnloggedPath" , 'main fork in base recreated at startup' ) ;
ok ( - f "$pgdata/${baseUnloggedPath}_init" ,
'table init fork in base still exists' ) ;
ok ( - f "$pgdata/$baseUnloggedPath" ,
'table main fork in base recreated at startup' ) ;
ok ( ! - f "$pgdata/${baseUnloggedPath}_vm" ,
'vm fork in base removed at startup' ) ;
ok ( ! - f "$pgdata/${baseUnloggedPath}_fsm" ,
'fsm fork in base removed at startup' ) ;
# check unlogged sequence
ok ( - f "$pgdata/${seqUnloggedPath}_init" , 'sequence init fork still exists' ) ;
ok ( - f "$pgdata/$seqUnloggedPath" , 'sequence main fork recreated at startup' ) ;
# Test the sequence after restart
is ( $ node - > safe_psql ( 'postgres' , "SELECT nextval('seq_unlogged')" ) ,
1 , 'sequence nextval after restart' ) ;
is ( $ node - > safe_psql ( 'postgres' , "SELECT nextval('seq_unlogged')" ) ,
2 , 'sequence nextval after restart again' ) ;
# check unlogged table in tablespace
ok ( - f "$pgdata/${ts1UnloggedPath}_init" ,
'init fork still exists in tablespace' ) ;
@ -81,4 +119,15 @@ ok( !-f "$pgdata/${ts1UnloggedPath}_vm",
ok ( ! - f "$pgdata/${ts1UnloggedPath}_fsm" ,
'fsm fork in tablespace removed at startup' ) ;
# Test other sequences
is ( $ node - > safe_psql ( 'postgres' , "SELECT nextval('seq_unlogged2')" ) ,
1 , 'altered sequence nextval after restart' ) ;
is ( $ node - > safe_psql ( 'postgres' , "SELECT nextval('seq_unlogged2')" ) ,
3 , 'altered sequence nextval after restart again' ) ;
$ node - > safe_psql ( 'postgres' ,
"INSERT INTO tab_seq_unlogged3 VALUES (DEFAULT), (DEFAULT)" ) ;
is ( $ node - > safe_psql ( 'postgres' , "SELECT * FROM tab_seq_unlogged3" ) ,
"1\n2" , 'reset sequence nextval after restart' ) ;
done_testing ( ) ;
Peter Eisentraut
3 years ago