#!/usr/bin/perl

use lib '.'; use lib 't';
use SATest; sa_t_init("spamc_y");
use Test; plan tests => ($NO_SPAMC_EXE ? 0 : 2),
               onfail => sub { warn "FAIL: Some other process running on port 8?  Test assumes nothing is listening on port 8." };


exit if $NO_SPAMC_EXE;

# ---------------------------------------------------------------------------

%patterns = (

);

%anti_patterns = (

  # the text should NOT be output, bug 4991
  q{ hello world }, 'spamc_y',

);

# connect on port 8 (unassigned): should always fail
ok (scrunwithstderr ("-y -p 8 < data/etc/hello.txt", \&patterns_run_cb));
ok_all_patterns();