Some acctsrvcs tests

     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/\Q$caught_spam/,
         "autoexp page mentions caught spam folder '$caught_spam'");
     like($a->content, qr/$N days/,
         "autoexp page mentions current setting");
     $a->form_number(2);

     $N = 7;
     $a->select("numofdays", $N);
     ok($a->submit, "submitted $N day limit");
     like($a->content, qr/set\b.*\bto <b>$N days<\/b>/i, "reply page mentions new $N day limit");
     is(Penn::ISC::SpamDB->new(rdonly => 1)->get_user('netmon')->expire, 
             $N, 
             "database modified");

Next

Copyright © 2004 Mark Dominus