R/constant.R

In quickcheck: Property Based Testing

Defines functions constant

Documented in constant

#' Generate the same value every time
#'
#' @param a Any R object
#'
#' @examples
#' constant(NULL) %>% show_example()
#' @template generator
#' @export
constant <- function(a) {
  qc_gen(function() hedgehog::gen.choice(a))
}

Try the quickcheck package in your browser