The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use warnings;

use Test::More tests => 4;
use Test::Deep;
use lib 't/lib';

use Email::MIME::Kit;

my $kit = Email::MIME::Kit->new({ source => 't/kits/test.mkit' });

my $manifest = $kit->manifest;
ok($manifest, 'got a manifest');

isa_ok(
  $kit->validator,
  'Email::MIME::Kit::Validator::Simplest',
  "kit's validator",
);

cmp_deeply(
  $manifest->{alternatives}[0],
  superhashof({
    attributes => { content_type => "text/plain" },
    body       => "We don't support tests.",
  }),
  "we have desugared the first alternative's c-t",
);

cmp_deeply(
  $manifest->{alternatives}[2]{attachments}[0],
  superhashof({
    attributes => { content_type => "image/jpeg" },
    path       => "logo.jpg",
  }),
  "the desugaring propagated down into an alt's attachment",
);