tests/testthat/test-find_qty_var.R

In BAAQMD/vartools: Extras for tidyverse-style selection and deselection

context("find_qty_var")

test_that("stop if not found", {

  expect_error(
    find_qty_var(
      dplyr::select(test_data, -foo_qty)),
    "matching")

})

test_that("return if found", {

  expect_equal(
    find_qty_var(test_data),
    "foo_qty")

})