nopaste.p6

    {
      throws-like(
        sub { my $zscii = $z.zchars-to-zscii( $dict-ryche ); },
        X::AdHoc,
        message => /terminated early/,
        "we can't normally decode a word terminated mid-sequence",
      );
    }

results

        ok 1 - code dies
        ok 2 - right exception type (X::AdHoc)
        not ok 3 - .message matches

# Failed test '.message matches '
# at src/gen/m-CORE.setting line 10007
Code object coerced to string (please use .gist or .perl to do that)  in block  at lib/Test.pm:453

        # Expected:
        # Got:      ten-bit ZSCII encoding segment terminated early
        # Looks like you failed 1 tests of 3
    not ok 9 - we can't normally decode a word terminated mid-sequence