octoleo/qpdf
2
1
Fork 0
mirror of https://github.com/qpdf/qpdf.git synced 2024-12-22 10:58:58 +00:00
Code Issues Releases Wiki Activity

Move bash/zsh completion helpers to libtests/arg_parser

Browse Source
This commit is contained in:
Jay Berkenbilt 2021-12-30 13:02:10 -05:00
parent 4782b5904f
commit 0f1ffa1215
2 changed files with 41 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
libtests/qtest/arg_parser/completion_helpers.pm Normal file
View File

@ -0,0 +1,36 @@
# This is also used by qpdf.test.
sub bash_completion
{
my ($x, $line, $point) = @_;
if (! defined $point)
{
$point = length($line);
}
my $before_point = substr($line, 0, $point);
my $first = '';
my $sep = '';
my $cur = '';
if ($before_point =~ m/^(.*)([ =])([^= ]*)$/)
{
($first, $sep, $cur) = ($1, $2, $3);
}
my $prev = ($sep eq '=' ? $sep : $first);
$prev =~ s/.* (\S+)$/$1/;
my $this = $first;
$this =~ s/(\S+)\s.*/$1/;
['env', "COMP_LINE=$line", "COMP_POINT=$point",
$x, $this, $cur, $prev];
}
sub zsh_completion
{
my ($x, $line, $point) = @_;
if (! defined $point)
{
$point = length($line);
}
['env', "COMP_LINE=$line", "COMP_POINT=$point", $x];
}
1;

40
qpdf/qtest/qpdf.test
View File

@ -8,6 +8,9 @@ use File::Basename;
use File::Copy;
use File::Spec;
unshift(@INC, '../../libtests/qtest/arg_parser');
require completion_helpers;
chdir("qpdf") or die "chdir testdir failed: $!\n";
require TestDriver;
@ -127,12 +130,12 @@ foreach my $c (@completion_tests)
$zout = $out;
}
$td->runtest("bash completion: $description",
{$td->COMMAND => [@{bash_completion($cmd, $point)}],
{$td->COMMAND => [@{bash_completion("qpdf", $cmd, $point)}],
$td->FILTER => "$completion_filter $out"},
{$td->FILE => "$out", $td->EXIT_STATUS => 0},
$td->NORMALIZE_NEWLINES);
$td->runtest("zsh completion: $description",
{$td->COMMAND => [@{zsh_completion($cmd, $point)}],
{$td->COMMAND => [@{zsh_completion("qpdf", $cmd, $point)}],
$td->FILTER => "$completion_filter $zout"},
{$td->FILE => "$zout", $td->EXIT_STATUS => 0},
$td->NORMALIZE_NEWLINES);
@ -5427,39 +5430,6 @@ sub show_ntests
cleanup();
}
sub bash_completion
{
my ($line, $point) = @_;
if (! defined $point)
{
$point = length($line);
}
my $before_point = substr($line, 0, $point);
my $first = '';
my $sep = '';
my $cur = '';
if ($before_point =~ m/^(.*)([ =])([^= ]*)$/)
{
($first, $sep, $cur) = ($1, $2, $3);
}
my $prev = ($sep eq '=' ? $sep : $first);
$prev =~ s/.* (\S+)$/$1/;
my $this = $first;
$this =~ s/(\S+)\s.*/$1/;
['env', "COMP_LINE=$line", "COMP_POINT=$point",
"qpdf", $this, $cur, $prev];
}
sub zsh_completion
{
my ($line, $point) = @_;
if (! defined $point)
{
$point = length($line);
}
['env', "COMP_LINE=$line", "COMP_POINT=$point", "qpdf"];
}
sub check_pdf
{
my ($description, $command, $output, $status) = @_;