File: 310_auto_corpus.t

package info (click to toggle)
libtest-bdd-cucumber-perl 0.26-1~bpo70%2B1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy-backports
  • size: 528 kB
  • sloc: perl: 3,436; makefile: 8
file content (32 lines) | stat: -rwxr-xr-x 751 bytes parent folder | download
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
26
27
28
29
30
31
32
#!perl

use strict;
use warnings;
use FindBin::libs;

use Test::More;
use Test::Differences;
use Test::DumpFeature;
use Test::BDD::Cucumber::Parser;
use YAML::Syck;
use File::Slurp;
use File::Find::Rule;


my @files = @ARGV;
@files = File::Find::Rule
    ->file()->name( '*.feature_corpus' )->in( 't/auto_corpus/' )
    unless @files;

for my $file ( @files ) {
    my $file_data = read_file( $file );
    my ( $feature, $yaml ) = split(/----------DIVIDER----------/, $file_data);
    my $expected = Load( $yaml );
    my $actual   = Test::DumpFeature::dump_feature(
        Test::BDD::Cucumber::Parser->parse_string( $feature ) );

    is_deeply( $actual, $expected, "$file matches" ) || eq_or_diff(
         $actual, $expected );
}

done_testing();