t/spamc_x_e.t

#!/usr/bin/perl -T

use lib '.'; use lib 't';
use SATest; sa_t_init("spamc_x_e");

use Test::More;
plan skip_all => "Spamd tests disabled" if $SKIP_SPAMD_TESTS;
plan tests => 7;
diag "Failure may indicate some other process running on port 8.  Test assumes nothing is listening on port 8.";
# ---------------------------------------------------------------------------
# test case for bug 5478: spamc -x -e

%patterns = ( 'Fine' => 'Fine' );

ok start_spamd("-L");
ok spamcrun("-x -e /bin/echo Fine < data/nice/001", \&patterns_run_cb);
ok ok_all_patterns();
stop_spamd();

%patterns = ( );
%anti_patterns = ( 'Fine' => 'Fine' );
$spamdhost = '255.255.255.255'; # cause "connection failed" errors

ok !spamcrun("-x -e /bin/echo Fine < data/nice/001", \&patterns_run_cb);
ok ok_all_patterns();