# Copyright (c) 2021-2023, PostgreSQL Global Development Group

use strict;
use warnings;
use PostgreSQL::Test::Cluster;
use PostgreSQL::Test::Utils;
use Test::More;

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

sub my_waldump()
{
	system('ls', $node->data_dir . "/pg_wal");
	command_ok([ 'pg_waldump', '-p', $node->data_dir,
				 qw(--start 0/01000000 --end 0/01000100) ],
			   'runs');
}

$node->start;
$node->command_ok([qw(createdb test)]);
my_waldump;
$node->stop;
my_waldump;
$node->start;
my_waldump;

done_testing;