[libtest-bdd-cucumber-perl] 03/25: show path in message when no feature files found always use the last argument as features path

[Intrigeri]

This is an automated email from the git hooks/post-receive script.

intrigeri pushed a commit to branch master
in repository libtest-bdd-cucumber-perl.

commit 4867678d6432029b63726c9196f3053161770d79
Author: Markus Benning <i...@markusbenning.de>
Date:   Thu Nov 6 09:21:04 2014 +0100

    show path in message when no feature files found
    always use the last argument as features path
---
 lib/App/pherkin.pm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/lib/App/pherkin.pm b/lib/App/pherkin.pm
index a6eee13..7a5a843 100644
--- a/lib/App/pherkin.pm
+++ b/lib/App/pherkin.pm
@@ -57,10 +57,10 @@ sub run {
 
     my ( $options, @feature_files ) = $self->_process_arguments(@arguments);
 
+    my $features_path = $feature_files[0] || './features/';
     my ( $executor, @features ) =
-      Test::BDD::Cucumber::Loader->load( $feature_files[0] || './features/',
-        $self->tag_scheme );
-    die "No feature files found" unless @features;
+      Test::BDD::Cucumber::Loader->load( $features_path, $self->tag_scheme );
+    die "No feature files found in $features_path" unless @features;
 
     my $harness = $self->_load_harness( $options->{'harness'} );
 
@@ -133,7 +133,7 @@ sub _process_arguments {
     # Store our TagSpecScheme
     $self->tag_scheme( $self->_process_tags( @{$tags} ) );
 
-    return ( { harness => $harness }, @ARGV );
+    return ( { harness => $harness }, pop @ARGV );
 }
 
 sub _process_tags {

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/pkg-perl/packages/libtest-bdd-cucumber-perl.git

_______________________________________________
Pkg-perl-cvs-commits mailing list
Pkg-perl-cvs-commits@lists.alioth.debian.org
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/pkg-perl-cvs-commits