X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fall.mc;fp=web%2Fhtdocs%2Fdetails%2Fall.mc;h=4ec2d82817a8e4ba147c06d15bfa9faa10327519;hp=0000000000000000000000000000000000000000;hb=a5120e0827303aa4e92d0432203514dad5841b7c;hpb=ea4bc207808357b0c30f594cd44fbc9df9f9d234

diff --git a/web/htdocs/details/all.mc b/web/htdocs/details/all.mc
new file mode 100644
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>