Added new test scripts

@@ -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

+# -*- 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

+# -*- 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

+# -*- 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