use strict;
use warnings;
use Test::More tests => 7;
use_ok 'Email::MIME';
use_ok 'Email::MIME::Modifier';
my $email = Email::MIME->new(<<__MESSAGE__);
Content-Disposition: inline
Engine Engine number nine.
__MESSAGE__
isa_ok $email, 'Email::MIME';
$email->disposition_set('attachment');
is $email->header('Content-Disposition'), 'attachment', 'reset worked';
$email->filename_set( 'loco.pdf' );
is $email->header('Content-Disposition'), 'attachment; filename="loco.pdf"', 'filename_set worked';
$email->disposition_set('inline');
is $email->header('Content-Disposition'), 'inline; filename="loco.pdf"', 're-reset worked';
$email->filename_set(undef);
is $email->header('Content-Disposition'), 'inline', 'filename_set(undef) worked';