Mailing List Archive

svn commit: r423241 - in /spamassassin/trunk: MANIFEST lib/Mail/SpamAssassin.pm t/lint_nocreate_prefs.t
Author: jm
Date: Tue Jul 18 13:55:43 2006
New Revision: 423241

URL: http://svn.apache.org/viewvc?rev=423241&view=rev
Log:
bug 4690: --lint implies -x (do not create prefs)

Added:
spamassassin/trunk/t/lint_nocreate_prefs.t (with props)
Modified:
spamassassin/trunk/MANIFEST
spamassassin/trunk/lib/Mail/SpamAssassin.pm

Modified: spamassassin/trunk/MANIFEST
URL: http://svn.apache.org/viewvc/spamassassin/trunk/MANIFEST?rev=423241&r1=423240&r2=423241&view=diff
==============================================================================
--- spamassassin/trunk/MANIFEST (original)
+++ spamassassin/trunk/MANIFEST Tue Jul 18 13:55:43 2006
@@ -340,6 +340,7 @@
t/ip_addrs.t
t/lang_lint.t
t/lang_pl_tests.t
+t/lint_nocreate_prefs.t
t/memory_cycles.t
t/meta.t
t/metadata.t

Modified: spamassassin/trunk/lib/Mail/SpamAssassin.pm
URL: http://svn.apache.org/viewvc/spamassassin/trunk/lib/Mail/SpamAssassin.pm?rev=423241&r1=423240&r2=423241&view=diff
==============================================================================
--- spamassassin/trunk/lib/Mail/SpamAssassin.pm (original)
+++ spamassassin/trunk/lib/Mail/SpamAssassin.pm Tue Jul 18 13:55:43 2006
@@ -1248,8 +1248,13 @@
$self->{lint_rules} = $self->{conf}->{lint_rules} = 1;
$self->{syntax_errors} = 0;

+ my $olddcp = $self->{dont_copy_prefs};
+ $self->{dont_copy_prefs} = 1;
+
$self->init(1);
$self->{syntax_errors} += $self->{conf}->{errors};
+
+ $self->{dont_copy_prefs} = $olddcp; # revert back to previous

my $mail = $self->parse(\@testmsg, 1);
my $status = Mail::SpamAssassin::PerMsgStatus->new($self, $mail,

Added: spamassassin/trunk/t/lint_nocreate_prefs.t
URL: http://svn.apache.org/viewvc/spamassassin/trunk/t/lint_nocreate_prefs.t?rev=423241&view=auto
==============================================================================
--- spamassassin/trunk/t/lint_nocreate_prefs.t (added)
+++ spamassassin/trunk/t/lint_nocreate_prefs.t Tue Jul 18 13:55:43 2006
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+use lib '.'; use lib 't';
+use SATest; sa_t_init("lint_nocreate_prefs");
+use Test; BEGIN { plan tests => 2 };
+
+# ---------------------------------------------------------------------------
+
+%patterns = ( q{ }, 'anything' );
+
+# override locale for this test!
+$ENV{'LC_ALL'} = 'C';
+
+sarun ("-L --lint --prefspath=log/prefs", \&patterns_run_cb);
+ok_all_patterns();
+
+ok (!-f "log/prefs");
+

Propchange: spamassassin/trunk/t/lint_nocreate_prefs.t
------------------------------------------------------------------------------
svn:executable = *