gistfile1.txt

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>
;
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 {
        try {
                my $fh = open $filename, :enc($enc-name), :r;
                my $got = $fh.slurp;
                is-deeply $got, $text, "decodestream($enc-name): $filename";
                $fh.close if $fh.opened;
            CATCH {
                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;