diff --git a/S32-encoding/registry.t b/S32-encoding/registry.t index d3ce366a30..13b4b55852 100644 --- a/S32-encoding/registry.t +++ b/S32-encoding/registry.t @@ -2,18 +2,22 @@ use Test; use lib $?FILE.IO.parent(2).add: 'packages/Test-Helpers'; use Test::Util; -plan 40; +#!rakudo.moar emit plan 40; +#?rakudo.moar emit plan 37; for -> $name { - group-of 3 => "Can find built-in $name encoding" => { - given Encoding::Registry.find: $name { + #?rakudo.moar emit next if $name eq 'utf32' | 'utf-32' | 'UTF32'; + # utf-32 encoding/decoding is NYI on rakudo.moarvm. See MoarVM#1348 & rakudo#3293 + group-of 4 => "Can find built-in $name encoding" => { + given try Encoding::Registry.find: $name { isa-ok $_, Encoding::Builtin, 'type of result'; does-ok $_, Encoding, 'does Encoding role'; is (.alternative-names, .name).flatĀ».fc.any, $name.fc, 'found right encoding'; + lives-ok { .encoder.encode-chars('foo') }, 'can use encoding'; } } }