3 # $Id: irspy.pl,v 1.13 2006-10-12 16:53:04 mike Exp $
6 # YAZ_LOG=irspy,irspy_test,irspy_debug,irspy_event perl -I ../lib irspy.pl -t Main localhost:3313/IR-Explain---1 bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager bagel.indexdata.dk:210/marc
7 # Available log-levels are as follows:
8 # irspy -- high-level application logging
9 # irspy_debug -- low-level debugging (not very interesting)
10 # irspy_event -- invocations of ZOOM_event() and individual events
11 # irspy_unhandled -- unhandled events (not very interesting)
12 # irspy_test -- adding, queueing and running tests
13 # irspy_task -- adding, queueing and running tasks
21 if (!getopts('t:', \%opts) || @ARGV < 1) {
23 Usage $0: [options] <IRSpy-database> [<target> ...]
24 If no targets are specified, all targets in DB are tested.
25 -t <test> Run the specified <test> [default: all tests]
30 my($dbname, @targets) = @ARGV;
31 my $spy = new ZOOM::IRSpy($dbname, "admin", "fruitbat");
32 $spy->targets(@targets) if @targets;
34 my $res = $spy->check($opts{t});
36 print "All tests were run\n";
38 print "$res tests were skipped\n";