[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