tests/testthat/test_select_helpers.R

context("select helpers")

test_that("glob() works as expected", {
  expect_equal(names(dplyr::select(iris, glob("Sepal*"))),
               c("Sepal.Length", "Sepal.Width"))
})
jrnold/rubbish documentation built on May 20, 2019, 2:05 a.m.