From 2ee6d6d4cc1eca7c0a890e26d50fd64328febcff Mon Sep 17 00:00:00 2001 From: "Anders S. Mortensen" Date: Mon, 2 Oct 2006 13:08:42 +0000 Subject: [PATCH] Added Search/Main.pm and addressing it in Main.pm. --- lib/ZOOM/IRSpy/Test/Main.pm | 4 +-- lib/ZOOM/IRSpy/Test/Search/Main.pm | 53 ++++++++++++++++++++++++++++++++++++ 2 files changed, 55 insertions(+), 2 deletions(-) create mode 100644 lib/ZOOM/IRSpy/Test/Search/Main.pm diff --git a/lib/ZOOM/IRSpy/Test/Main.pm b/lib/ZOOM/IRSpy/Test/Main.pm index 8f63a3d..b4e9d73 100644 --- a/lib/ZOOM/IRSpy/Test/Main.pm +++ b/lib/ZOOM/IRSpy/Test/Main.pm @@ -1,4 +1,4 @@ -# $Id: Main.pm,v 1.5 2006-09-26 13:34:38 sondberg Exp $ +# $Id: Main.pm,v 1.6 2006-10-02 13:08:42 sondberg Exp $ package ZOOM::IRSpy::Test::Main; @@ -28,7 +28,7 @@ I<## To follow> sub run { my $this = shift(); - return $this->run_tests(qw(Ping Search::Bib1)); + return $this->run_tests(qw(Ping Search::Main)); } diff --git a/lib/ZOOM/IRSpy/Test/Search/Main.pm b/lib/ZOOM/IRSpy/Test/Search/Main.pm new file mode 100644 index 0000000..9cf3470 --- /dev/null +++ b/lib/ZOOM/IRSpy/Test/Search/Main.pm @@ -0,0 +1,53 @@ +# $Id: Main.pm,v 1.1 2006-10-02 13:08:42 sondberg Exp $ + +package ZOOM::IRSpy::Test::Search::Main; + +use 5.008; +use strict; +use warnings; + +use ZOOM::IRSpy::Test; +our @ISA; +@ISA = qw(ZOOM::IRSpy::Test); + + +=head1 NAME + +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)); +} + + +=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; -- 1.7.10.4