r56314 - in /branches/upstream/libtest-www-mechanize-perl/current: Changes MANIFEST META.yml Makefile.PL Mechanize.pm t/put_ok.t
gregoa at users.alioth.debian.org
gregoa at users.alioth.debian.org
Sat Apr 17 18:51:58 UTC 2010
Author: gregoa
Date: Sat Apr 17 18:51:51 2010
New Revision: 56314
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=56314
Log:
[svn-upgrade] Integrating new upstream version, libtest-www-mechanize-perl (1.28)
Modified:
branches/upstream/libtest-www-mechanize-perl/current/Changes
branches/upstream/libtest-www-mechanize-perl/current/MANIFEST
branches/upstream/libtest-www-mechanize-perl/current/META.yml
branches/upstream/libtest-www-mechanize-perl/current/Makefile.PL
branches/upstream/libtest-www-mechanize-perl/current/Mechanize.pm
branches/upstream/libtest-www-mechanize-perl/current/t/put_ok.t
Modified: branches/upstream/libtest-www-mechanize-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-perl/current/Changes?rev=56314&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-perl/current/Changes (original)
+++ branches/upstream/libtest-www-mechanize-perl/current/Changes Sat Apr 17 18:51:51 2010
@@ -4,7 +4,13 @@
bug tracking. They are now being tracked via Google Code at
http://code.google.com/p/www-mechanize/issues/list
-NEXT
+
+1.28 Tue Apr 13 00:44:27 CDT 2010
+------------------------------------
+[FIXED]
+t/put_ok.t finally passes.
+
+
1.26 Mon Apr 5 00:54:46 CDT 2010
------------------------------------
[FIXED]
Modified: branches/upstream/libtest-www-mechanize-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-perl/current/MANIFEST?rev=56314&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-perl/current/MANIFEST (original)
+++ branches/upstream/libtest-www-mechanize-perl/current/MANIFEST Sat Apr 17 18:51:51 2010
@@ -1,6 +1,5 @@
Changes
MANIFEST
-META.yml
Makefile.PL
Mechanize.pm
README
@@ -39,3 +38,4 @@
t/html/good.html
t/html/goodlinks.html
t/html/manylinks.html
+META.yml Module meta-data (added by MakeMaker)
Modified: branches/upstream/libtest-www-mechanize-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-perl/current/META.yml?rev=56314&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-perl/current/META.yml (original)
+++ branches/upstream/libtest-www-mechanize-perl/current/META.yml Sat Apr 17 18:51:51 2010
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Test-WWW-Mechanize
-version: 1.26
+version: 1.28
abstract: Testing-specific WWW::Mechanize subclass
author:
- Andy Lester <andy at petdance.com>
@@ -12,7 +12,7 @@
ExtUtils::MakeMaker: 0
requires:
Carp::Assert::More: 0
- HTTP::Server::Simple: 0.35
+ HTTP::Server::Simple: 0.42
HTTP::Server::Simple::CGI: 0
perl: 5.008
Test::Builder::Tester: 1.09
Modified: branches/upstream/libtest-www-mechanize-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-perl/current/Makefile.PL?rev=56314&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-perl/current/Makefile.PL (original)
+++ branches/upstream/libtest-www-mechanize-perl/current/Makefile.PL Sat Apr 17 18:51:51 2010
@@ -10,7 +10,7 @@
PL_FILES => {},
PREREQ_PM => {
'Carp::Assert::More' => 0,
- 'HTTP::Server::Simple' => '0.35',
+ 'HTTP::Server::Simple' => '0.42',
'HTTP::Server::Simple::CGI' => 0,
'Test::Builder::Tester' => '1.09',
'Test::LongString' => '0.12',
Modified: branches/upstream/libtest-www-mechanize-perl/current/Mechanize.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-perl/current/Mechanize.pm?rev=56314&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-perl/current/Mechanize.pm (original)
+++ branches/upstream/libtest-www-mechanize-perl/current/Mechanize.pm Sat Apr 17 18:51:51 2010
@@ -9,11 +9,11 @@
=head1 VERSION
-Version 1.26
-
-=cut
-
-our $VERSION = '1.26';
+Version 1.28
+
+=cut
+
+our $VERSION = '1.28';
=head1 SYNOPSIS
@@ -262,7 +262,8 @@
my $self = shift;
my ($url,$desc,%opts) = $self->_unpack_args( 'PUT', @_ );
- $self->put( $url, \%opts );
+ $opts{content} = '' if !exists $opts{content};
+ $self->put( $url, %opts );
my $ok = $self->success;
$Test->ok( $ok, $desc );
@@ -1318,6 +1319,7 @@
=head1 ACKNOWLEDGEMENTS
Thanks to
+Niko Tyni,
Greg Sheard,
Michael Schwern,
Mark Blackman,
@@ -1330,7 +1332,7 @@
=head1 COPYRIGHT & LICENSE
-Copyright 2004-2009 Andy Lester.
+Copyright 2004-2010 Andy Lester.
This program is free software; you can redistribute it and/or
modify it under the terms of either:
Modified: branches/upstream/libtest-www-mechanize-perl/current/t/put_ok.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libtest-www-mechanize-perl/current/t/put_ok.t?rev=56314&op=diff
==============================================================================
--- branches/upstream/libtest-www-mechanize-perl/current/t/put_ok.t (original)
+++ branches/upstream/libtest-www-mechanize-perl/current/t/put_ok.t Sat Apr 17 18:51:51 2010
@@ -5,15 +5,8 @@
use Test::More;
use Test::Builder::Tester;
-use constant NONEXISTENT => 'http://blahblablah.xx-nonexistent.';
BEGIN {
- if ( gethostbyname( 'blahblahblah.xx-nonexistent.' ) ) {
- plan skip_all => 'Found an A record for the non-existent domain';
- }
-}
-
-BEGIN {
- plan tests => 11;
+ plan tests => 8;
use_ok( 'Test::WWW::Mechanize' );
}
@@ -24,7 +17,6 @@
my $pid = $server->background;
my $server_root = $server->root;
-diag( 'Any help in squashing the warnings in this test would be appreciated' );
my $mech = Test::WWW::Mechanize->new( autocheck => 0 );
isa_ok($mech,'Test::WWW::Mechanize');
@@ -32,7 +24,7 @@
GOOD_PUT: {
my $goodlinks = "$server_root/goodlinks.html";
- $mech->put($goodlinks, $text);
+ $mech->put_ok($goodlinks, {content => $text});
ok($mech->success, 'sanity check: we can load goodlinks.html');
test_out('ok 1 - Try to PUT goodlinks.html');
@@ -47,20 +39,4 @@
test_test('PUTs existing URI and reports success - default desc');
}
-BAD_PUT: {
- my $badurl = 'http://wango.nonexistent.xx-only-testing/';
- $mech->put($badurl, $text);
- ok(!$mech->success, q{sanity check: we can't load NONEXISTENT.html});
-
- test_out( 'not ok 1 - Try to PUT bad URL' );
- test_fail( +3 );
- test_diag( '500' );
- test_diag( q{Can't connect to wango.nonexistent.xx-only-testing:80 (Bad hostname 'wango.nonexistent.xx-only-testing')} );
- my $ok = $mech->put_ok( $badurl, 'Try to PUT bad URL' );
- test_test( 'Fails to PUT nonexistent URI and reports failure' );
-
- is( ref($ok), '', 'put_ok() should only return a scalar' );
- ok( !$ok, 'And the result should be false' );
-}
-
$server->stop;
More information about the Pkg-perl-cvs-commits
mailing list