/log/

/results/

/tmp_check/

DATA = pg_prewarm--1.1--1.2.sql pg_prewarm--1.1.sql pg_prewarm--1.0--1.1.sql

PGFILEDESC = "pg_prewarm - preload relation data into system buffer cache"

TAP_TESTS = 1

PG_CONFIG = pg_config

PGXS :=$(shell$(PG_CONFIG) --pgxs)

use strict;

use warnings;

use PostgreSQL::Test::Cluster;

use PostgreSQL::Test::Utils;

use Test::More;

my$node = PostgreSQL::Test::Cluster->new('main');

$node->init;

$node->append_conf(

'postgresql.conf',

pg_prewarm.autoprewarm_interval = 0});

$node->start;

$node->safe_psql("postgres",

."CREATE TABLE test(c1 int);\n"

."INSERT INTO test SELECT generate_series(1, 100);");

my$result =

$node->safe_psql("postgres","SELECT pg_prewarm('test', 'read');");

like($result,qr/^[1-9][0-9]*$/,'read mode succeeded');

$result =

$node->safe_psql("postgres","SELECT pg_prewarm('test', 'buffer');");

like($result,qr/^[1-9][0-9]*$/,'buffer mode succeeded');

my ($cmdret,$stdout,$stderr) =

$node->psql("postgres","SELECT pg_prewarm('test', 'prefetch');");

ok( ($stdout =~qr/^[1-9][0-9]*$/

or$stderr =~qr/prefetch is not supported by this build/),

'prefetch mode succeeded');

$result =$node->safe_psql("postgres","SELECT autoprewarm_dump_now();");

like($result,qr/^[1-9][0-9]*$/,'autoprewarm_dump_now succeeded');

$node->restart;

$node->wait_for_log(

);

$node->stop;

done_testing();