diff --git a/.travis.yml b/.travis.yml index cd4da8455..2af42f929 100644 --- a/.travis.yml +++ b/.travis.yml @@ -4,12 +4,14 @@ addons: packages: - aspell - aspell-en +dist: trusty language: perl perl: - dev - "blead" - "blead-thr" - "5.30" + - "5.30-thr" - "5.28" - "5.28-thr" - "5.26" @@ -39,28 +41,34 @@ matrix: allow_failures: - perl: blead - perl: blead-thr + - perl: dev + - perl: 5.12-thr # tarball 404s + - env: NO_JIGSAW=0 fast_finish: 1 include: - env: COVERAGE=1 - perl: '5.28' + perl: "5.30" + - env: NO_JIGSAW=0 + perl: "5.30" env: global: - AUTHOR_TESTING=1 - AUTOMATED_TESTING=1 + - NO_JIGSAW=1 - RELEASE_TESTING=1 - PERL_CPANM_OPT=--with-suggests - - SENDMAIL=/usr/sbin/sendmail # fake, but needed for LWP::Protocol::mailto + - SENDMAIL=/usr/sbin/sendmail # fake, but needed for LWP::Protocol::mailto before_install: - git clone git://github.com/travis-perl/helpers ~/travis-perl-helpers - source ~/travis-perl-helpers/init - build-perl - perl -V - build-dist - - cd $BUILD_DIR # $BUILD_DIR is set by the build-dist command + - cd $BUILD_DIR # $BUILD_DIR is set by the build-dist command install: - cpan-install Data::Dump Authen::NTLM Test::Spelling Test::Pod Test::Pod::Coverage Test::Version Test::EOL - - cpan-install --deps # installs prereqs, including optional modules - - cpan-install --coverage # installs converage prereqs, if enabled + - cpan-install --deps --update-prereqs # installs prereqs, including optional modules + - cpan-install --coverage # installs coverage prereqs, if enabled before_script: - coverage-setup script: diff --git a/xt/author/live/jigsaw/auth-d.t b/xt/author/live/jigsaw/auth-d.t index 7d03f21b6..ce5224e82 100644 --- a/xt/author/live/jigsaw/auth-d.t +++ b/xt/author/live/jigsaw/auth-d.t @@ -6,9 +6,8 @@ use Test::RequiresInternet ('jigsaw.w3.org' => 80); use HTTP::Request; use LWP::UserAgent; -plan tests => 3; - { + package MyUA; use base 'LWP::UserAgent'; @@ -21,11 +20,18 @@ plan tests => 3; } } -my $ua = MyUA->new(keep_alive => 1); +SKIP: { + skip 'LIVE_JIGSAW_TESTS not enabled', 3 if $ENV{NO_JIGSAW}; + + my $ua = MyUA->new(keep_alive => 1); -my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/Digest/"); -my $res = $ua->request($req); -isa_ok($res, 'HTTP::Response', 'request: Got a proper response'); + my $req = HTTP::Request->new(GET => "http://jigsaw.w3.org/HTTP/Digest/"); + my $res = $ua->request($req); + + isa_ok($res, 'HTTP::Response', 'request: Got a proper response'); + + like($res->content, qr/Your browser made it!/, 'Proper response content'); + is($res->header("Client-Response-Num"), 5, 'Client-Response-Num is 5'); +} -like($res->content, qr/Your browser made it!/, 'Proper response content'); -is($res->header("Client-Response-Num"), 5, 'Client-Response-Num is 5'); +done_testing();