- $m->content_like( qr/this is main reply content/, 'main reply content' );
- $m->content_like( qr/Download $html_name/, 'download html file link' );
+ $m->content_contains("this is main reply content", 'main reply content' );
+ $m->content_contains("Download $html_name", 'download html file link' );
+
+ # Check for Message-IDs
+ follow_parent_with_headers_link($m, text => 'with headers', n => 2);
+ $m->content_like(qr/^Message-ID:/im, 'correspondence has one Message-ID');
+ $m->content_unlike(qr/^Message-ID:.+?Message-ID:/ism, 'but not two Message-IDs');
+ $m->back;
+
+ follow_with_headers_link($m, text => "Download $plain_name", n => 2);
+ $m->content_unlike(qr/^Message-ID:/im, 'text/plain attach lacks a Message-ID');
+ $m->back;
+
+ follow_with_headers_link($m, text => "Download $html_name", n => 1);
+ $m->content_unlike(qr/^Message-ID:/im, 'text/html attach lacks a Message-ID');
+ $m->back;