1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
|
#!perl
use strict;
use warnings;
use FindBin::libs;
use Test::More;
use Test::BDD::Cucumber::Loader;
use Test::BDD::Cucumber::Harness::TestBuilder;
my $harness = Test::BDD::Cucumber::Harness::TestBuilder->new({
fail_skip => 1
});
for my $directory (qw!
examples
t/cucumber_core_features
t/regressions/010_greedy_table_parsing
!) {
my ( $executor, @features ) = Test::BDD::Cucumber::Loader->load( $directory );
die "No features found" unless @features;
$executor->execute( $_, $harness ) for @features;
}
done_testing;
|
