/usr/share/perl5/Term/Query_Test.pl is in libterm-query-perl 2.0-9.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | # Query_Test.pl
# $Id$
# Author: Alan K. Stebbens <aks@sgi.com>
use Term::Query qw( query );
use Tester;
# General a test on query with input, and check against the expected
# response.
#
# This is used in the class tests.
sub query_test {
my $class = shift;
my $test = shift;
my $inputstring = shift;
my $qargs = shift;
my $condition = shift;
local $_;
Tester::run_test_with_input $class, $test, $inputstring,
sub {
$_ = query @_;
exit if /^\s*(exit|quit|abort)\s*$/;
printf "Answer = \"%s\"\n",(length($_) ? $_ :
defined($_) ? 'NULL' : 'undef');
},
$qargs, $condition;
}
1;
|