ri.t

use Test;
sub test-it (:$text, :@chars-to-test, :@graphs, :@cps) {
    #my $text = "join+comb";
    #my @chars-to-test = ("a", "🇦", "🇧", "🇨", "🇩", "b").join.comb;
    #my @graphs = "a", "🇦🇧", "🇨🇩", "b";
    #my @cps    = (("a",), ("🇦", "🇧"), ("🇨","🇩"), ("b",)).deepmap(*.ord);
    is-deeply @chars-to-test, @graphs, "Graphemes compare correct in initial test of $text";
    for ^@graphs -> $i {
        is-deeply @graphs[$i].ords, @cps[$i], "Codepoints in isolated grapheme $i are correct";
    }
    for ^@chars-to-test -> $i {
        is-deeply @chars-to-test[$i].ords, @cps[$i], "Codepoints in grapheme $i created from $text is correct";
        is-deeply @chars-to-test[$i].chars, 1, "Number of graphemes in grapheme $i created from $text is correct";
    }

}
test-it(
    :text("join+comb"),
    :chars-to-test(("a", "🇦", "🇧", "🇨", "🇩", "b").join.comb),
    :graphs:("a", "🇦🇧", "🇨🇩", "b"),
    :cps((("a",), ("🇦", "🇧"), ("🇨","🇩"), ("b",)).deepmap(*.ord))
);
{
    my $text = "join+comb";
    my @chars-to-test = ("a", "🇦", "🇧", "🇨", "🇩", "b").join.comb;
    my @graphs = "a", "🇦🇧", "🇨🇩", "b";
    my @cps    = (("a",), ("🇦", "🇧"), ("🇨","🇩"), ("b",)).deepmap(*.ord);
    is-deeply @chars-to-test, @graphs, "Graphemes seem correct";
    for ^@graphs -> $i {
        is-deeply @graphs[$i].ords, @cps[$i], "Codepoints in isolated grapheme $i are correct";
    }
    for ^@chars-to-test -> $i {
        is-deeply @chars-to-test[$i].ords, @cps[$i], "Codepoints in grapheme $i created from $text is correct";
        is-deeply @chars-to-test[$i].chars, 1, "Number of graphemes in grapheme $i created from $text is correct";
    }
}
{
    my Str:D $concat = "🇦🇧" ~ "🇨🇩";
    my $text = "concat+comb";
    my @chars-to-test = $concat.comb;
    my @graphs =  "🇦🇧", "🇨🇩";
    my @cps = ( ("🇦","🇧"), ("🇨", "🇩") ).deepmap(*.ord);
    is-deeply $concat.chars, 2, "Correct number of chars from concat of two Regional Indicators";
    for ^@graphs -> $i {
        is-deeply @graphs[$i].ords, @cps[$i], "Codepoints in isolated grapheme $i are correct";
    }
    for ^@chars-to-test -> $i {
        is-deeply @chars-to-test[$i].ords, @cps[$i], "Codepoints in grapheme $i created from $text is correct";
        is-deeply @chars-to-test[$i].chars, 1, "Number of graphemes in grapheme $i created from $text is correct";
    }
}
is-deeply ("🇦🇧" ~ "🇨").comb, ("🇦🇧", "🇨").Seq;
is-deeply ("🇦🇧🇨" ~ "🇩").comb, ("🇦🇧", "🇨🇩").Seq;
done-testing;