richfitz

library(testthat)

## This works but won't correct labels:
not <- function(f) {
  function(...) {
    res <- f(...)
    res$passed <- !res$passed
    res
  }
}