Attachment #4873 for bug #6500

View | Details | Raw Unified | Return to bug 6500
Collapse All | Expand All




#!/usr/bin/perl

use lib '.'; use lib 't';
use SATest; sa_t_init("if_can");
use Test; BEGIN { plan tests => 9 };

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

tstlocalrules (q{
  header TEST_ORIG_IP_H1 X-Spam-Relays-External =~ /\bip=198\.51\.100\.1\b/
  score  TEST_ORIG_IP_H1 0.1
  header TEST_ORIG_IP_H2 X-Spam-Relays-External =~ /\bip=198\.51\.100\.2\b/
  score  TEST_ORIG_IP_H2 0.1
});

%patterns      = ( q{ TEST_ORIG_IP_H1 }, 'test_orig_ip_h1' );
%anti_patterns = ( q{ TEST_ORIG_IP_H2 }, 'test_orig_ip_h2' );

ok(sarun("-L -t < data/nice/orig_ip_hdr.eml", \&patterns_run_cb));
ok_all_patterns();

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

tstlocalrules (q{
  clear_originating_ip_headers
  originating_ip_headers X-Yahoo-Post-IP X-Apparently-From
  originating_ip_headers X-Originating-IP X-SenderIP
  originating_ip_headers X-Testing-Ip
  header TEST_ORIG_IP_H1 X-Spam-Relays-External =~ /\bip=198\.51\.100\.1\b/
  score  TEST_ORIG_IP_H1 0.1
  header TEST_ORIG_IP_H2 X-Spam-Relays-External =~ /\bip=198\.51\.100\.2\b/
  score  TEST_ORIG_IP_H2 0.1
});

%patterns      = ( q{ TEST_ORIG_IP_H1 }, 'test_orig_ip_h1',
                   q{ TEST_ORIG_IP_H2 }, 'test_orig_ip_h2' );
%anti_patterns = ();

ok(sarun("-L -t < data/nice/orig_ip_hdr.eml", \&patterns_run_cb));
ok_all_patterns();

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

tstlocalrules (q{
  clear_originating_ip_headers
  header TEST_ORIG_IP_H1 X-Spam-Relays-External =~ /\bip=198\.51\.100\.1\b/
  score  TEST_ORIG_IP_H1 0.1
  header TEST_ORIG_IP_H2 X-Spam-Relays-External =~ /\bip=198\.51\.100\.2\b/
  score  TEST_ORIG_IP_H2 0.1
});

%patterns = ();
%anti_patterns = ( q{ TEST_ORIG_IP_H1 }, 'test_orig_ip_h1',
                   q{ TEST_ORIG_IP_H2 }, 'test_orig_ip_h2' );

ok(sarun("-L -t < data/nice/orig_ip_hdr.eml", \&patterns_run_cb));
ok_all_patterns();

  + native




Subject: test
From: Roel <rolek@example.nl>
To: Roel <rolek@example.nl>
Date: Mon, 11 Oct 2010 14:21:30 +0200
Message-Id: <AANLkTimZ6YzUo7FaGcky8J11oa2345345637635763Lb@mail.gmail.com>

test

Return to bug 6500

Line 0 Link Here

(-)t/originating_ip_hdr.t (+58 lines)
		1	#!/usr/bin/perl
		2
		3	use lib '.'; use lib 't';
		4	use SATest; sa_t_init("if_can");
		5	use Test; BEGIN { plan tests => 9 };
		6
		7	# ---------------------------------------------------------------------------
		8
		9	tstlocalrules (q{
		10	header TEST_ORIG_IP_H1 X-Spam-Relays-External =~ /\bip=198\.51\.100\.1\b/
		11	score TEST_ORIG_IP_H1 0.1
		12	header TEST_ORIG_IP_H2 X-Spam-Relays-External =~ /\bip=198\.51\.100\.2\b/
		13	score TEST_ORIG_IP_H2 0.1
		14	});
		15
		16	%patterns = ( q{ TEST_ORIG_IP_H1 }, 'test_orig_ip_h1' );
		17	%anti_patterns = ( q{ TEST_ORIG_IP_H2 }, 'test_orig_ip_h2' );
		18
		19	ok(sarun("-L -t < data/nice/orig_ip_hdr.eml", \&patterns_run_cb));
		20	ok_all_patterns();
		21
		22	# ---------------------------------------------------------------------------
		23
		24	tstlocalrules (q{
		25	clear_originating_ip_headers
		26	originating_ip_headers X-Yahoo-Post-IP X-Apparently-From
		27	originating_ip_headers X-Originating-IP X-SenderIP
		28	originating_ip_headers X-Testing-Ip
		29	header TEST_ORIG_IP_H1 X-Spam-Relays-External =~ /\bip=198\.51\.100\.1\b/
		30	score TEST_ORIG_IP_H1 0.1
		31	header TEST_ORIG_IP_H2 X-Spam-Relays-External =~ /\bip=198\.51\.100\.2\b/
		32	score TEST_ORIG_IP_H2 0.1
		33	});
		34
		35	%patterns = ( q{ TEST_ORIG_IP_H1 }, 'test_orig_ip_h1',
		36	q{ TEST_ORIG_IP_H2 }, 'test_orig_ip_h2' );
		37	%anti_patterns = ();
		38
		39	ok(sarun("-L -t < data/nice/orig_ip_hdr.eml", \&patterns_run_cb));
		40	ok_all_patterns();
		41
		42	# ---------------------------------------------------------------------------
		43
		44	tstlocalrules (q{
		45	clear_originating_ip_headers
		46	header TEST_ORIG_IP_H1 X-Spam-Relays-External =~ /\bip=198\.51\.100\.1\b/
		47	score TEST_ORIG_IP_H1 0.1
		48	header TEST_ORIG_IP_H2 X-Spam-Relays-External =~ /\bip=198\.51\.100\.2\b/
		49	score TEST_ORIG_IP_H2 0.1
		50	});
		51
		52	%patterns = ();
		53	%anti_patterns = ( q{ TEST_ORIG_IP_H1 }, 'test_orig_ip_h1',
		54	q{ TEST_ORIG_IP_H2 }, 'test_orig_ip_h2' );
		55
		56	ok(sarun("-L -t < data/nice/orig_ip_hdr.eml", \&patterns_run_cb));
		57	ok_all_patterns();
		58
0	+ native	59	+ native

Line 0 Link Here

(-)t/data/nice/orig_ip_hdr.eml (+12 lines)
	1	Received: from 1.2.3.4 by probeer.bokxing.nl
	2	(probeer.alt001.com [87.253.148.98]) with ESMTP id YN8t6r6y41Ly
	3	for <rolek@example.nl>; Mon, 11 Oct 2010 14:21:26 +0200 (CEST)
	4	X-Originating-Ip: [198.51.100.1]
	5	X-Testing-Ip: [198.51.100.2]
	6	Subject: test
	7	From: Roel <rolek@example.nl>
	8	To: Roel <rolek@example.nl>
	9	Date: Mon, 11 Oct 2010 14:21:30 +0200
	10	Message-Id: <AANLkTimZ6YzUo7FaGcky8J11oa2345345637635763Lb@mail.gmail.com>
	11
	12	test