From d582294b236ed3b161276f50ee73136bfdf56426 Mon Sep 17 00:00:00 2001 From: Jens Rehsack Date: Mon, 13 Aug 2012 17:13:51 +0200 Subject: [PATCH] tidy --- t/00-load.t | 7 ++++--- t/manifest.t | 3 ++- t/pod-coverage.t | 4 ++-- 3 files changed, 8 insertions(+), 6 deletions(-) diff --git a/t/00-load.t b/t/00-load.t index 0c20dd2..b8fc319 100644 --- a/t/00-load.t +++ b/t/00-load.t @@ -2,8 +2,9 @@ use Test::More tests => 1; -BEGIN { - use_ok( 'WWW::Mechanize::Script' ) || print "Bail out!\n"; +BEGIN +{ + use_ok('WWW::Mechanize::Script') || print "Bail out!\n"; } -diag( "Testing WWW::Mechanize::Script $WWW::Mechanize::Script::VERSION, Perl $], $^X" ); +diag("Testing WWW::Mechanize::Script $WWW::Mechanize::Script::VERSION, Perl $], $^X"); diff --git a/t/manifest.t b/t/manifest.t index 45eb83f..46f198c 100644 --- a/t/manifest.t +++ b/t/manifest.t @@ -4,7 +4,8 @@ use strict; use warnings; use Test::More; -unless ( $ENV{RELEASE_TESTING} ) { +unless ( $ENV{RELEASE_TESTING} ) +{ plan( skip_all => "Author tests not required for installation" ); } diff --git a/t/pod-coverage.t b/t/pod-coverage.t index fc40a57..78edd25 100644 --- a/t/pod-coverage.t +++ b/t/pod-coverage.t @@ -6,13 +6,13 @@ use Test::More; my $min_tpc = 1.08; eval "use Test::Pod::Coverage $min_tpc"; plan skip_all => "Test::Pod::Coverage $min_tpc required for testing POD coverage" - if $@; + if $@; # Test::Pod::Coverage doesn't require a minimum Pod::Coverage version, # but older versions don't recognize some common documentation styles my $min_pc = 0.18; eval "use Pod::Coverage $min_pc"; plan skip_all => "Pod::Coverage $min_pc required for testing POD coverage" - if $@; + if $@; all_pod_coverage_ok(); -- 2.11.4.GIT