svn commit: r494182 - in /spamassassin/trunk: MANIFEST t/basic_obj_api.t

[jm...@apache.org]

Author: jm
Date: Mon Jan  8 12:02:32 2007
New Revision: 494182

URL: http://svn.apache.org/viewvc?view=rev&rev=494182
Log:
I don't think we actually have a test for this yet, which is an oversight

Added:
    spamassassin/trunk/t/basic_obj_api.t   (with props)
Modified:
    spamassassin/trunk/MANIFEST

Modified: spamassassin/trunk/MANIFEST
URL: http://svn.apache.org/viewvc/spamassassin/trunk/MANIFEST?view=diff&rev=494182&r1=494181&r2=494182
==============================================================================
--- spamassassin/trunk/MANIFEST (original)
+++ spamassassin/trunk/MANIFEST Mon Jan  8 12:02:32 2007
@@ -475,3 +475,4 @@
 t/duplicates.t
 t/data/testplugin2.pm
 t/plugin_priorities.t
+t/basic_obj_api.t

Added: spamassassin/trunk/t/basic_obj_api.t
URL: http://svn.apache.org/viewvc/spamassassin/trunk/t/basic_obj_api.t?view=auto&rev=494182
==============================================================================
--- spamassassin/trunk/t/basic_obj_api.t (added)
+++ spamassassin/trunk/t/basic_obj_api.t Mon Jan  8 12:02:32 2007
@@ -0,0 +1,45 @@
+#!/usr/bin/perl
+
+BEGIN {
+  if (-e 't/test_dir') { # if we are running "t/rule_tests.t", kluge around ...
+    chdir 't';
+  }
+
+  if (-e 'test_dir') {            # running from test directory, not ..
+    unshift(@INC, '../blib/lib');
+    unshift(@INC, '../lib');
+  }
+}
+
+my $prefix = '.';
+if (-e 'test_dir') {            # running from test directory, not ..
+  $prefix = '..';
+}
+
+use lib '.'; use lib 't';
+use SATest; sa_t_init("tainted_msg");
+use Test; BEGIN { plan tests => 4 };
+
+# ---------------------------------------------------------------------------
+
+use strict;
+require Mail::SpamAssassin;
+
+my $sa = create_saobj({'dont_copy_prefs' => 1});
+$sa->init(0); # parse rules
+ok($sa);
+
+open (IN, "<data/spam/009");
+my $mail = $sa->parse(\*IN);
+close IN;
+
+my $status = $sa->check($mail);
+my $rewritten = $status->rewrite_mail();
+my $msg = $status->{msg};
+
+ok $rewritten =~ /message\/rfc822; x-spam-type=original/;
+ok $rewritten =~ /X-Spam-Flag: YES/;
+
+$mail->finish();
+$status->finish();
+ok 1;

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