From 86b15d8e0ac154308f2d65cbe4380b0d613bc3f6 Mon Sep 17 00:00:00 2001
From: Matt Sergeant <matt@sergeant.org>
Date: Tue, 21 Sep 2004 18:16:05 +0000
Subject: [PATCH] Moved to attic

git-svn-id: https://svn.perl.org/qpsmtpd/trunk@325 958fd67b-6ff1-0310-b445-bb7760255be9
---
 t/plugin_tests/bounce_verp | 62 --------------------------------------
 1 file changed, 62 deletions(-)
 delete mode 100644 t/plugin_tests/bounce_verp

diff --git a/t/plugin_tests/bounce_verp b/t/plugin_tests/bounce_verp
deleted file mode 100644
index fca54b8..0000000
--- a/t/plugin_tests/bounce_verp
+++ /dev/null
@@ -1,62 +0,0 @@
-# Bounce verp tests
-
-sub register_tests {
-    my $self = shift;
-    
-    $self->register_test(test_skip_verp => 8);
-    $self->register_test(test_is_bounce => 4);
-    $self->register_test(test_do_verp => 1);
-    $self->register_test(test_check_verp => 1);
-}
-
-sub test_skip_verp {
-    my $self = shift;
-    
-    # poison the cache
-    $self->qp->{_config_cache}->{'bounce_verp.skip'} = [
-        'example.com',
-        'qpsmtpd@perl.org',
-        ];
-    
-    # check the cache poison
-    my @skip = $self->qp->config('bounce_verp.skip');
-    ok(@skip == 2, "skip contains right number of elements");
-    
-    for (qw(test@example.com x@example.com qpsmtpd@perl.org qpsmtpd-foo@perl.org x@eXample.com))
-    {
-        ok($self->skip_verp($_), "Skip $_");
-    }
-    
-    for (qw(test@example.org p5p@perl.org)) {
-        ok(!$self->skip_verp($_), "Skip $_");
-    }
-}
-
-sub test_is_bounce {
-    my $self = shift;
-    
-    my $tran = $self->transaction();
-    
-    # check null sender
-    $tran->sender(Qpsmtpd::Address->new('<>'));
-    ok($self->is_bounce($tran), "Check null sender is_bounce");
-    
-    # check postmaster mail
-    $tran->sender(Qpsmtpd::Address->new('<postmaster@example.com>'));
-    ok($self->is_bounce($tran), "Check postmaster is_bounce");
-    
-    # check mailer-daemon mail
-    $tran->sender(Qpsmtpd::Address->new('<mailer-daemon@example.com>'));
-    ok($self->is_bounce($tran), "Check mailer-daemon is_bounce");
-    $tran->sender(Qpsmtpd::Address->new('<Mailer_daemon@example.com>'));
-    ok($self->is_bounce($tran), "Check mailer_daemon is_bounce");
-    
-}
-
-sub test_do_verp {
-    ok(1);
-}
-
-sub test_check_verp {
-    ok(1);
-}