#!/usr/local/bin/perl
unshift(@INC, '.', '..');
use Tester;
use Term::Query qw(query_table_set_defaults query_table);
$Class = 'Tables';
@qtbl = ( 'Integer 1', 'rVidh',
[ 'int1', 4, 'Asking for integer 1', ] ,
'Integer 2', 'Vid',
[ 'int2', 5, ],
'Number 3', 'Vndh',
[ 'num3', 3.1415, 'Asking for a number', ],
'Yes or No 4','VYh',
[ 'yn4', "Asking yes or no", ],
'No or Yes 5','VNh',
[ 'yn5', "Asking no or yes", ],
'Keyword 6', 'rVkdh',
[ 'key6', \@keywords, 'IBM', 'Asking for a keyword', ],
'Nonkey 7', 'VrKh',
[ 'nonkey7', \@fields, 'Asking for a new keyword', ],
);
sub show_vars {
foreach $var ( qw( int1 int2 num3 yn4 yn5 key6 nonkey7 ) ) {
$val = $$var;
print " \$$var = \"$val\"\n";
}
}
print "1..2\n";
Tester::run_test_with_input $Class, 1, '', sub {
query_table_set_defaults \@qtbl;
show_vars; };
Tester::run_test_with_input $Class, 2, "\n\n\n\n\n\n\n", sub {
$ok = query_table \@qtbl;
print "query_table returned $ok\n";
show_vars; };