upstream/t/spamd_port.t

   1 #!/usr/bin/perl -T
   2
   3 use lib '.'; use lib 't';
   4 use SATest; sa_t_init("spamd_port");
   5
   6 use Test::More;
   7 plan skip_all => "Spamd tests disabled" if $SKIP_SPAMD_TESTS;
   8 plan tests => 4;
   9
  10 # ---------------------------------------------------------------------------
  11
  12 %patterns = (
  13   q{ Subject: There yours for FREE!}, 'subj',
  14   q{ X-Spam-Status: Yes, score=}, 'status',
  15   q{ X-Spam-Flag: YES}, 'flag',
  16 );
  17
  18 my $port = probably_unused_spamd_port();
  19 ok(sdrun ("-L -p $port", "-p $port < data/spam/001", \&patterns_run_cb));
  20 ok_all_patterns();
  21