# $Id: Main.pm,v 1.14 2007-04-18 15:24:55 mike Exp $ package ZOOM::IRSpy::Test::Main; use 5.008; use strict; use warnings; use ZOOM::IRSpy::Test; our @ISA = qw(ZOOM::IRSpy::Test); =head1 NAME ZOOM::IRSpy::Test::Main - a single test for IRSpy =head1 SYNOPSIS ## To follow =head1 DESCRIPTION I<## To follow> =cut sub subtests { qw(Ping Search::Main Record::Main ResultSet::Main) } sub timeout { 90 } sub start { my $class = shift(); my($conn) = @_; $conn->log("irspy_test", "Main test no-opping"); # Do nothing -- this test is just a subtest container } =head1 SEE ALSO ZOOM::IRSpy =head1 AUTHOR Mike Taylor, Emike@indexdata.comE =head1 COPYRIGHT AND LICENSE Copyright (C) 2006 by Index Data ApS. This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.7 or, at your option, any later version of Perl 5 you may have available. =cut 1;