From 787cfb6a9c806305c52043be4bf62ba7ce3c4cd7 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 18 Apr 2007 15:32:32 +0000 Subject: [PATCH] Test-name specified in initialise() call rather than check() --- bin/irspy.pl | 6 +++--- web/htdocs/details/check.mc | 6 +++--- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/bin/irspy.pl b/bin/irspy.pl index 9f56724..3c80931 100755 --- a/bin/irspy.pl +++ b/bin/irspy.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -w -# $Id: irspy.pl,v 1.26 2007-03-07 18:02:00 mike Exp $ +# $Id: irspy.pl,v 1.27 2007-04-18 15:32:32 mike Exp $ # # Run like this: # YAZ_LOG=irspy,irspy_test IRSPY_SAVE_XML=1 perl -I../lib irspy.pl -t Quick localhost:8018/IR-Explain---1 z3950.loc.gov:7090/Voyager bagel.indexdata.dk/gils bagel.indexdata.dk:210/marc @@ -60,8 +60,8 @@ if (@targets) { exit 1; } -$spy->initialise(); -my $res = $spy->check($opts{t}); +$spy->initialise($opts{t}); +my $res = $spy->check(); if ($res == 0) { print "All tests were attempted\n"; } else { diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index ea10ec9..b2dd433 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,4 +1,4 @@ -%# $Id: check.mc,v 1.16 2007-01-31 16:50:38 mike Exp $ +%# $Id: check.mc,v 1.17 2007-04-18 15:32:43 mike Exp $ <%args> @id $test => "Quick" @@ -35,8 +35,8 @@ my $spy = new ZOOM::IRSpy::Web("localhost:8018/IR-Explain---1", admin => "fruitbat"); $spy->log_init_level("irspy,irspy_test"); $spy->targets(@id) if !$allTargets; -$spy->initialise(); -my $res = $spy->check($test); +$spy->initialise($test); +my $res = $spy->check(); print "

\n"; if ($res == 0) { print "All tests were attempted\n"; -- 1.7.10.4