1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl -T
use lib '.'; use lib 't';
use SATest; sa_t_init("spamc_y");
use Test::More;
plan skip_all => "No SPAMC exe" if $NO_SPAMC_EXE;
plan tests => 2;
# ---------------------------------------------------------------------------
%patterns = (
);
%anti_patterns = (
# the text should NOT be output, bug 4991
'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();
|
