Next Automated Testing 37

Some acctsrvcs tests

     # Peggy says that "When you change your filter level, you lose your
     # expiration period."  20040429
     spam_level($a, 7);
     is(Penn::ISC::SpamDB->new(rdonly => 1)->get_user('netmon')->expire, 
             $N,
              "level change to 7 retains expire period");
     spam_level($a, 'x');
     is(Penn::ISC::SpamDB->new(rdonly => 1)->get_user('netmon')->expire, $N, 
             "level change to x retains expire period");

Next Copyright © 2004 Mark Dominus