[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:57:41 UTC 2013


The following commit has been merged in the master branch:
commit 3a1212e90e5a18f2fb896047fc50ce6d13be93af
Author: Tomas Doran <bobtfish at bobtfish.net>
Date:   Sun Aug 26 15:28:55 2012 +0100

    Fix tests

diff --git a/lib/Message/Passing/Exception.pm b/lib/Message/Passing/Exception.pm
index beb0656..8433d9a 100644
--- a/lib/Message/Passing/Exception.pm
+++ b/lib/Message/Passing/Exception.pm
@@ -3,7 +3,7 @@ use Moo::Role;
 use namespace::clean -except => 'meta';
 
 sub as_hash {
-    { %{ $_[0] }, class => ref($_[0]) }
+    return { %{ $_[0] }, class => ref($_[0]) }
 }
 
 sub pack {
diff --git a/t/errorchain.t b/t/errorchain.t
index 54dcb58..746225c 100644
--- a/t/errorchain.t
+++ b/t/errorchain.t
@@ -17,6 +17,7 @@ is $test->message_count, 0;
 is $test_e->message_count, 1;
 my ($m) = $test_e->messages;
 #{"exception":"encountered object 'Bar=HASH(0x7fab21236f30)', but neither allow_blessed nor convert_blessed settings are enabled at /Users/t0m/perl5/perlbrew/perls/perl-5.16.0/lib/site_perl/5.16.0/JSON.pm line 154.\n","class":"Message::Passing::Exception::Encoding","stringified_data":"$VAR1 = {\n          'foo' => bless( {}, 'Bar' )\n        };\n"}
+$m = $m->as_hash;
 is ref($m), 'HASH';
 is $m->{'class'}, 'Message::Passing::Exception::Encoding';
 ok exists $m->{'exception'};

-- 
libmessage-passing-perl Debian packaging



More information about the Pkg-perl-cvs-commits mailing list