r838 - in packages/libmail-box-perl/branches/upstream/current: lib/Mail lib/Mail/Box/Search lib/Mail/Server tests tests/10report tests/10reporter
Gunnar Wolf
gwolf@costa.debian.org
Wed, 30 Mar 2005 17:41:50 +0000
Author: gwolf
Date: 2005-03-30 17:41:50 +0000 (Wed, 30 Mar 2005)
New Revision: 838
Added:
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Server/
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Server/IMAP4.pm
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Server/IMAP4.pod
packages/libmail-box-perl/branches/upstream/current/tests/10reporter/
packages/libmail-box-perl/branches/upstream/current/tests/10reporter/10errors.t
packages/libmail-box-perl/branches/upstream/current/tests/10reporter/Definition.pm
Removed:
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pm
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pod
packages/libmail-box-perl/branches/upstream/current/tests/10report/10errors.t
packages/libmail-box-perl/branches/upstream/current/tests/10report/Definition.pm
Log:
To prepare to load /tmp/tmp.p8rNJv/libmail-box-perl-2.060 into
packages/libmail-box-perl/branches/upstream/current, perform 4 renames.
*
packages/libmail-box-perl/branches/upstream/current/tests/10reporter/
10errors.t: Renamed from
packages/libmail-box-perl/branches/upstream/current/tests/10report/10
errors.t.
*
packages/libmail-box-perl/branches/upstream/current/tests/10reporter/
Definition.pm: Renamed from
packages/libmail-box-perl/branches/upstream/current/tests/10report/De
finition.pm.
*
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Server/I
MAP4.pm: Renamed from
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Sear
ch/IMAP.pm.
*
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Server/I
MAP4.pod: Renamed from
packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Sear
ch/IMAP.pod.
Deleted: packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pm
===================================================================
--- packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pm 2005-03-30 17:26:31 UTC (rev 837)
+++ packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pm 2005-03-30 17:41:50 UTC (rev 838)
@@ -1,22 +0,0 @@
-
-package Mail::Box::Search::IMAP;
-use vars '$VERSION';
-$VERSION = '2.055';
-use base 'Mail::Box::Search';
-
-use strict;
-use warnings;
-
-use Carp;
-
-#-------------------------------------------
-
-
-sub init($)
-{ my ($self, $args) = @_;
- $self->notImplemented;
-}
-
-#-------------------------------------------
-
-1;
Deleted: packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pod
===================================================================
--- packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pod 2005-03-30 17:26:31 UTC (rev 837)
+++ packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pod 2005-03-30 17:41:50 UTC (rev 838)
@@ -1,286 +0,0 @@
-
-=head1 NAME
-
-Mail::Box::Search::IMAP - select messages within a IMAP folder
-
-
-=head1 INHERITANCE
-
- Mail::Box::Search::IMAP
- is a Mail::Box::Search
- is a Mail::Reporter
-
-
-=head1 SYNOPSIS
-
- use Mail::Box::Manager;
- my $mgr = Mail::Box::Manager->new;
- my $folder = $mgr->open('imap4:Inbox');
-
- my $filter = Mail::Box::Search::IMAP->new
- ( ...to be defined...
- );
-
- my @msgs = $filter->search($folder);
- if($filter->search($message)) {...}
-
-
-=head1 DESCRIPTION
-
-THIS PACKAGES IS NOT IMPLEMENTED YET: it waits for
-L<Mail::Transport::IMAP4|Mail::Transport::IMAP4> to be available.
-
-
-
-=head1 METHODS
-
-
-=head2 Constructors
-
-
-Mail::Box::Search::IMAP-E<gt>B<new>(OPTIONS)
-
-=over 4
-
- Option Defined in Default
- binaries L<Mail::Box::Search> <false>
- decode L<Mail::Box::Search> <true>
- delayed L<Mail::Box::Search> <true>
- deleted L<Mail::Box::Search> <false>
- deliver L<Mail::Box::Search> undef
- in L<Mail::Box::Search> C<'BODY'>
- label L<Mail::Box::Search> undef
- limit L<Mail::Box::Search> C<0>
- log L<Mail::Reporter> C<'WARNINGS'>
- logical L<Mail::Box::Search> C<'REPLACE'>
- multiparts L<Mail::Box::Search> <true>
- trace L<Mail::Reporter> C<'WARNINGS'>
-
-. binaries BOOLEAN
-
-. decode BOOLEAN
-
-. delayed BOOLEAN
-
-. deleted BOOLEAN
-
-. deliver undef|CODE|'DELETE'
-
-. in 'HEAD'|'BODY'|'MESSAGE'
-
-. label STRING
-
-. limit NUMBER
-
-. log LEVEL
-
-. logical 'REPLACE'|'AND'|'OR'|'NOT'|'AND NOT'|'OR NOT'
-
-. multiparts BOOLEAN
-
-. trace LEVEL
-
-=back
-
-=head2 Searching
-
-
-$obj-E<gt>B<inBody>(PART, BODY)
-
-=over 4
-
-See L<Mail::Box::Search/"Searching">
-
-=back
-
-$obj-E<gt>B<inHead>(PART, HEAD)
-
-=over 4
-
-See L<Mail::Box::Search/"Searching">
-
-=back
-
-$obj-E<gt>B<search>(FOLDER|THREAD|MESSAGE|ARRAY-OF-MESSAGES)
-
-=over 4
-
-See L<Mail::Box::Search/"Searching">
-
-=back
-
-$obj-E<gt>B<searchPart>(PART)
-
-=over 4
-
-See L<Mail::Box::Search/"Searching">
-
-=back
-
-=head2 The Results
-
-
-$obj-E<gt>B<printMatch>([FILEHANDLE], HASH)
-
-=over 4
-
-See L<Mail::Box::Search/"The Results">
-
-=back
-
-=head2 Error handling
-
-
-$obj-E<gt>B<AUTOLOAD>
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<addReport>(OBJECT)
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<defaultTrace>([LEVEL, [LEVEL])
-
-Mail::Box::Search::IMAP-E<gt>B<defaultTrace>([LEVEL, [LEVEL])
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<errors>
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<log>([LEVEL [,STRINGS]])
-
-Mail::Box::Search::IMAP-E<gt>B<log>([LEVEL [,STRINGS]])
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<logPriority>(LEVEL)
-
-Mail::Box::Search::IMAP-E<gt>B<logPriority>(LEVEL)
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<logSettings>
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<notImplemented>
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<report>([LEVEL])
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<reportAll>([LEVEL])
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<trace>([LEVEL])
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-$obj-E<gt>B<warnings>
-
-=over 4
-
-See L<Mail::Reporter/"Error handling">
-
-=back
-
-=head2 Cleanup
-
-
-$obj-E<gt>B<DESTROY>
-
-=over 4
-
-See L<Mail::Reporter/"Cleanup">
-
-=back
-
-$obj-E<gt>B<inGlobalDestruction>
-
-=over 4
-
-See L<Mail::Reporter/"Cleanup">
-
-=back
-
-
-
-=head1 DIAGNOSTICS
-
-I<Error:> Package $package does not implement $method.
-
-Fatal error: the specific package (or one of its superclasses) does not
-implement this method where it should. This message means that some other
-related classes do implement this method however the class at hand does
-not. Probably you should investigate this and probably inform the author
-of the package.
-
-
-
-
-
-
-=head1 REFERENCES
-
-See the MailBox website at L<http://perl.overmeer.net/mailbox/> for more details.
-
-=head1 COPYRIGHTS
-
-Distribution version 2.055.
-Written by Mark Overmeer (mark@overmeer.net). See the ChangeLog for
-other contributors.
-
-Copyright (c) 2001-2003 by the author(s). All rights reserved.
-This program is free software; you can redistribute it and/or modify it
-under the same terms as Perl itself.
-
-
Copied: packages/libmail-box-perl/branches/upstream/current/lib/Mail/Server/IMAP4.pm (from rev 837, packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pm)
Copied: packages/libmail-box-perl/branches/upstream/current/lib/Mail/Server/IMAP4.pod (from rev 837, packages/libmail-box-perl/branches/upstream/current/lib/Mail/Box/Search/IMAP.pod)
Deleted: packages/libmail-box-perl/branches/upstream/current/tests/10report/10errors.t
===================================================================
--- packages/libmail-box-perl/branches/upstream/current/tests/10report/10errors.t 2005-03-30 17:26:31 UTC (rev 837)
+++ packages/libmail-box-perl/branches/upstream/current/tests/10report/10errors.t 2005-03-30 17:41:50 UTC (rev 838)
@@ -1,162 +0,0 @@
-#!/usr/bin/perl -T
-#
-# Test reporting warnings, errors and family.
-#
-
-use strict;
-use warnings;
-
-use lib qw(. .. tests);
-use Tools;
-
-use Test::More tests => 85;
-
-use Mail::Reporter;
-
-#
-# Dualvar logPriority
-#
-
-my $a = Mail::Reporter->logPriority('WARNING');
-ok(defined $a);
-ok($a == 4);
-is($a, 'WARNING');
-
-my $b = Mail::Reporter->logPriority('WARNINGS');
-ok(defined $b);
-ok($b == 4);
-is($b, 'WARNING');
-
-my $c = Mail::Reporter->logPriority(4);
-ok(defined $c);
-ok($c == 4);
-is($c, 'WARNING');
-
-my $d = Mail::Reporter->logPriority('AAP');
-ok(!defined $d);
-my $e = Mail::Reporter->logPriority(8);
-ok(!defined $e);
-
-#
-# Set default trace
-#
-
-my ($l, $t) = Mail::Reporter->defaultTrace('DEBUG', 'ERRORS');
-ok(defined $l);
-ok(defined $t);
-
-is($l, 'DEBUG', 'string log level');
-cmp_ok($l, '==', 1, 'numeric log level');
-
-is($t, 'ERROR', 'string trace level');
-cmp_ok($t, '==', 5, 'string trace level');
-
-($l, $t) = Mail::Reporter->defaultTrace('PROGRESS');
-is($l, 'PROGRESS', 'string log level');
-cmp_ok($l, '==', 3, 'numeric log level');
-
-is($t, 'PROGRESS', 'string trace level');
-cmp_ok($t, '==', 3, 'string trace level');
-
-($l, $t) = Mail::Reporter->defaultTrace('WARNING', 'WARNINGS');
-is($l, 'WARNING', 'string log level');
-cmp_ok($l, '==', 4, 'numeric log level');
-
-is($t, 'WARNING', 'string trace level');
-cmp_ok($t, '==', 4, 'string trace level');
-
-#
-# Reporting levels
-#
-
-my $rep = Mail::Reporter->new;
-
-ok(defined $rep);
-is($rep->log, 'WARNING', 'Default log-level');
-cmp_ok($rep->log, '==', 4);
-$l = $rep->log;
-is($l, 'WARNING', 'Default log-level');
-cmp_ok($l, '==', 4);
-
-is($rep->trace, 'WARNING', 'Default trace-level');
-cmp_ok($rep->trace, '==', 4);
-$t = $rep->trace;
-is($t, 'WARNING', 'Default trace-level');
-cmp_ok($t, '==', 4);
-
-cmp_ok($rep->trace('ERROR'), '==', 5, 'Check error level numbers');
-
-my $catch;
-{ local $SIG{__WARN__} = sub { $catch = shift };
- $rep->log(ERROR => 'a test'); # \n will be added
-}
-is($catch, "ERROR: a test\n", 'Stored one error text');
-cmp_ok($rep->report('ERRORS'), '==', 1, 'Counts one error');
-is(($rep->report('ERRORS'))[0], "a test\n", 'Correctly stored text');
-
-undef $catch;
-{ local $SIG{__WARN__} = sub { $catch = shift };
- $rep->log(WARNING => "filter\n");
-}
-ok(!defined $catch, 'No visible warnings');
-cmp_ok($rep->report('WARNING'), '==', 1, 'Count logged warnings');
-cmp_ok($rep->report('ERROR'), '==', 1, 'Count logged errors');
-cmp_ok($rep->report, '==', 2, 'Count all logged messages');
-is(($rep->report('WARNINGS'))[0], "filter\n", 'Just one \n');
-
-my @reps = $rep->report;
-is($reps[0][0], 'WARNING', 'Checking report()');
-is($reps[0][1], "filter\n");
-is($reps[1][0], 'ERROR');
-is($reps[1][1], "a test\n");
-
-@reps = $rep->reportAll;
-is($reps[0][0], $rep, 'Checking reportAll()');
-is($reps[0][1], 'WARNING');
-is($reps[0][2], "filter\n");
-is($reps[1][0], $rep);
-is($reps[1][1], 'ERROR');
-is($reps[1][2], "a test\n");
-
-cmp_ok($rep->errors, '==', 1, 'Check errors() short-cut');
-cmp_ok($rep->warnings, '==', 1, 'Check warnings() short-cut');
-
-#
-# Check merging reports
-#
-
-my $r2 = Mail::Reporter->new(trace => 'NONE', log => 'DEBUG');
-ok(defined $r2, 'Another traceable object');
-isa_ok($r2, 'Mail::Reporter');
-ok($r2->log(WARNING => 'I warn you!'));
-ok($r2->log(ERROR => 'You are in error'));
-ok($r2->log(ERROR => 'I am sure!!'));
-ok($r2->log(NOTICE => 'Don\'t notice me'));
-$rep->addReport($r2);
-
-@reps = $rep->reportAll;
-cmp_ok(@{$reps[0]}, '==', 3);
-is($reps[0][0], $rep, 'Checking reportAll()');
-is($reps[0][1], 'NOTICE');
-is($reps[0][2], "Don't notice me\n");
-cmp_ok(@{$reps[1]}, '==', 3);
-is($reps[1][0], $rep);
-is($reps[1][1], 'WARNING');
-is($reps[1][2], "filter\n");
-cmp_ok(@{$reps[2]}, '==', 3);
-is($reps[2][0], $rep);
-is($reps[2][1], 'WARNING');
-is($reps[2][2], "I warn you!\n");
-cmp_ok(@{$reps[3]}, '==', 3);
-is($reps[3][0], $rep);
-is($reps[3][1], 'ERROR');
-is($reps[3][2], "a test\n");
-cmp_ok(@{$reps[4]}, '==', 3);
-is($reps[4][0], $rep);
-is($reps[4][1], 'ERROR');
-is($reps[4][2], "You are in error\n");
-cmp_ok(@{$reps[5]}, '==', 3);
-is($reps[5][0], $rep);
-is($reps[5][1], 'ERROR');
-is($reps[5][2], "I am sure!!\n");
-
Deleted: packages/libmail-box-perl/branches/upstream/current/tests/10report/Definition.pm
===================================================================
--- packages/libmail-box-perl/branches/upstream/current/tests/10report/Definition.pm 2005-03-30 17:26:31 UTC (rev 837)
+++ packages/libmail-box-perl/branches/upstream/current/tests/10report/Definition.pm 2005-03-30 17:41:50 UTC (rev 838)
@@ -1,8 +0,0 @@
-
-package MailBox::Test::10report::Definition;
-
-sub name {"Mail::Report; general base class"}
-sub critical {1}
-sub skip { undef }
-
-1;
Copied: packages/libmail-box-perl/branches/upstream/current/tests/10reporter/10errors.t (from rev 837, packages/libmail-box-perl/branches/upstream/current/tests/10report/10errors.t)
Copied: packages/libmail-box-perl/branches/upstream/current/tests/10reporter/Definition.pm (from rev 837, packages/libmail-box-perl/branches/upstream/current/tests/10report/Definition.pm)