mirror of
https://git.proxmox.com/git/proxmox-spamassassin
synced 2025-04-28 23:20:20 +00:00
35 lines
745 B
Perl
Executable File
35 lines
745 B
Perl
Executable File
#!/usr/bin/perl -T
|
|
|
|
use lib '.'; use lib 't';
|
|
use SATest; sa_t_init("stop_always_matching_regexps");
|
|
use Test::More tests => 12;
|
|
|
|
# ---------------------------------------------------------------------------
|
|
|
|
use strict;
|
|
require Mail::SpamAssassin;
|
|
use Mail::SpamAssassin::Util qw(compile_regexp);
|
|
|
|
sub is_caught {
|
|
my ($re) = @_;
|
|
my ($rec, $err) = compile_regexp($re, 0, 1);
|
|
return !$rec;
|
|
}
|
|
|
|
ok !is_caught 'foo|bar';
|
|
ok is_caught 'foo||bar';
|
|
ok is_caught '|bar';
|
|
ok is_caught 'foo|';
|
|
ok !is_caught 'foo\||bar';
|
|
ok !is_caught '\||bar';
|
|
|
|
ok !is_caught '(foo|bar)baz';
|
|
ok is_caught '(foo||bar)baz';
|
|
ok !is_caught '(|bar)baz';
|
|
ok !is_caught '(foo|)baz';
|
|
ok !is_caught '(foo\||bar)baz';
|
|
ok !is_caught '(\||bar)baz';
|
|
|
|
# ok is_caught '(\s*) +';
|
|
|