web/htdocs/details/all.mc

   1 %# $Id: all.mc,v 1.3 2006-09-20 13:19:53 mike Exp $
   2 <%perl>
   3 print "IRSpy version $ZOOM::IRSpy::VERSION<br/>\n";
   4 my $spy = new ZOOM::IRSpy("localhost:3313/IR-Explain---1");
   5 if (1) {
   6     # Testing all targets would take much too long for testing
   7     my @targets = qw(bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager);
   8     $spy->targets(join(" ", @targets));
   9 }
  10 $spy->initialise();
  11 my $res = $spy->check();
  12 if ($res == 0) {
  13     print "All tests were run\n";
  14 } else {
  15     print "Some tests were skipped\n";
  16 }
  17 </%perl>