100_temp.pl

text/x-perl-script

Download

use strict;
use warnings;
use threads;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::RecursiveCopy;
use PostgreSQL::Test::Utils;
use Test::More;
use Data::Dumper;

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

# Create a data directory with initdb
$node->init;

$node->append_conf(
    'postgresql.conf', qq[
autovacuum = on
track_counts=on
autovacuum_naptime = '1s'
autovacuum_max_workers = 3
autovacuum_vacuum_threshold = 1
log_statement = 'all'
restart_after_crash = off
]);

# Start the PostgreSQL server
$node->start;

my $psql1 = $node->interactive_psql('postgres');
$psql1->query("create temp table test (a int primary key);");
sleep(3);

$node->stop('immediate');
$node->start();
$node->safe_psql('postgres', 'select 1');

sleep(5);
$node->safe_psql('postgres', 'select 1');

ok(1);
done_testing();