Include: added various tests to the testsuite.

Makefile.am

@@ -56,6 +56,8 @@ test_cases = \
 	tests/extensions/include/errors.svtest \
 	tests/extensions/include/variables.svtest \
 	tests/extensions/include/once.svtest \
+	tests/extensions/include/twice.svtest \
+	tests/extensions/include/rfc.svtest \
 	tests/extensions/imap4flags/basic.svtest \
 	tests/extensions/imap4flags/hasflag.svtest \
 	tests/extensions/imap4flags/errors.svtest \

tests/extensions/include/included-global/rfc-ex1-spam_tests.sieve

+require ["reject"];
+
+if anyof (header :contains "Subject" "$$",
+	header :contains "Subject" "Make money")
+{
+	reject "Not wanted";
+}

tests/extensions/include/included/rfc-ex1-always_allow.sieve

+if header :is "From" "boss@example.com"
+{
+     keep;
+}
+elsif header :is "From" "ceo@example.com"
+{
+     keep;
+}

tests/extensions/include/included/rfc-ex1-mailing_lists.sieve

+require ["fileinto"];
+
+if header :is "Sender" "owner-ietf-mta-filters@imc.org"
+{
+     fileinto "lists.sieve";
+}
+elsif header :is "Sender" "owner-ietf-imapext@imc.org"
+{
+     fileinto "lists.imapext";
+}

tests/extensions/include/included/rfc-ex1-spam_tests.sieve

+require ["reject"];
+
+if header :contains "Subject" "XXXX"
+{
+	reject "Not wanted";
+}
+elsif header :is "From" "money@example.com"
+{
+	reject "Not wanted";
+}

tests/extensions/include/included/rfc-ex2-spam_filter_script.sieve

+require ["variables", "include"];
+global ["test", "test_mailbox"];
+
+if header :contains "Subject" "${test}"
+{
+	set "test_mailbox" "spam-${test}";
+}
+

tests/extensions/include/included/twice-1.sieve

+require "include";
+require "variables";
+
+global "result";
+
+set "result" "${result} TWO";
+

tests/extensions/include/included/twice-2.sieve

+require "include";
+require "variables";
+
+global "result";
+
+set "result" "${result} THREE";
+
+include "twice-1.sieve";

tests/extensions/include/rfc-ex1-default.sieve

+require ["include"];
+
+include :personal "rfc-ex1-always_allow";
+include :global "rfc-ex1-spam_tests";
+include :personal "rfc-ex1-spam_tests";
+include :personal "rfc-ex1-mailing_lists";

tests/extensions/include/rfc-ex2-default.sieve

+require ["variables", "include", "relational", "fileinto"];
+global "test";
+global "test-mailbox";
+
+# The included script may contain repetitive code that is
+# effectively a subroutine that can be factored out.
+set "test" "$$";
+include "rfc-ex2-spam_filter_script";
+
+set "test" "Make money";
+include "rfc-ex2-spam_filter_script";
+
+# Message will be filed according to the test that matched last.
+if string :count "eq" "${test_mailbox}" "1"
+{
+	fileinto "INBOX${test_mailbox}";
+	stop;
+}
+
+# If nothing matched, the message is implicitly kept.
+

tests/extensions/include/rfc.svtest

+require "vnd.dovecot.testsuite";
+
+test "RFC example 1" {
+	if not test_script_compile "rfc-ex1-default.sieve" {
+		test_fail "failed to compile sieve script";
+	}
+}
+
+test "RFC example 2" {
+	if not test_script_compile "rfc-ex2-default.sieve" {
+		test_fail "failed to compile sieve script";
+	}
+}

tests/extensions/include/twice.svtest

+require "vnd.dovecot.testsuite";
+require "include";
+require "variables";
+
+global "result";
+
+set "result" "ONE";
+
+test "Twice included" {
+	include "twice-1";
+	include "twice-2";
+
+	if string "${result}" "ONE TWO THREE" {
+		test_fail "duplicate include failed";
+	}
+
+	if not string "${result}" "ONE TWO THREE TWO" {
+		test_fail "unexpected result: ${result}";
+	}
+}