tests/testthat/test-between.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)

between_result <- "after_another_string_here_with"

between_vector <- c(between_result, between_result, between_result)

test_that("str_extract_between works", {
    expect_equal(str_extract_between(string = test_string, pattern1 = "_pattern_", pattern2 = "_pattern2"),
                 between_result)
})

test_that("str_extract_between works with duplicate patterns", {
    expect_equal(str_extract_between(string = test_string, pattern1 = "pattern", pattern2 = "pattern"),
                 "_after_another_string_here_with_")
})

test_that("str_extract_between works with which", {
    expect_equal(str_extract_between(string = test_string, pattern1 = "2", pattern2 = "_", which_pattern1 = "first", which_pattern2 = "last"),
                 "_there_and_date_here_2020_10_20_but_not")
})

test_that("str_extract_between works with which", {
    expect_equal(str_extract_between(string = test_string, pattern1 = "2", pattern2 = "_", which_pattern1 = "last", which_pattern2 = "last"),
                 "0_but_not")
})

test_that("str_extract_between works with which", {
    expect_equal(str_extract_between(string = test_string, pattern1 = "2", pattern2 = "but", which_pattern1 = "last", which_pattern2 = "first"),
                 "0_")
})

test_that("str_extract_between vectorization works", {
    expect_equal(str_extract_between(string = test_vector, pattern1 = "_pattern_", pattern2 = "_pattern2"),
                 between_vector)
})