tests/testthat/test-mtcars.R

test_that("sel_filter", {
  expect_equal(sel_filter(mtcars),
               mtcars %>%
                 select(mpg,cyl) %>%
                 filter(cyl == 6))
})
andreamelloncelli/shapes3 documentation built on July 5, 2020, 12:20 a.m.