r54309 - in /trunk/libnet-imap-simple-perl: Changes MANIFEST META.yml Makefile.PL Simple.pm contrib/search-test.pl debian/changelog t/11_mailboxes.t t/22_copy_multiple.t t/22_delete_multiple.t t/23_delete_multiple.t t/test_server.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Sun Mar 14 16:19:04 UTC 2010
Author: jawnsy-guest
Date: Sun Mar 14 16:18:57 2010
New Revision: 54309
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=54309
Log:
still waits for libnet-imap-server-perl
Added:
trunk/libnet-imap-simple-perl/contrib/search-test.pl
- copied unchanged from r54304, branches/upstream/libnet-imap-simple-perl/current/contrib/search-test.pl
trunk/libnet-imap-simple-perl/t/11_mailboxes.t
- copied unchanged from r54304, branches/upstream/libnet-imap-simple-perl/current/t/11_mailboxes.t
trunk/libnet-imap-simple-perl/t/23_delete_multiple.t
- copied unchanged from r54304, branches/upstream/libnet-imap-simple-perl/current/t/23_delete_multiple.t
Removed:
trunk/libnet-imap-simple-perl/t/22_delete_multiple.t
Modified:
trunk/libnet-imap-simple-perl/Changes
trunk/libnet-imap-simple-perl/MANIFEST
trunk/libnet-imap-simple-perl/META.yml
trunk/libnet-imap-simple-perl/Makefile.PL
trunk/libnet-imap-simple-perl/Simple.pm
trunk/libnet-imap-simple-perl/debian/changelog
trunk/libnet-imap-simple-perl/t/22_copy_multiple.t
trunk/libnet-imap-simple-perl/t/test_server.pm
Modified: trunk/libnet-imap-simple-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/Changes?rev=54309&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/Changes (original)
+++ trunk/libnet-imap-simple-perl/Changes Sun Mar 14 16:18:57 2010
@@ -1,3 +1,22 @@
+1.1911: Sun Mar 14 2010
+ - Fixed [introduced] bugs illuminated in #55552 (RT), thanks
+ to Aaron Wilson <aaron at gmx.co.uk> for a positively excellent
+ bug report!
+
+1.1910_2: Wed Feb 17 2010
+ - http://www.nntp.perl.org/group/perl.cpan.testers/2010/02/msg6764802.html
+ - I still can't figure out what's causing this... NO IDEA
+ - I made the test ridiculously verbose if two conditions are
+ met: 1) automated testing; 2) the copy tests fail in some
+ way.
+
+1.1910_1: Sun Jan 17 2010
+ - http://www.nntp.perl.org/group/perl.cpan.testers/2010/01/msg6625605.html
+ It seems the t/22_* tests are failing, but I can't seem to
+ build a perl for which the tests fail. :( No idea.
+ I added another prereq to the makefile and added another
+ line (perhaps informative?) to the t/22_copy* test.
+
1.1910: Tue Oct 27 2009
- documented search() and added a bunch of kid functions that
issue searches on your behalf. Added tests for search().
Modified: trunk/libnet-imap-simple-perl/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/MANIFEST?rev=54309&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/MANIFEST (original)
+++ trunk/libnet-imap-simple-perl/MANIFEST Sun Mar 14 16:18:57 2010
@@ -15,6 +15,7 @@
contrib/hand_test01.pl
contrib/imap.pl
contrib/preauth-pipe-server.pl
+contrib/search-test.pl
contrib/status.pl
inc/Net/IMAP/Server.pm
inc/Net/IMAP/Server/Command.pm
@@ -59,10 +60,11 @@
t/07_select_and_examine.t
t/08_selectalot.t
t/09_concurrent_connections_new.t
+t/11_mailboxes.t
t/15_flags.t
t/17_status_and_select.t
t/22_copy_multiple.t
-t/22_delete_multiple.t
+t/23_delete_multiple.t
t/35_imap_results_in_message_body.t
t/40_preauth.t
t/45_search.t
Modified: trunk/libnet-imap-simple-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/META.yml?rev=54309&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/META.yml (original)
+++ trunk/libnet-imap-simple-perl/META.yml Sun Mar 14 16:18:57 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Net-IMAP-Simple
-version: 1.1910
+version: 1.1911
abstract: ~
author:
- Paul Miller <jettero at cpan.org>
@@ -17,6 +17,7 @@
Email::MIME::ContentType: 0
Email::Simple: 1.999
Encode::IMAPUTF7: 0
+ List::MoreUtils: 0
MIME::Base64: 0
Net::Server::Coro: 0.3
Net::SSLeay: 0
@@ -35,7 +36,7 @@
directory:
- t
- inc
-generated_by: ExtUtils::MakeMaker version 6.54
+generated_by: ExtUtils::MakeMaker version 6.56
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
version: 1.4
Modified: trunk/libnet-imap-simple-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/Makefile.PL?rev=54309&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/Makefile.PL (original)
+++ trunk/libnet-imap-simple-perl/Makefile.PL Sun Mar 14 16:18:57 2010
@@ -37,6 +37,7 @@
'Email::Simple' => 1.999,
'Encode::IMAPUTF7' => 0,
'MIME::Base64' => 0,
+ 'List::MoreUtils' => 0,
'Net::SSLeay' => 0,
'Net::Server::Coro' => 0.3,
'Regexp::Common' => 0,
Modified: trunk/libnet-imap-simple-perl/Simple.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/Simple.pm?rev=54309&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/Simple.pm (original)
+++ trunk/libnet-imap-simple-perl/Simple.pm Sun Mar 14 16:18:57 2010
@@ -8,7 +8,7 @@
use IO::Socket;
use IO::Select;
-our $VERSION = "1.1910";
+our $VERSION = "1.1911";
BEGIN {
# I'd really rather the pause/cpan indexers miss this "package"
@@ -682,16 +682,16 @@
# recurse, should probably follow
# RFC 2683: 3.2.1.1. Listing Mailboxes
return $self->_process_cmd(
- cmd => [ LIST => qq[$ref *] ],
- final => sub { _unescape($_) for @list; @list },
+ cmd => [ LIST => qq[$ref *] ],
+ final => sub { map { _unescape($_) } @list },
process => sub { push @list, $self->_process_list( $_[0] ); },
);
}
return $self->_process_cmd(
- cmd => [ LIST => qq[$ref $box] ],
- final => sub { _unescape($_) for @list; @list },
+ cmd => [ LIST => qq[$ref $box] ],
+ final => sub { map { _unescape($_) } @list },
process => sub { push @list, $self->_process_list( $_[0] ) },
);
}
@@ -707,16 +707,16 @@
# recurse, should probably follow
# RFC 2683: 3.2.2. Subscriptions
return $self->_process_cmd(
- cmd => [ LSUB => qq[$ref *] ],
- final => sub { _unescape($_) for @list; @list },
+ cmd => [ LSUB => qq[$ref *] ],
+ final => sub { map { _unescape($_) } @list },
process => sub { push @list, $self->_process_list( $_[0] ) },
);
}
return $self->_process_cmd(
- cmd => [ LSUB => qq[$ref $box] ],
- final => sub { _unescape($_) for @list; @list },
+ cmd => [ LSUB => qq[$ref $box] ],
+ final => sub { map { _unescape($_) } @list },
process => sub { push @list, $self->_process_list( $_[0] ) },
);
}
Modified: trunk/libnet-imap-simple-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/debian/changelog?rev=54309&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/debian/changelog (original)
+++ trunk/libnet-imap-simple-perl/debian/changelog Sun Mar 14 16:18:57 2010
@@ -1,17 +1,17 @@
-libnet-imap-simple-perl (1.1910-1) UNRELEASED; urgency=low
+libnet-imap-simple-perl (1.1911-1) UNRELEASED; urgency=low
- [ Jonathan Yu ]
TODO: this has Net::IMAP::Server in Configure_Requires. This means
we need to have that package done before this one can be tested.
WAITS-FOR: libnet-imap-server-perl
+ [ Jonathan Yu ]
* New upstream release
[ Ryan Niebur ]
* Update jawnsy's email address
- -- Jonathan Yu <jawnsy at cpan.org> Thu, 19 Nov 2009 08:56:41 -0500
+ -- Jonathan Yu <jawnsy at cpan.org> Sun, 14 Mar 2010 12:25:45 -0400
libnet-imap-simple-perl (1.1900-1) unstable; urgency=low
Modified: trunk/libnet-imap-simple-perl/t/22_copy_multiple.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/t/22_copy_multiple.t?rev=54309&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/t/22_copy_multiple.t (original)
+++ trunk/libnet-imap-simple-perl/t/22_copy_multiple.t Sun Mar 14 16:18:57 2010
@@ -19,11 +19,26 @@
ok( $imap->select("INBOX")+0, 0 );
$imap->put( INBOX => "Subject: test-$_\n\ntest-$_", '\Seen' ) for 1 .. 10;
- ok( $imap->copy( "3:5,9", 'INBOX/working' ) );
- ok( $imap->copy( "1,7", 'INBOX/working' ) );
- #ok(!$imap->copy( "3:4,9,99,1", 'INBOX/working' ) );
- skip(1,1,1);
- ok( $imap->select("INBOX/working"), 6 );
+ ok( $imap->select("INBOX")+0, 10 );
+
+ my @res;
+ ok( $res[0] = $imap->copy( "3:5,9", 'INBOX/working' ) );
+ ok( $res[1] = $imap->copy( "1,7", 'INBOX/working' ) );
+ ok( $res[2] = $imap->select("INBOX/working"), 6 );
+
+ if( $ENV{AUTOMATED_TESTING} ) {
+ unless( $res[0] and $res[1] and $res[2] ) {
+ warn "\n\n multi-copy test restuls have been vexing module maintainer, logdump follows( @res )\n";
+ sleep 1;
+
+ for my $file(qw(informal-imap-client-dump.log informal-imap-server-dump.log)) {
+ if( open my $in, $file ) {
+ print STDERR "dumping $file\n";
+ print STDERR $_ while <$in>;
+ }
+ }
+ }
+ }
}
do "t/test_server.pm" or die "error starting imap server: $!$@";
Modified: trunk/libnet-imap-simple-perl/t/test_server.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libnet-imap-simple-perl/t/test_server.pm?rev=54309&op=diff
==============================================================================
--- trunk/libnet-imap-simple-perl/t/test_server.pm (original)
+++ trunk/libnet-imap-simple-perl/t/test_server.pm Sun Mar 14 16:18:57 2010
@@ -72,7 +72,7 @@
$line =~ s/(\* OK).*/$1 $file ($ver)/;
my $len = length $line; $len ++;
- print STDERR "\e7\e[5000C\e[${len}D$line\e8";
+ print STDERR "\e7\e[5000C\e[${len}D$line\e8" unless $ENV{AUTOMATED_TESTING};
close $imapfh;
$0 = "Net::IMAP::Simple($$)";
More information about the Pkg-perl-cvs-commits
mailing list