301_vacuumlo.pl
application/x-perl
Filename: 301_vacuumlo.pl
Type: application/x-perl
Part: 2
use strict;
use warnings;
use PostgresNode;
use TestLib;
use Test::More tests=>14;
program_help_ok('vacuumlo');
program_version_ok('vacuumlo');
program_options_handling_ok('vacuumlo');
my $node = get_new_node('main');
$node->init;
$node->start;
$node->command_ok([qw(vacuumlo -l 1 postgres)],
'vacuumlo with -l option');
$node->command_ok([qw(vacuumlo --limit=1 postgres)],
'vacuumlo with --limit=LIMIT');
$node->command_ok([qw(vacuumlo -n postgres)],
'vacuumlo with -n option');
$node->command_ok([qw(vacuumlo --dry-run postgres)],
'vacuumlo with --dry-run option');
$node->command_ok([qw(vacuumlo -v postgres)],
'vacuumlo with -v option');
$node->command_ok([qw(vacuumlo --verbose postgres)],
'vacuumlo with --verbose');