sub lives_and_tests_ok (&&;$) {
    my ($case, $test, $name) = @_;
    local $@;
    local ($b, $a) = ($name, eval { $case->() });
    $@ ? fail($name) : $test->($result, $name);
}