Permalink
Browse files

Updates to tests, ignore, etc. Nothing big

  • Loading branch information...
1 parent 04a198e commit 7cd1fc6966c318bce1f7d2bf2295440fd642374e Mark Grimes committed Nov 10, 2009
View
@@ -1,5 +1,6 @@
Build
META.yml
+MYMETA.yml
MANIFEST.bak
Makefile.PL
Makefile
View
@@ -5,7 +5,7 @@ use warnings;
use App::Cmd::Setup -app;
-our $VERSION = '0.05';
+our $VERSION = '0.06';
=pod
@@ -15,6 +15,7 @@ sub opt_spec {
sub validate_args {
my ( $self, $opt, $args ) = @_;
+
$self->usage_error("start_location is required")
unless $opt->{start_location};
$self->usage_error("end_location is required") unless $opt->{end_location};
@@ -27,6 +28,7 @@ sub validate_args {
$self->usage_error("end_location must be <Int>,<Int>")
unless scalar @{ $opt->{end} } == 2;
+ return 1;
}
sub execute {
@@ -12,6 +12,7 @@ sub opt_spec {
sub validate_args {
my ( $self, $opt, $args ) = @_;
$self->usage_error("Filename is required") unless $opt->{filename};
+ return 1;
}
sub execute {
@@ -12,6 +12,7 @@ sub opt_spec {
sub validate_args {
my ( $self, $opt, $args ) = @_;
$self->usage_error("Filename is required") unless $opt->{filename};
+ return 1;
}
sub execute {
@@ -18,6 +18,7 @@ sub validate_args {
for (qw(line column replacement)) {
$self->usage_error("Arg $_ is required") unless $opt->{$_};
}
+ return 1;
}
sub execute {
@@ -58,6 +58,9 @@ at your option, any later version of Perl 5 you may have available.
=cut
+use strict;
+use warnings;
+
our $VERSION = '0.04';
sub run {
View
@@ -0,0 +1,24 @@
+use strict;
+use warnings;
+use Test::More;
+use File::Find;
+
+BEGIN {
+ find( {
+ wanted => sub {
+ return unless m{\.pm$};
+
+ s{^lib/}{};
+ s{.pm$}{};
+ s{/}{::}g;
+
+ use_ok($_)
+ or die "Couldn't use_ok $_";
+ },
+ no_chdir => 1,
+ },
+ 'lib'
+ );
+ done_testing();
+
+}
View
@@ -1,15 +0,0 @@
-#!/usr/bin/perl -w
-
-use strict;
-use warnings;
-
-use Test::More tests => 5;
-
-BEGIN {
- use_ok('App::EditorTools');
- use_ok('App::EditorTools::Command::RenameVariable');
- use_ok('App::EditorTools::Command::RenamePackage');
- use_ok('App::EditorTools::Command::RenamePackageFromPath');
- use_ok('App::EditorTools::Command::IntroduceTemporaryVariable');
-}
-
View
@@ -2,10 +2,13 @@ use strict;
use warnings;
use Test::More;
-# plan( skip_all => 'Author test. Set TEST_AUTHOR to a true value to run.' )
-# unless $ENV{TEST_AUTHOR};
+plan( skip_all => 'Author test. Set TEST_AUTHOR to a true value to run.' )
+ unless $ENV{TEST_AUTHOR};
-eval { require Test::Kwalitee; };
+eval {
+ require Test::Kwalitee;
+ Test::Kwalitee->import( tests => [qw( -no_symlinks )] );
+ unlink 'Debian_CPANTS.txt' if -e 'Debian_CPANTS.txt';
+};
plan( skip_all => 'Test::Kwalitee not installed; skipping' ) if $@;
-Test::Kwalitee->import();
View
@@ -1,10 +1,10 @@
use strict;
use warnings;
-use File::Spec;
use Test::More;
+use File::Spec;
-# plan( skip_all => 'Author test. Set TEST_AUTHOR to a true value to run.' )
-# unless $ENV{TEST_AUTHOR};
+plan( skip_all => 'Author test. Set TEST_AUTHOR to a true value to run.' )
+ unless $ENV{TEST_AUTHOR};
eval { require Test::Perl::Critic; };
plan( skip_all => ' Test::Perl::Critic required to criticise code ' ) if $@;
View
@@ -2,8 +2,8 @@ use strict;
use warnings;
use Test::More;
-# plan( skip_all => 'Author test. Set TEST_AUTHOR to a true value to run.' )
-# unless $ENV{TEST_AUTHOR};
+plan( skip_all => 'Author test. Set TEST_AUTHOR to a true value to run.' )
+ unless $ENV{TEST_AUTHOR};
eval "use Test::Pod 1.00";
plan skip_all => "Test::Pod 1.00 required for testing POD" if $@;
View
@@ -2,8 +2,8 @@ use strict;
use warnings;
use Test::More;
-# plan( skip_all => 'Author test. Set TEST_AUTHOR to a true value to run.' )
-# unless $ENV{TEST_AUTHOR};
+plan( skip_all => 'Author test. Set TEST_AUTHOR to a true value to run.' )
+ unless $ENV{TEST_AUTHOR};
eval "use Test::Pod::Coverage 1.00";
plan skip_all => "Test::Pod::Coverage 1.00 required for testing POD coverage"
View
@@ -0,0 +1 @@
+# [-CodeLayout::ProhibitHardTabs]

0 comments on commit 7cd1fc6

Please sign in to comment.