-%# $Id: check.mc,v 1.13 2006-11-18 00:09:01 mike Exp $
+%# $Id: check.mc,v 1.17 2007-04-18 15:32:43 mike Exp $
<%args>
@id
$test => "Quick"
Are you sure you want to do this?
</p>
<p>
- <a href="?really=1">Yes</a>
- <a href="/">No</a>
+ <a href="?really=1&test=Quick">Yes: Quick Test</a><br/>
+ <a href="?really=1&test=Main">Yes: Full Test</a><br/>
+ <a href="/">No</a><br/>
</p>
<%perl>
} else {
# on in the HTTP configuration, so we don'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",
+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 "<p>\n";
if ($res == 0) {
- print "<b>All tests were run</b>\n";
+ print "<b>All tests were attempted</b>\n";
} else {
print "<b>$res tests were skipped</b>\n";
}