tests/testthat/test-fill_missing_min.R

In fillr: Fill Missing Values in Vectors

context("test-fill_missing_min")

test_that("filling with minimum works", {
  expect_equal(fill_missing_min(c(1, 2, NA)), c(1, 2, 1))
})

test_that("negative numbers work", {
    expect_equal(fill_missing_min(c(-1, 0, 1, NA)), c(-1, 0, 1, -1))
})