[SCM] libmessage-passing-perl Debian packaging branch, master, updated. debian/0.111-3-14-g44f6e88

[Tomas Doran]

The following commit has been merged in the master branch:
commit 24f34c8ae3ffc0566c7aaa87fe651bba6cc3ad5e
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Sat Feb 25 09:44:27 2012 +0000

    Add a test output

diff --git a/lib/Log/Stash/Output/Test.pm b/lib/Log/Stash/Output/Test.pm
new file mode 100644
index 0000000..aa44e32
--- /dev/null
+++ b/lib/Log/Stash/Output/Test.pm
@@ -0,0 +1,33 @@
+package Log::Stash::Output::Test;
+use Moose;
+use namespace::autoclean;
+
+has messages => (
+    isa => 'ArrayRef',
+    default => sub { [] },
+    traits => ['Array'],
+    handles => {
+        consume => 'push',
+        messages_count => 'count',
+        messages => 'elements',
+    },
+    clearer => 'clear_messages',
+    lazy => 1,
+);
+
+with 'Log::Stash::Mixin::Output';
+
+__PACKAGE__->meta->make_immutable;
+1;
+
+=head1 NAME
+
+Log::Stash::Output::Test - Output for use in unit tests
+
+=head1 SYNOPSIS
+
+    You only want this if you're writing tests...
+    See the current tests for examples..
+
+=cut
+
diff --git a/t/output_test.t b/t/output_test.t
new file mode 100644
index 0000000..c608ea5
--- /dev/null
+++ b/t/output_test.t
@@ -0,0 +1,26 @@
+use strict;
+use warnings;
+use Test::More;
+use Try::Tiny;
+
+use Log::Stash::Output::Test;
+
+my $test = try { Log::Stash::Output::Test->new }
+    catch { fail "Failed to construct $_" };
+ok $test;
+
+try { $test->consume('message') }
+    catch { fail "Failed to consume message: $_" };
+
+is $test->messages_count, 1;
+is_deeply [$test->messages], ['message'];
+
+try { $test->clear_messages }
+    catch { fail "Could not clear messages: $_" };
+
+is $test->messages_count, 0;
+is_deeply [$test->messages], [];
+
+
+done_testing;
+

-- 
libmessage-passing-perl Debian packaging