Testsuite: added message tests for the vacation extension.

Makefile.am

@@ -72,7 +72,7 @@ test_cases = \
 	tests/extensions/subaddress/rfc.svtest \
 	tests/extensions/vacation/errors.svtest \
 	tests/extensions/vacation/execute.svtest \
-	tests/extensions/vacation/references.svtest \
+	tests/extensions/vacation/message.svtest \
 	tests/extensions/enotify/basic.svtest \
 	tests/extensions/enotify/encodeurl.svtest \
 	tests/extensions/enotify/valid_notify_method.svtest \

tests/extensions/vacation/references.svtest → tests/extensions/vacation/message.svtest

@@ -15,4 +15,34 @@ Frop
 
 test "References" {
 	vacation "I am not in today!";
+
+	if not test_result_execute {
+		test_fail "execution of result failed";
+	}
+
+	test_message :smtp 0;
+
+	if not header :contains "references" "432df324@rename-it.nl" {
+		test_fail "references header does not contain new id";
+	}
+
+	if anyof ( 
+		not header :contains "references" "1234@local.machine.example", 
+		not header :contains "references" "3456@example.net",
+		not header :contains "references" "435444@ttms.com", 
+		not header :contains "references" "4223@froop.nl", 
+		not header :contains "references" "m345444444@message-id.exp" 
+		) {
+		test_fail "references header does not contain all existing ids";
+	}
+
+	if header :contains "references" "hutsefluts" {
+		test_fail "references header contains nonsense";
+	}
+}
+
+test "In-Reply-To" {
+	if not header :is "in-reply-to" "<432df324@rename-it.nl>" {
+		test_fail "in-reply-to header set incorrectly";
+	}
 }