sub refute {
    my ($condition, $message) = @_;
    ok (!$condition, $message)
        or diag $condition;
};