use strict;
use warnings;
use Test::More;
use Try::Tiny;
use Message::Passing::Output::Test;
use Message::Passing::Filter::Decoder::JSON;
my $unpacked;
my $test = Message::Passing::Output::Test->new(cb => sub { $unpacked = shift });
my $decoder = Message::Passing::Filter::Decoder::JSON->new(output_to => $test);
my $h = {};
$decoder->consume($h);;
is_deeply $unpacked, $h;
$decoder->consume('{"baz":"bar"}');
is_deeply $unpacked, {"baz" => "bar"};
done_testing;