1#!/usr/local/bin/perl
2
3unshift(@INC, '.', '..');
4use Tester;
5use Term::Query qw(query_table_set_defaults query_table);
6
7$Class = 'Tables';
8
9@qtbl = ( 'Integer 1',	'rVidh',
10		[ 'int1', 4, 'Asking for integer 1', ] ,
11	  'Integer 2',	'Vid',
12		[ 'int2', 5, ],
13	  'Number 3',	'Vndh',
14		[ 'num3', 3.1415, 'Asking for a number', ],
15	  'Yes or No 4','VYh',
16		[ 'yn4',  "Asking yes or no", ],
17	  'No or Yes 5','VNh',
18		[ 'yn5',  "Asking no or yes", ],
19	  'Keyword 6',	'rVkdh',
20		[ 'key6', \@keywords, 'IBM', 'Asking for a keyword', ],
21	  'Nonkey 7',	'VrKh',
22		[ 'nonkey7', \@fields, 'Asking for a new keyword', ],
23	  );
24
25sub show_vars {
26  foreach $var ( qw( int1 int2 num3 yn4 yn5 key6 nonkey7 ) ) {
27      $val = $$var;
28      print "  \$$var = \"$val\"\n";
29  }
30}
31
32print "1..2\n";
33
34Tester::run_test_with_input $Class, 1, '', sub {
35    query_table_set_defaults \@qtbl;
36    show_vars; };
37
38Tester::run_test_with_input $Class, 2, "\n\n\n\n\n\n\n", sub {
39    $ok = query_table \@qtbl;
40    print "query_table returned $ok\n";
41    show_vars; };
42
43