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)->{livres_numerique};
}
sub wsnoise {
s/(?:\s*|\n)//g;
}
run_is yaml => 'perl';
#=== Two books defined, but no numeric books
# --- 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
__END__
=== two numeric books defined
--- yaml
---
books:
9:
Match:
Book: ['1Samuel', '1 Samuel', '1 Samuel']
Abbreviation: ['1S', '1 S', '1 S']
Normalized:
Book: 1Samuel
Abbreviation: 1S
10:
Match:
Book: ['2Samuel', '2 Samuel', '2 Samuel']
Abbreviation: ['2S', '2 S', '2 S']
Normalized:
Book: 2Samuel
Abbreviation: 2Sbooks:
--- perl
qr/(?-xism:1 S|1 Samuel|2 S|2 Samuel|S|Samuel)/