|
| 1 | + |
| 2 | +# Copyright (c) 2021-2022, PostgreSQL Global Development Group |
| 3 | + |
| 4 | +use strict; |
| 5 | +use warnings; |
| 6 | + |
| 7 | +use PostgreSQL::Test::Cluster; |
| 8 | +use PostgreSQL::Test::Utils; |
| 9 | +use Test::More; |
| 10 | + |
| 11 | + |
| 12 | +my $node = PostgreSQL::Test::Cluster->new('main'); |
| 13 | + |
| 14 | +$node->init; |
| 15 | +$node->append_conf( |
| 16 | + 'postgresql.conf', |
| 17 | + qq{shared_preload_libraries = 'pg_prewarm' |
| 18 | + pg_prewarm.autoprewarm = true |
| 19 | + pg_prewarm.autoprewarm_interval = 0}); |
| 20 | +$node->start; |
| 21 | + |
| 22 | +# setup |
| 23 | +$node->safe_psql("postgres", |
| 24 | + "CREATE EXTENSION pg_prewarm;\n" |
| 25 | + . "CREATE TABLE test(c1 int);\n" |
| 26 | + . "INSERT INTO test SELECT generate_series(1, 100);"); |
| 27 | + |
| 28 | +# test read mode |
| 29 | +my $result = |
| 30 | + $node->safe_psql("postgres", "SELECT pg_prewarm('test', 'read');"); |
| 31 | +like($result, qr/^[1-9][0-9]*$/, 'read mode succeeded'); |
| 32 | + |
| 33 | +# test buffer_mode |
| 34 | +$result = |
| 35 | + $node->safe_psql("postgres", "SELECT pg_prewarm('test', 'buffer');"); |
| 36 | +like($result, qr/^[1-9][0-9]*$/, 'buffer mode succeeded'); |
| 37 | + |
| 38 | +# prefetch mode might or might not be available |
| 39 | +my ($cmdret, $stdout, $stderr) = |
| 40 | + $node->psql("postgres", "SELECT pg_prewarm('test', 'prefetch');"); |
| 41 | +ok( ( $stdout =~ qr/^[1-9][0-9]*$/ |
| 42 | + or $stderr =~ qr/prefetch is not supported by this build/), |
| 43 | + 'prefetch mode succeeded'); |
| 44 | + |
| 45 | +# test autoprewarm_dump_now() |
| 46 | +$result = $node->safe_psql("postgres", "SELECT autoprewarm_dump_now();"); |
| 47 | +like($result, qr/^[1-9][0-9]*$/, 'autoprewarm_dump_now succeeded'); |
| 48 | + |
| 49 | +# restart, to verify that auto prewarm actually works |
| 50 | +$node->restart; |
| 51 | + |
| 52 | +$node->wait_for_log( |
| 53 | + "autoprewarm successfully prewarmed [1-9][0-9]* of [0-9]+ previously-loaded blocks" |
| 54 | +); |
| 55 | + |
| 56 | +$node->stop; |
| 57 | + |
| 58 | +done_testing(); |
0 commit comments