Write proper test for RT#71514
Write proper test for RT#71514

The code in the ticket has a bug and the original test[^1] covered it.
Add the test for throwage that should be happening.

[1] https://github.com/perl6/roast/commit/803f2452db

dogbert17/roast,dogbert17/roast,perl6/roast