X-Git-Url: http://www.git.stargrave.org/?p=public-inbox.git;a=blobdiff_plain;f=t%2Fplack.t;h=d45dbcd2085b2a286625a43299fd7ff359d4f87b;hp=b16bc8de9cd2bbae4d5c73cbcd9d77c98c694fbe;hb=5d8dbb4aca5afcc6b98a4d951f03003fb7eaf356;hpb=58852a50f6a72265cce1e4729aae3875bba5aa96

diff --git a/t/plack.t b/t/plack.t
index b16bc8de..d45dbcd2 100644
--- a/t/plack.t
+++ b/t/plack.t
@@ -52,11 +52,12 @@ EOF
 
 	# multipart with two text bodies
 	my %attr_text = (attributes => { content_type => 'text/plain' });
+	$mime = mime_load 't/plack-2-txt-bodies.eml', sub {
 	my $parts = [
 		Email::MIME->create(%attr_text, body => 'hi'),
 		Email::MIME->create(%attr_text, body => 'bye')
 	];
-	$mime = Email::MIME->create(
+	Email::MIME->create(
 		header_str => [
 			From => 'a@example.com',
 			Subject => 'blargh',
@@ -64,11 +65,13 @@ EOF
 			'In-Reply-To' => '<irp@example.com>'
 		],
 		parts => $parts,
-	);
+	)}; # mime_load sub
 	$im->add($mime);
 
 	# multipart with attached patch + filename
-	$parts = [ Email::MIME->create(%attr_text, body => 'hi, see attached'),
+	$mime = mime_load 't/plack-attached-patch.eml', sub {
+	my $parts = [
+		Email::MIME->create(%attr_text, body => 'hi, see attached'),
 		Email::MIME->create(
 			attributes => {
 					content_type => 'text/plain',
@@ -78,18 +81,19 @@ EOF
 				"@@ -49, 7 +49,34 @@\n"
 			)
 	];
-	$mime = Email::MIME->create(
+	Email::MIME->create(
 		header_str => [
 			From => 'a@example.com',
 			Subject => '[PATCH] asdf',
 			'Message-ID' => '<patch@example.com>'
 		],
 		parts => $parts
-	);
+	)}; # mime_load sub
 	$im->add($mime);
 
 	# multipart collapsed to single quoted-printable text/plain
-	$parts = [
+	$mime = mime_load 't/plack-qp.eml', sub {
+	my $parts = [
 		Email::MIME->create(
 			attributes => {
 				content_type => 'text/plain',
@@ -98,14 +102,14 @@ EOF
 			body => 'hi = bye',
 		)
 	];
-	$mime = Email::MIME->create(
+	Email::MIME->create(
 		header_str => [
 			From => 'qp@example.com',
 			Subject => 'QP',
 			'Message-ID' => '<qp@example.com>',
 			],
 		parts => $parts,
-	);
+	)};
 	like($mime->body_raw, qr/hi =3D bye=/, 'our test used QP correctly');
 	$im->add($mime);