use strict;
use warnings;

use Test::More tests => 2;

use Email::MIME::Kit;

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

my $email = $kit->assemble({
  html => '<div>You got:<ul><li>10 dunks</li><li>2 fatalities</li></ul></div>',
  you  => 'Victor Fries',
});

my ($text, $html) = $email->subparts;

like(
  $text->body,
  qr{\n  \* 10 dunks\n},
  "text part includes html converted to text",
);

like(
  $html->body,
  qr{\Q<li>10 dunks</li>},
  "html part still includes html arg",
);