tests/testthat/test-after.R

In johncassil/stringr.plus: string functions that are "too specific for stringr" for Hadley Wickham

test_string <- 'URL.com/long_string_here_before_pattern_after_another_string_here_with_pattern2_there_and_date_here_2020_10_20_but_not_here/'

test_vector <- c(test_string, test_string, test_string)

after_result <- "after_another_string_here_with_pattern2_there_and_date_here_2020_10_20_but_not_here/"

after_vector <- c(after_result, after_result, after_result)

test_that("str_extract_after works", {
    expect_equal(str_extract_after(string = test_string, pattern = '_pattern_'),
                 after_result)
})

test_that("str_extract_after works", {
    expect_equal(str_extract_after(string = test_string, pattern = '_pattern_', num_char = 5),
                 "after")
})

test_that("str_extract_after works", {
    expect_equal(str_extract_after(string = test_string, pattern = '_', which = "last"),
                 "here/")
})


test_that("str_extract_after vectorization works", {
    expect_equal(str_extract_after(string = test_vector, pattern = '_pattern_'),
                 after_vector)
})

test_that("str_extract_after vectorization works", {
    expect_equal(str_extract_after(string = test_vector, pattern = '_pattern_', num_char = 5),
                 c("after", "after", "after"))
})


test_that("str_extract_after_date works", {
    expect_equal(str_extract_after_date(string = test_string, date_sep = '_'),
                 "but_not_here/")
})

test_that("str_extract_after_date works", {
    expect_equal(str_extract_after_date(string = test_string, date_sep = '_', num_char = 12),
                 "but_not_here")
})