[libtest-bdd-cucumber-perl] 03/25: show path in message when no feature files found always use the last argument as features path
Intrigeri
intrigeri at moszumanska.debian.org
Mon Apr 27 09:51:12 UTC 2015
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 <ich at 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
More information about the Pkg-perl-cvs-commits
mailing list