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")
})
HughParsonage/hutils documentation built on Feb. 12, 2023, 8:26 a.m.