Mailing List Archive

Author: quinlan
Date: Fri Mar 26 21:02:36 2004
New Revision: 9777

Modified:
incubator/spamassassin/trunk/t/rule_names.t
Log:
get count right


Modified: incubator/spamassassin/trunk/t/rule_names.t
==============================================================================
--- incubator/spamassassin/trunk/t/rule_names.t (original)
+++ incubator/spamassassin/trunk/t/rule_names.t Fri Mar 26 21:02:36 2004
@@ -41,11 +41,6 @@
# run tests
my $mail = 'log/rule_names.eml';
write_mail();
-plan tests => (scalar @tests),
- onfail => sub {
- warn "\n\n Note: rule_name failures may be only cosmetic" .
- "\n but must be fixed before release\n\n";
- };
%patterns = ();
my $i = 1;
for my $test (@tests) {
@@ -59,6 +54,14 @@
next if $test eq "UNIQUE_WORDS";
$anti_patterns{"$test,"} = "P_" . $i++;
}
+
+# settings
+plan tests => (scalar(keys %anti_patterns) + scalar(keys %patterns)),
+onfail => sub {
+ warn "\n\n Note: rule_name failures may be only cosmetic" .
+ "\n but must be fixed before release\n\n";
+};
+
tstprefs ("
# set super low threshold, so always marked as spam
required_hits -10000.0