plugins/managesieve/tests/parser.phpt

   1 --TEST--
   2 Main test of script parser
   3 --SKIPIF--
   4 --FILE--
   5 <?php
   6 include '../lib/rcube_sieve_script.php';
   7
   8 $txt = '
   9 require ["fileinto","reject","envelope"];
  10 # rule:[spam]
  11 if anyof (header :contains "X-DSPAM-Result" "Spam")
  12 {
  13         fileinto "Spam";
  14         stop;
  15 }
  16 # rule:[test1]
  17 if anyof (header :comparator "i;ascii-casemap" :contains ["From","To"] "test@domain.tld")
  18 {
  19         discard;
  20         stop;
  21 }
  22 # rule:[test2]
  23 if anyof (not header :comparator "i;octet" :contains ["Subject"] "[test]", header :contains "Subject" "[test2]")
  24 {
  25         fileinto "test";
  26         stop;
  27 }
  28 # rule:[comments]
  29 if anyof (true) /* comment
  30  * "comment" #comment */ {
  31     /* comment */ stop;
  32 # comment
  33 }
  34 # rule:[reject]
  35 if size :over 5000K {
  36         reject "Message over 5MB size limit. Please contact me before sending this.";
  37 }
  38 # rule:[false]
  39 if false # size :over 5000K
  40 {
  41         stop; /* rule disabled */
  42 }
  43 # rule:[true]
  44 if true
  45 {
  46         stop;
  47 }
  48 fileinto "Test";
  49 # rule:[address test]
  50 if address :all :is "From" "nagios@domain.tld"
  51 {
  52         fileinto "domain.tld";
  53         stop;
  54 }
  55 # rule:[envelope test]
  56 if envelope :domain :is "From" "domain.tld"
  57 {
  58         fileinto "domain.tld";
  59         stop;
  60 }
  61 ';
  62
  63 $s = new rcube_sieve_script($txt);
  64 echo $s->as_text();
  65
  66 // -------------------------------------------------------------------------------
  67 ?>
  68 --EXPECT--
  69 require ["fileinto","reject","envelope"];
  70 # rule:[spam]
  71 if header :contains "X-DSPAM-Result" "Spam"
  72 {
  73         fileinto "Spam";
  74         stop;
  75 }
  76 # rule:[test1]
  77 if header :contains ["From","To"] "test@domain.tld"
  78 {
  79         discard;
  80         stop;
  81 }
  82 # rule:[test2]
  83 if anyof (not header :comparator "i;octet" :contains "Subject" "[test]", header :contains "Subject" "[test2]")
  84 {
  85         fileinto "test";
  86         stop;
  87 }
  88 # rule:[comments]
  89 if true
  90 {
  91         stop;
  92 }
  93 # rule:[reject]
  94 if size :over 5000K
  95 {
  96         reject "Message over 5MB size limit. Please contact me before sending this.";
  97 }
  98 # rule:[false]
  99 if false # size :over 5000K
 100 {
 101         stop;
 102 }
 103 # rule:[true]
 104 if true
 105 {
 106         stop;
 107 }
 108 fileinto "Test";
 109 # rule:[address test]
 110 if address :all :is "From" "nagios@domain.tld"
 111 {
 112         fileinto "domain.tld";
 113         stop;
 114 }
 115 # rule:[envelope test]
 116 if envelope :domain :is "From" "domain.tld"
 117 {
 118         fileinto "domain.tld";
 119         stop;
 120 }