use utf8;
no warnings;
plan tests => 18;
my $yaml = <<"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
YAML
my $c = new Religion::Bible::Regex::Config($yaml);
my $b = new Religion::Bible::Regex::Builder($c);
run {
my $block = shift;
# Initialize two references
my $r1 = new Religion::Bible::Regex::Reference($c, $b);
my $r2 = new Religion::Bible::Regex::Reference($c, $b);
# Parse the references
$r1->parse($block->min, $block->state);
$r2->parse($block->max, $block->state);
# Do the testing
is($r1->compare($r2), -1, $block->name . ", r1 < r2");
is($r2->compare($r1), 1, $block->name . ", r2 > r1");
};
__END__
=== min_max LCV, LCV - Ge 1:5, Ex 2:5
--- min chomp
Ge 1:5
--- max chomp
Ex 2:5
=== min_max LC, LC - Ge 1, Ex 2
--- min chomp
Ge 1
--- max chomp
Ex 2
=== min_max LC, LCV - Ge 1, Ex 2:5
--- min chomp
Ge 1
--- max chomp
Ex 2:5
=== min_max LCV, LC - Ge 1:1-2:5
--- min chomp
Ge 1:1
--- max chomp
Ex 2
=== min_max CV, CV - 1:5, 2:5
--- min chomp
1:5
--- max chomp
2:5
=== min_max C, C - 1, 2
--- min chomp
1
--- max chomp
2
--- state chomp
CHAPTER
=== min_max C, CV - 1, 2:5
--- min chomp
1
--- max chomp
2:5
--- state chomp
CHAPTER
=== min_max CV, C - 1:1, 2
--- min chomp
1:1
--- max chomp
2
--- state chomp
CHAPTER
=== min_max V, V - 1, 2
--- min chomp
1
--- max chomp
2
--- state chomp
VERSE