OpenSystemsDevelopment / qpdf

Commit 4782b5904f2cddc7ecda86abc0590a2ff8715b33

Authored by Jay Berkenbilt
1 parent 32f7d998

Move filter-completion.pl to libtests/arg_parser

Inline Side-by-side
Showing 2 changed files with 6 additions and 2 deletions
qpdf/qtest/qpdf/filter-completion.pl renamed to libtests/qtest/arg_parser/filter-completion.pl
  View file @4782b59
1 1 use warnings;
2 2 use strict;
3 3  
  4 +# THIS SCRIPT IS ALSO USED IN qpdf.test
  5 +
4 6 # Output every line from STDIN that appears in the file.
5 7 my %wanted = ();
6 8 my %notwanted = ();
... ...
qpdf/qtest/qpdf.test
  View file @4782b59
... ... @@ -115,6 +115,8 @@ my @completion_tests = (
115 115 ['qpdf --encrypt user\ password ', undef, 'quoting'],
116 116 );
117 117 $n_tests += 2 * scalar(@completion_tests);
  118 +my $completion_filter =
  119 + "perl ../../../libtests/qtest/arg_parser/filter-completion.pl";
118 120 foreach my $c (@completion_tests)
119 121 {
120 122 my ($cmd, $point, $description) = @$c;
... ... @@ -126,12 +128,12 @@ foreach my $c (@completion_tests)
126 128 }
127 129 $td->runtest("bash completion: $description",
128 130 {$td->COMMAND => [@{bash_completion($cmd, $point)}],
129   - $td->FILTER => "perl filter-completion.pl $out"},
  131 + $td->FILTER => "$completion_filter $out"},
130 132 {$td->FILE => "$out", $td->EXIT_STATUS => 0},
131 133 $td->NORMALIZE_NEWLINES);
132 134 $td->runtest("zsh completion: $description",
133 135 {$td->COMMAND => [@{zsh_completion($cmd, $point)}],
134   - $td->FILTER => "perl filter-completion.pl $zout"},
  136 + $td->FILTER => "$completion_filter $zout"},
135 137 {$td->FILE => "$zout", $td->EXIT_STATUS => 0},
136 138 $td->NORMALIZE_NEWLINES);
137 139 }
... ...