300_oid2name.pl
application/x-perl
Filename: 300_oid2name.pl
Type: application/x-perl
Part: 1
use strict;
use warnings;
use PostgresNode;
use TestLib;
use Test::More tests=>19;
program_help_ok('oid2name');
program_version_ok('oid2name');
program_options_handling_ok('oid2name');
my $node = get_new_node('main');
$node->init;
$node->start;
$node->command_ok([qw(oid2name -i)],
'oid2name with index option');
#$node->command_ok([qw(oid2name -f FILENODE)],
# 'oid2name with -f option');
#$node->command_ok([qw(oid2name --filenode=FILENODE)],
# 'oid2name with --filenode option');
$node->command_ok([qw(oid2name -i)],
'oid2name with -i option');
$node->command_ok([qw(oid2name --index)],
'oid2name with --index option');
#$node->command_ok([qw(oid2name -o OID)],
# 'oid2name with -o option');
#$node->command_ok([qw(oid2name --oid=OID)],
# 'oid2name with --oid option');
$node->command_ok([qw(oid2name -q)],
'oid2name with -q option');
$node->command_ok([qw(oid2name --quiet)],
'oid2name with --quite option');
$node->command_ok([qw(oid2name -s)],
'oid2name with -s option');
$node->command_ok([qw(oid2name --tablespace)],
'oid2name with --tablespace option');
$node->command_ok([qw(oid2name -S)],
'oid2name with -S option');
$node->command_ok([qw(oid2name --systable)],
'oid2name with --systable option');
#$node->command_ok([qw(oid2name -t TABLE)],
# 'oid2name with -t option');
#$node->command_ok([qw(oid2name --table=TABLE)],
# 'oid2name with --table option');
$node->command_ok([qw(oid2name -x)],
'oid2name with -x option');
$node->command_ok([qw(oid2name --extended)],
'oid2name with --extended option');
#$node->command_fails([ 'oid2name', '-t', 'nonexistent' ],
# 'fails with nonexistent table');