packrat/lib/x86_64-pc-linux-gnu/3.2.3/stringr/tests/testthat/test-extract.r

In etsakl/DasyMapR: Geographical ETRS-LAEA Grid Based Dasymetric Mapping

context("Extract patterns")

test_that("single pattern extracted correctly", {
  test <- c("one two three", "a b c")

  expect_that(
    str_extract_all(test, "[a-z]+"),
    equals(list(c("one", "two", "three"), c("a", "b", "c"))))

  expect_that(
    str_extract_all(test, "[a-z]{3,}"),
    equals(list(c("one", "two", "three"), character())))

})

test_that("no match yields empty vector", {
  expect_equal(str_extract_all("a", "b")[[1]], character())
})