File Coverage

Query_Test.pl

Criterion	Covered	Total	%
statement	1	3	33.3
branch			n/a
condition			n/a
subroutine	1	1	100.0
pod			n/a
total	2	4	50.0

# Query_Test.pl
# $Id$
# Author: Alan K. Stebbens

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;