[Catalyst] How to handle role checking using a MockObject for Catalyst contexts

[Robert Rothenberg]

My application has a lot of tests scripts (and even some utility scripts)
that create a Test::MockObject that imitates a Catalyst context.

But it's largely a kluge, especially for handling authentication with things
like

  $c->check_any_use_role(...)

So, what are the best practices for generating a fake Catalyst context that
is, for all intents, logged-in as a particular user?

Regards,
Rob