New

[irspy-moved-to-github.git] / web / htdocs / details / all.mc

diff --git a/web/htdocs/details/all.mc b/web/htdocs/details/all.mc
new file mode 100644 (file)
index 0000000..4ec2d82
--- /dev/null
+++ b/web/htdocs/details/all.mc
@@ -0,0 +1,17 @@
+%# $Id: all.mc,v 1.1 2006-09-15 16:51:51 mike Exp $
+<%perl>
+print "IRSpy version $ZOOM::IRSpy::VERSION<br/>\n";
+my $spy = new ZOOM::IRSpy("localhost:1313/IR-Explain---1");
+if (1) {
+    # Testing all databases would take much too long for testing
+    my @targets = qw(bagel.indexdata.dk/gils z3950.loc.gov:7090/Voyager);
+    $spy->targets(join(" ", @targets));
+}
+$spy->initialise();
+my $res = $spy->check();
+if ($res == 0) {
+    print "All tests were run\n";
+} else {
+    print "Some tests were skipped\n";
+}
+</%perl>