Some acctsrvcs tests

     use Test::More tests => 44;
     use lib '/home/m/j/mjd/lib/perl5';
     use lib '/usr/local/lib/account/acctsrvcs/lib';
     use WWW::Mechanize::MJD;
     require 'netmon.pl';
     require 'spam-test-util.pl';
     our($procmailrc, $forward, $caught_spam);
     use strict 'vars';

     my $DEFAULT = 28;

     as_netmon(q{ unlink "--==procmailrc==--", "--==forward==--"; },
               procmailrc => $procmailrc,
               forward => $forward,
              );

     set_expire_time(undef);

     my $a = WWW::Mechanize::MJD->acctsrvcs(autocheck => 1, die => 1,
                                            section => 'spam');
     print "# Logged in\n";

     like($a->content, qr/<h3>Spam filtering options:<\/h3>/, "Spam menu");
     like($a->content, qr/are older than $DEFAULT days/, "main page default");

Next

Copyright © 2004 Mark Dominus