plan tests => 1 * blocks;
filters {
yaml => [config => 'dumper' ],
perl => [strict => eval => 'dumper'],
};
sub config {
my $c = new Religion::Bible::Regex::Config(shift);
new Religion::Bible::Regex::Builder($c)->{book2key};
}
sub wsnoise {
s/(?:\s*|\n)//g;
}
run_is yaml => 'perl';
__END__
=== one book defined
--- yaml
---
books:
1:
Match:
Book: ['Genèse', 'Genese']
Abbreviation: ['Ge']
Normalized:
Book: "Genèse"
Book: "Genèse"
Abbreviation: "Ge"
--- perl
{ 'Genese' => '1', 'Genèse' => '1' }
=== two books defined
--- yaml
---
books:
1:
Match:
Book: ['Genèse', 'Genese']
Abbreviation: ['Ge']
Normalized:
Book: Genèse
Abbreviation: Ge
2:
Match:
Book: ['Exode']
Abbreviation: ['Ex']
Normalized:
Book: Exode
Abbreviation: Ex
--- perl
{ 'Genese' => '1', 'Genèse' => '1', 'Exode' => '2' }