sub throws_ok (&$;$) {
    my ( $coderef, $expecting, $description ) = @_;