SieveScript/test: Support duplicate tests

Author: wolfsage

Diff for: cassandane/tiny-tests/JMAPSieve/sieve-test-extensive

@@ -133,6 +133,15 @@ add_sieve_tests(
         ],
 );
 
+### duplicate
+add_sieve_tests(
+    "duplicate",
+        'if duplicate { discard; }',
+        [
+            [ 'keep', {}, [] ],
+        ],
+);
+
 ### someInThreadHaveKeyword
 sub test_sieve_test_extensive_some_in_thread_have_keyword
     :min_version_3_3 :JMAPExtensions
@@ -235,7 +244,7 @@ sub new_sieve_blob {
 
     xlog "create script";
     my $fullscript = <<EOF;
-require ["fileinto", "extlists", "imap4flags", "copy", "variables", "mailbox", "mailboxid", "special-use", "vnd.cyrus.log", "vnd.cyrus.jmapquery", "vnd.cyrus.imip"];
+require ["fileinto", "extlists", "imap4flags", "copy", "variables", "mailbox", "mailboxid", "special-use", "vnd.cyrus.log", "vnd.cyrus.jmapquery", "vnd.cyrus.imip", "duplicate"];
 
 $sieve
 EOF

Diff for: imap/jmap_sieve.c

@@ -1948,6 +1948,32 @@ static int execute_error(const char *msg,
     return SIEVE_OK;
 }
 
+static int sieve_duplicate_check(void *dc __attribute__((unused)),
+                                 void *ic __attribute__((unused)),
+                                 void *sc __attribute__((unused)),
+                                 void *mc __attribute__((unused)),
+                                 const char **errmsg __attribute__((unused)))
+{
+    /* no active tracking records in this test mode */
+    return 0;
+}
+
+static int sieve_duplicate_track(void *dc __attribute__((unused)),
+                                 void *ic __attribute__((unused)),
+                                 void *sc __attribute__((unused)),
+                                 void *mc __attribute__((unused)),
+                                 const char **errmsg __attribute__((unused)))
+{
+    return SIEVE_OK;
+}
+
+/* duplicate support */
+static sieve_duplicate_t duplicate = {
+    0, /* max expiration */
+    &sieve_duplicate_check,
+    &sieve_duplicate_track,
+};
+
 static const char *_envelope_address_parse(json_t *addr,
                                            struct jmap_parser *parser)
 {
@@ -2196,6 +2222,7 @@ static int jmap_sieve_test(struct jmap_req *req)
     sieve_register_processcal(interp, processcal);
     sieve_register_include(interp, getinclude);
     sieve_register_execute_error(interp, execute_error);
+    sieve_register_duplicate(interp, &duplicate);
 
     /* test against each email */
     size_t i;