On Sun Nov 06 13:20:47 2005, JMAY wrote:
...
Show quoted text> I'm trying to install Spread::Session (to be able to look at
> Spread::Queue),
> but it won't pass tests.
>
> When I run:
>
> perl -Mblib t/01sendreceive.t
>
> I get an error:
>
> File does not exist: t/logging.xml at
> /usr/local/lib/perl5/site_perl/5.8.6/Log/Channel.pm line 717
> BEGIN failed--compilation aborted at /usr/local/src/Spread-Session-
> 0.4/blib/lib/Spread/Session.pm line 73.
> Compilation failed in require at t/01sendreceive.t line 7.
> BEGIN failed--compilation aborted at t/01sendreceive.t line 7.
> # Looks like your test died before it could output anything.
>
> If I comment out the BEGIN block (which sets an environment
> variable to point to t/logging.xml), then tests pass.
I have attached a patch to fix this as well as some minor POD formatting
errors.
-R
Index: Spread-Session-0.4/Session.pm
===================================================================
--- Spread-Session-0.4.orig/Session.pm 2010-08-18 15:07:50.000000000 +0000
+++ Spread-Session-0.4/Session.pm 2010-08-18 15:13:45.000000000 +0000
@@ -73,6 +73,8 @@
}
+=over
+
=item B<new>
my $session = new Spread::Session(private_name => 'foo',
@@ -304,6 +306,8 @@
}
}
+=back
+
=head2 CALLBACKS
sub my_message_callback {
@@ -356,6 +360,7 @@
# print "...timeout!\n";
}
+=over
=item B<err>
@@ -378,6 +383,7 @@
1;
+=back
=head1 AUTHOR
Index: Spread-Session-0.4/t/01sendreceive.t
===================================================================
--- Spread-Session-0.4.orig/t/01sendreceive.t 2010-08-18 15:24:01.000000000 +0000
+++ Spread-Session-0.4/t/01sendreceive.t 2010-08-18 15:24:07.000000000 +0000
@@ -1,9 +1,5 @@
use Test::Simple tests => 2;
-BEGIN {
- $ENV{LOG_CHANNEL_CONFIG} = "t/logging.xml";
-}
-
use Spread::Session;
my $group = "session_test";
Index: Spread-Session-0.4/t/03onewayevent.t
===================================================================
--- Spread-Session-0.4.orig/t/03onewayevent.t 2010-08-18 15:24:24.000000000 +0000
+++ Spread-Session-0.4/t/03onewayevent.t 2010-08-18 15:24:38.000000000 +0000
@@ -1,7 +1,3 @@
-BEGIN {
- $ENV{LOG_CHANNEL_CONFIG} = "t/logging.xml";
-}
-
use Spread::Session;
my $group = "session_test";
