Some acctsrvcs tests

     make_caught_spam(0..30);
     maintenance_page($a);
     like($a->content,
          qr(This folder is automatically maintained),
          "generic maintenance message");
     like($a->content, qr/older than $DEFAULT days are removed nightly/,
         "$DEFAULT mention #1");
     like($a->content, qr/less than $DEFAULT days old/,
         "$DEFAULT mention #2");
     like($a->content, qr/older than $DEFAULT days\./,
         "$DEFAULT mention #3");
     ok($a->follow_link(text_regex => qr/Adjust expiration/i), 
        "auto-expiration");
     like($a->content, qr/::SET AUTOMATIC EXPIRE PERIOD::/,
         "autoexp page");
     like($a->content, qr/$DEFAULT days/,
         "autoexp page mentions default setting");

Next

Copyright © 2004 Mark Dominus