[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88
Tomas Doran
bobtfish at bobtfish.net
Mon May 6 11:56:46 UTC 2013
The following commit has been merged in the master branch:
commit c8027cd64b28ab5f31930ed0991da5716a3813e4
Author: Tomas Doran <bobtfish at bobtfish.net>
Date: Thu Mar 22 23:44:59 2012 +0000
Fix using Filter::T in the DSL
diff --git a/Changes b/Changes
index b13dd7b..f6e1561 100644
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+ - Fix issue using Filter::T in the DSL
+
0.001
- Initial version.
diff --git a/lib/Log/Stash/DSL/Factory.pm b/lib/Log/Stash/DSL/Factory.pm
index 917b669..f3755b0 100644
--- a/lib/Log/Stash/DSL/Factory.pm
+++ b/lib/Log/Stash/DSL/Factory.pm
@@ -43,8 +43,8 @@ sub make {
push(@out, $name_or_thing);
}
else {
- my $thing = $self->registry_get($name)
- || confess("Do not have a component named '$name'");
+ my $thing = $self->registry_get($name_or_thing)
+ || confess("Do not have a component named '$name_or_thing'");
push(@out, $thing);
}
}
diff --git a/t/author/spelling.t b/t/author/spelling.t
index 1e30bd9..d273def 100644
--- a/t/author/spelling.t
+++ b/t/author/spelling.t
@@ -4,6 +4,8 @@ use Test::More;
use Test::Spelling;
add_stopwords(qw(
+ SureVoIP
+ VoIP
Starman
ZeroMQ
API
diff --git a/t/dsl.t b/t/dsl.t
index a6ec464..462f8fc 100644
--- a/t/dsl.t
+++ b/t/dsl.t
@@ -8,9 +8,13 @@ my $c = log_chain {
output test => (
class => 'Test',
);
+ filter t => (
+ class => 'T',
+ output_to => ['test'],
+ );
filter null => (
class => 'Null',
- output_to => 'test',
+ output_to => 't',
);
input stdin => (
class => 'STDIN',
@@ -19,9 +23,10 @@ my $c = log_chain {
};
isa_ok $c, 'Log::Stash::Input::STDIN';
isa_ok $c->output_to, 'Log::Stash::Filter::Null';
-isa_ok $c->output_to->output_to, 'Log::Stash::Output::Test';
+isa_ok $c->output_to->output_to, 'Log::Stash::Filter::T';
+isa_ok $c->output_to->output_to->output_to->[0], 'Log::Stash::Output::Test';
$c->output_to->consume({foo => 'bar'});
-my $test = $c->output_to->output_to;
+my $test = $c->output_to->output_to->output_to->[0];
is $test->message_count, 1;
is_deeply [$test->messages], [{foo => 'bar'}];
--
libmessage-passing-perl Debian packaging
More information about the Pkg-perl-cvs-commits
mailing list