Added new test scripts

4 files changed, 64 insertions, 0 deletions

diff --git a/sieve/testsuite/scripts/DISTFILES b/sieve/testsuite/scripts/DISTFILES
index 0a18051fc..11d88a563 100644
--- a/sieve/testsuite/scripts/DISTFILES
+++ b/sieve/testsuite/scripts/DISTFILES
@@ -36,6 +36,9 @@ null.sv
 numaddr.sv
 redirect.sv
 reject.sv
+rel-address.sv
+rel-hairy.sv
+rel-header.sv
 size1.sv
 size2.sv
 stop.sv
diff --git a/sieve/testsuite/scripts/rel-address.sv b/sieve/testsuite/scripts/rel-address.sv
new file mode 100644
index 000000000..b8fad116f
--- /dev/null
+++ b/sieve/testsuite/scripts/rel-address.sv
@@ -0,0 +1,13 @@
+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2003, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+require ["relational", "comparator-i;ascii-numeric"];
+
+if address :count "ge" :comparator "i;ascii-numeric" ["to", "cc"] ["3"]
+  {
+    discard;
+  }
+
+# End of rel-address.sv
diff --git a/sieve/testsuite/scripts/rel-hairy.sv b/sieve/testsuite/scripts/rel-hairy.sv
new file mode 100644
index 000000000..fbb95e6e5
--- /dev/null
+++ b/sieve/testsuite/scripts/rel-hairy.sv
@@ -0,0 +1,35 @@
+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2003, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+require ["relational", "comparator-i;ascii-numeric", "fileinto"];
+
+if header :value "lt" :comparator "i;ascii-numeric" ["x-priority"] ["3"]
+  {
+    fileinto "Priority";
+  }
+elsif address :count "gt" :comparator "i;ascii-numeric" ["to"] ["5"]
+  {
+    # everything with more than 5 recipients in the "to" field
+    # is considered SPAM
+    fileinto "SPAM";
+  }
+elsif address :value "gt" :all :comparator "i;ascii-casemap" ["from"] ["M"]
+  {
+    fileinto "From_N-Z";
+  }
+else
+  {
+    fileinto "From_A-M";
+  }
+
+if allof (address :count "eq" :comparator "i;ascii-numeric"
+                  ["to", "cc"] ["1"] ,
+          address :all :comparator "i;ascii-casemap"
+                  ["to", "cc"] ["me@foo.example.com.invalid"])
+  {
+    fileinto "Only_me";
+  }
+
+# End of rel-hairy.sv
diff --git a/sieve/testsuite/scripts/rel-header.sv b/sieve/testsuite/scripts/rel-header.sv
new file mode 100644
index 000000000..1421efb2c
--- /dev/null
+++ b/sieve/testsuite/scripts/rel-header.sv
@@ -0,0 +1,13 @@
+# -*- sieve -*-
+# This file is part of Mailutils testsuite.
+# Copyright (C) 2003, Free Software Foundation.
+# See file COPYING for distribution conditions.
+
+require ["relational", "comparator-i;ascii-numeric"];
+
+if header :count "gt" ["received"] ["2"]
+  {
+    discard;
+  }
+
+# End of rel-address.sv