package App::pherkin;
BEGIN {
$App::pherkin::VERSION = '0.15';
}
use strict;
use warnings;
use FindBin::libs;
use Getopt::Long;
=head1 NAME
App::pherkin - Run Cucumber tests from the command line
=head1 VERSION
version 0.15
=head1 SYNOPSIS
pherkin
pherkin some/path/features/
=head1 DESCRIPTION
C<pherkin> will search the directory specified (or C<./features/>) for
feature files (any file matching C<*.feature>) and step definition files (any
file matching C<*_steps.pl>), loading the step definitions and then executing
the features.
Steps that pass will be printed in green, those that fail in red, and those
for which there is no step definition as yellow (for TODO), assuming you're
using the default output harness.
=cut
use Test::BDD::Cucumber::Loader;
=head1 METHODS
=head2 run
The C<App::pherkin> class, which is what the C<pherkin> command uses, makes
use of the C<run()> method, which accepts currently a single path as a string,
or nothing.
Returns a L<Test::BDD::Cucumber::Model::Result> object for all steps run.
=cut
sub run {
my ( $class, @arguments ) = @_;
my ($options, @feature_files) = $class->_process_arguments(@arguments);
my ( $executor, @features ) = Test::BDD::Cucumber::Loader->load(
$feature_files[0] || './features/'
);
die "No feature files found" unless @features;
eval "require $options->{'harness'}" || die $@;
my $harness = $options->{'harness'}->new();
$harness->startup();
$executor->execute( $_, $harness ) for @features;
$harness->shutdown();
return $harness->result;
}
sub _process_arguments {
my ( $class, @args ) = @_;
local @ARGV = @args;
# Allow -Ilib, -bl
Getopt::Long::Configure('bundling');
my $includes = [];
GetOptions(
'I=s@' => \$includes,
'l|lib' => \(my $add_lib),
'b|blib' => \(my $add_blib),
'o|output=s' => \(my $harness),
);
unshift @$includes, 'lib' if $add_lib;
unshift @$includes, 'blib/lib', 'blib/arch' if $add_blib;
# Munge the output harness
$harness //= "TermColor";
$harness = "Test::BDD::Cucumber::Harness::$harness" unless
$harness =~ m/\:\:/;
lib->import(@$includes) if @$includes;
return ({ harness => $harness }, @ARGV);
}
=head1 AUTHOR
Peter Sergeant C<pete@clueball.com>
=head1 LICENSE
Copyright 2011, Peter Sergeant; Licensed under the same terms as Perl
=cut
1;