1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!perl
use strict;
use warnings;
use Test::More;
use Test::BDD::Cucumber::Parser;
my $files = {
en => 'examples/calculator/features/basic.feature',
es => 'examples/calculator/features/basic.feature.es'
};
for my $language ( keys %$files ) {
my $feature =
Test::BDD::Cucumber::Parser->parse_file( $files->{$language} );
isa_ok $feature, 'Test::BDD::Cucumber::Model::Feature',
"feature in language '$language' can be parsed";
is $feature->language, $language, 'feature language';
}
done_testing;
|
