RT 4.2.11, ticket#13852

[freeside.git] / rt / t / mail / autogenerated.t

diff --git a/rt/t/mail/autogenerated.t b/rt/t/mail/autogenerated.t
new file mode 100644 (file)
index 0000000..a37c9b1
--- /dev/null
+++ b/rt/t/mail/autogenerated.t
@@ -0,0 +1,22 @@
+use strict;
+use warnings;
+
+use RT::Test tests => undef;
+use Email::Abstract;
+
+my $msg = Email::Abstract->new(<<'MSG')->cast("MIME::Entity");
+From: somebody@example.com
+To: rt@example.com
+Precedence: never-bounce
+Precedence: bulk
+Subject: testing precedence
+
+I am bulk mail, hear me roar!
+MSG
+
+ok RT::Interface::Email::CheckForAutoGenerated($msg->head), "Is AutoGenerated";
+
+$msg->head->delete("Precedence", 1);
+ok !RT::Interface::Email::CheckForAutoGenerated($msg->head), "Isn't AutoGenerated";
+
+done_testing;