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