tests/testthat/test-any_grepl.R

context("test-any_grepl")

test_that("Reversed order", {
  expect_equal(any_grepl("a", letters),
               any_grepl(letters, "a"))
  expect_message(any_grepl("a", letters), 
                 regexp = "[Rr]evers")
})

Try the hutils package in your browser

Any scripts or data that you put into this service are public.

hutils documentation built on April 13, 2022, 5:23 p.m.