-# $Id: Main.pm,v 1.1 2006-10-02 13:08:42 sondberg Exp $
+# $Id: Main.pm,v 1.5 2006-10-25 10:09:45 sondberg Exp $
package ZOOM::IRSpy::Test::Search::Main;
use warnings;
use ZOOM::IRSpy::Test;
-our @ISA;
-@ISA = qw(ZOOM::IRSpy::Test);
+our @ISA = qw(ZOOM::IRSpy::Test);
+sub subtests { qw(Search::Title Search::Bib1 Search::Dan1 Search::Boolean) }
-=head1 NAME
+sub start {
+ my $class = shift();
+ my($conn) = @_;
-ZOOM::IRSpy::Test::Main::Search::Main - a single test for IRSpy
-
-=head1 SYNOPSIS
-
- ## To follow
-
-=head1 DESCRIPTION
-
-I<## To follow>
-
-=cut
-
-sub run {
- my $this = shift();
-
- return $this->run_tests(qw(Search::Bib1));
+ $conn->log("irspy_test", "Main::Search test no-opping");
+ # Do nothing -- this test is just a subtest container
}
-
-=head1 SEE ALSO
-
-ZOOM::IRSpy
-
-=head1 AUTHOR
-
-Mike Taylor, E<lt>mike@indexdata.comE<gt>
-
-=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;