This file is indexed.

/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;