[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 8b830c7ad110a68ab606cf0a3c18a43094bc2ab8
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Sat Jun 16 18:58:00 2012 -0500

    Prove we can drop messages and have encryption still work

diff --git a/t/crypt_cbc.t b/t/crypt_cbc.t
index 9119ae3..b606cd2 100644
--- a/t/crypt_cbc.t
+++ b/t/crypt_cbc.t
@@ -4,6 +4,7 @@ use Test::More;
 use Try::Tiny;
 use Message::Passing::Input::Null;
 use Message::Passing::Output::Test;
+use Message::Passing::Output::Null;
 
 plan skip_all => "No Crypt::CBC or no Crypt::Blowfish"
     unless try {
@@ -31,5 +32,15 @@ $cbc->output_to->consume('test');
 is $cbct->message_count, 1;
 is_deeply [$cbct->messages], ['test'];
 
+# Simulate dropping a message!
+{
+    local $cbc->output_to->{output_to} = Message::Passing::Output::Null->new;
+    $cbc->output_to->consume('fooo');
+}
+
+$cbc->output_to->consume('bar');
+is $cbct->message_count, 2;
+is_deeply [$cbct->messages], ['test', 'bar'];
+
 done_testing;
 

-- 
libmessage-passing-perl Debian packaging