test.p6

my %enc =
    utf8 => <sample-UTF-8.txt>,
    utf16 => <sample-UTF-16LE-bom.txt sample-UTF-16BE-bom.txt sample-UTF-16LE.txt>,
    utf16le => <sample-UTF-16LE-bom.txt sample-UTF-16LE.txt>,
    utf16be => <sample-UTF-16BE-bom.txt sample-UTF-16BE.txt>
;
my $text = parse-names "LATIN CAPITAL LETTER A, LATIN CAPITAL LETTER L WITH STROKE, HANGUL CHOSEONG IEUNG-KIYEOK, CHAKMA DANDA, BUTTERFLY, <control-0000>";
spurt "utf8", $text;
use Test;
for %enc.kv -> $enc-name, $filenames {
    for $filenames.list -> $filename {
        {
            my $fh = open $filename, :enc($enc-name), :r;
            my $got;
            my $lives-ok = lives-ok { $got = $fh.slurp }, "lives-ok open(:enc<$enc-name>, :r)";
            if $lives-ok {
                is-deeply $got, $text, "decodestream($enc-name): $filename";
            }
            else {
                skip "decodestream($enc-name): $filename";
            }
            $fh.close if $fh.opened;
        }
        my $fh2 = open $filename, :r;
        my $bin = $fh2.read;
        my $got-decode = $bin.decode($enc-name);
        is-deeply $got-decode, $text, "decode($enc-name): $filename";
    }
}
done-testing;