use Test::More tests => 3;


use strict;
use warnings;
use Try::Tiny;

BEGIN{
        use_ok('Tapper::Producer::Temare');
}

my $producer = Tapper::Producer::Temare->new();
isa_ok($producer, 'Tapper::Producer::Temare');

{package Host; sub name {'name'}; 1;}
{package Testrun; sub host { bless {}, 'Host' } 1;}

my $obj = bless ({ }, 'Testrun');
try{
        my $result = $producer->produce($obj, {subject => 'subject', bitness => 64});
        fail('Producer dies');
        use Data::Dumper;
        diag Dumper $result;
} catch {
        like ($_,qr/YAML_PARSE_ERR/, 'YAML error catched');
}