Subject: | Tools.pm not found during 'make test' with Test::Harness 2.48 (Perl 5.8.7) |
Hi,
with Perl 5.8.7 some of the tests fail with the following error message:
52manager/30collect....Can't locate Tools.pm in @INC (@INC contains: /home/markov/shared/perl/MimeTypes/lib /home/markov/shared/perl/UserIdentity/lib ./lib ../lib ../../lib tests lib blib/lib blib/arch /etc/perl /usr/local/lib/perl/5.8.7 /usr/local/share/perl/5.8.7 /usr/lib/perl5 /usr/share/perl5 /usr/lib/perl/5.8 /usr/share/perl/5.8 /usr/local/lib/site_perl) at 52manager/30collect.t line 9.
This seems to be because the 'use Tools' line is before 'use lib qw(. .. tests);' in the
failing test scripts.
I have tracked the regression to Test::Harness upgrade from 2.40 (included in Perl 5.8.4) to 2.48 (included in Perl 5.8.7). I have not investigated this further, as the correct fix seems
to be just move the 'use lib' lines upward. The attached patch does this.
For the record, here's the version information:
- Mail-Box 2.060
- Perl 5.8.7
- Debian GNU/Linux (unstable)
--
Niko Tyni
ntyni@iki.fi
diff -ur libmail-box-perl-2.060/tests/52manager/20user.t libmail-box-perl-2.060-mod/tests/52manager/20user.t
--- libmail-box-perl-2.060/tests/52manager/20user.t 2005-03-15 20:59:48.000000000 +0000
+++ libmail-box-perl-2.060-mod/tests/52manager/20user.t 2005-06-12 11:16:46.324764776 +0000
@@ -6,9 +6,9 @@
use warnings;
use Test::More;
+use lib qw(. .. tests);
use Tools;
-use lib qw(. .. tests);
use Mail::Box::Manage::User;
BEGIN
diff -ur libmail-box-perl-2.060/tests/52manager/30collect.t libmail-box-perl-2.060-mod/tests/52manager/30collect.t
--- libmail-box-perl-2.060/tests/52manager/30collect.t 2005-03-15 20:59:48.000000000 +0000
+++ libmail-box-perl-2.060-mod/tests/52manager/30collect.t 2005-06-12 11:17:39.227541284 +0000
@@ -6,9 +6,9 @@
use warnings;
use Test::More;
-use Tools;
use lib qw(. .. tests);
+use Tools;
use Mail::Box::Manage::User;
use Mail::Box::MH;
diff -ur libmail-box-perl-2.060/tests/60imap/10fetch.t libmail-box-perl-2.060-mod/tests/60imap/10fetch.t
--- libmail-box-perl-2.060/tests/60imap/10fetch.t 2005-03-15 20:59:48.000000000 +0000
+++ libmail-box-perl-2.060-mod/tests/60imap/10fetch.t 2005-06-12 11:26:29.347809822 +0000
@@ -6,9 +6,9 @@
use warnings;
use Test::More;
-use Tools;
use lib qw(. .. tests);
+use Tools;
use Mail::Message;
use Mail::Message::Body::Lines;
use Mail::Server::IMAP4::Fetch;
diff -ur libmail-box-perl-2.060/tests/60imap/20list.t libmail-box-perl-2.060-mod/tests/60imap/20list.t
--- libmail-box-perl-2.060/tests/60imap/20list.t 2005-03-15 20:59:48.000000000 +0000
+++ libmail-box-perl-2.060-mod/tests/60imap/20list.t 2005-06-12 11:26:43.289478644 +0000
@@ -7,9 +7,9 @@
use warnings;
use Test::More;
-use Tools;
use lib qw(. .. tests);
+use Tools;
use Mail::Server::IMAP4::List;
use Mail::Box::MH;
use Mail::Box::Identity;