X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fcheck.mc;h=dd6807cdf9d5fa1fba4530850fc2d3d3f228af9e;hp=500c85c9359f69693ea1a62122126b8e8675808a;hb=65335f584d1db13f8dec30e0af86493f8fb95396;hpb=8532cebee895933a97d5137f88f95c9d1114d940 diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc index 500c85c..dd6807c 100644 --- a/web/htdocs/details/check.mc +++ b/web/htdocs/details/check.mc @@ -1,4 +1,4 @@ -%# $Id: check.mc,v 1.5 2006-09-26 09:30:20 mike Exp $ +%# $Id: check.mc,v 1.7 2006-09-26 11:25:30 mike Exp $ <%args> @id @@ -7,15 +7,24 @@ my $allTargets = (@id == 1 && $id[0] eq ""); print "

Testing ...

\n"; print " \n" if !$allTargets; +$m->flush_buffer(); + +# Turning on autoflush with $m->autoflush() doesn't seem to work if +# even if the "MasonEnableAutoflush" configuration parameter is turned +# on in the HTTP configuration, so we donb't even try -- instead, +# having ZOOM::IRSpy::Web::log() explicitly calling $m->flush_buffer() my $spy = new ZOOM::IRSpy::Web("localhost:3313/IR-Explain---1", admin => "fruitbat"); +$spy->log_init_level("irspy,irspy_test"); $spy->targets(@id) if !$allTargets; $spy->initialise(); my $res = $spy->check(); +print "

\n"; if ($res == 0) { - print "All tests were run\n"; + print "All tests were run\n"; } else { - print "Some tests were skipped\n"; + print "Some tests were skipped\n"; } +print "

\n";