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