Move tests from test-preserve-names.R into each function's test file.

Author: jonovik

tests/testthat/test-case.R

@@ -13,3 +13,10 @@ test_that("to_sentence capitalizes just the first letter", {
   x <- "This is a sentence."
   expect_identical(str_to_sentence("a Test"), "A test")
 })
+
+test_that("case conversions preserve names", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_to_lower(x)), names(x))
+  expect_equal(names(str_to_upper(x)), names(x))
+  expect_equal(names(str_to_title(x)), names(x))
+})

tests/testthat/test-conv.R

@@ -8,3 +8,8 @@ test_that("encoding conversion works", {
 test_that("check encoding argument", {
   expect_snapshot(str_conv("A", c("ISO-8859-1", "ISO-8859-2")), error = TRUE)
 })
+
+test_that("str_conv() preserves names", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_conv(x, "UTF-8")), names(x))
+})

tests/testthat/test-count.R

@@ -20,3 +20,20 @@ test_that("can count boundaries", {
   expect_equal(str_count("a b c", ""), 5)
   expect_equal(str_count("a b c", boundary("word")), 3)
 })
+
+test_that("str_count() preserves names", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_count(x, ".")), names(x))
+})
+
+test_that("str_count() drops names when pattern is vector and string is scalar", {
+  x1 <- c(A = "ab")
+  p2 <- c("a", "b")
+  expect_null(names(str_count(x1, p2)))
+})
+
+test_that("str_count() preserves names when pattern and string have same length", {
+  x2 <- c(A = "ab", B = "cd")
+  p2 <- c("a", "c")
+  expect_equal(names(str_count(x2, p2)), names(x2))
+})

tests/testthat/test-detect.R

@@ -52,6 +52,35 @@ test_that("functions use tidyverse recycling rules", {
   })
 })
 
+test_that("detection functions preserve names", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_detect(x, "[123]")), names(x))
+  expect_equal(names(str_starts(x, "1")), names(x))
+  expect_equal(names(str_ends(x, "1")), names(x))
+  expect_equal(names(str_like(x, "%")), names(x))
+  expect_equal(names(str_ilike(x, "%")), names(x))
+})
+
+test_that("detection drops names when pattern is vector and string is scalar", {
+  x1 <- c(A = "ab")
+  p2 <- c("a", "b")
+  expect_null(names(str_detect(x1, p2)))
+  expect_null(names(str_starts(x1, p2)))
+  expect_null(names(str_ends(x1, p2)))
+  expect_null(names(str_like(x1, p2)))
+  expect_null(names(str_ilike(x1, p2)))
+})
+
+test_that("detection preserves names when pattern and string have same length", {
+  x2 <- c(A = "ab", B = "cd")
+  p2 <- c("a", "c")
+  expect_equal(names(str_detect(x2, p2)), names(x2))
+  expect_equal(names(str_starts(x2, p2)), names(x2))
+  expect_equal(names(str_ends(x2, p2)), names(x2))
+  expect_equal(names(str_like(x2, p2)), names(x2))
+  expect_equal(names(str_ilike(x2, p2)), names(x2))
+})
+
 # str_like ----------------------------------------------------------------
 
 

tests/testthat/test-dup.R

@@ -31,3 +31,8 @@ test_that("separator must be a single string", {
     str_dup("a", 3, sep = c("-", ";"))
   })
 })
+
+test_that("str_dup() preserves names", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_dup(x, 2)), names(x))
+})

tests/testthat/test-escape.R

@@ -6,3 +6,7 @@ test_that("multiplication works", {
   expect_equal(str_escape("\\"), "\\\\")
 })
 
+test_that("str_escape() preserves names", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_escape(x)), names(x))
+})

tests/testthat/test-extract.R

@@ -63,3 +63,23 @@ test_that("can extract boundaries", {
   )
 })
 
+test_that("str_extract() preserves names", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_extract(x, "[0-9]")), names(x))
+})
+
+test_that("str_extract_all() preserves names on outer structure", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_extract_all(x, "[0-9]")), names(x))
+})
+
+test_that("str_extract and extract_all handle vectorised patterns and names", {
+  x1 <- c(A = "ab")
+  p2 <- c("a", "b")
+  expect_null(names(str_extract(x1, p2)))
+  expect_null(names(str_extract_all(x1, p2)))
+
+  x2 <- c(A = "ab", B = "cd")
+  expect_equal(names(str_extract(x2, p2)), names(x2))
+  expect_equal(names(str_extract_all(x2, p2)), names(x2))
+})

tests/testthat/test-length.R

@@ -20,3 +20,9 @@ test_that("str_width returns display width", {
   x <- c("\u0308", "x", "\U0001f60a")
   expect_equal(str_width(x), c(0, 1, 2))
 })
+
+test_that("length/width preserve names", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_length(x)), names(x))
+  expect_equal(names(str_width(x)), names(x))
+})

tests/testthat/test-locate.R

@@ -67,3 +67,24 @@ test_that("can use boundaries", {
     list(cbind(start = c(2, 6), end = c(3, 7)))
   )
 })
+
+test_that("str_locate() preserves row names when 1:1 with input", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(rownames(str_locate(x, "[0-9]")), names(x))
+})
+
+test_that("str_locate_all() preserves names on outer structure", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_locate_all(x, "[0-9]")), names(x))
+})
+
+test_that("locate handles vectorised patterns and names", {
+  x1 <- c(A = "ab")
+  p2 <- c("a", "b")
+  expect_null(rownames(str_locate(x1, p2)))
+  expect_null(names(str_locate_all(x1, p2)))
+
+  x2 <- c(A = "ab", B = "cd")
+  expect_equal(rownames(str_locate(x2, p2)), names(x2))
+  expect_equal(names(str_locate_all(x2, p2)), names(x2))
+})

tests/testthat/test-match.R

@@ -88,3 +88,24 @@ test_that("match can't use other modifiers", {
     str_match_all("x", coll("y"))
   })
 })
+
+test_that("str_match() preserves row names when 1:1 with input", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(rownames(str_match(x, "([0-9])")), names(x))
+})
+
+test_that("str_match_all() preserves names on outer structure", {
+  x <- c(C = "3", B = "2", A = "1")
+  expect_equal(names(str_match_all(x, "([0-9])")), names(x))
+})
+
+test_that("match handles vectorised patterns and names", {
+  x1 <- c(A = "ab")
+  p2 <- c("a", "b")
+  expect_null(rownames(str_match(x1, p2)))
+  expect_null(names(str_match_all(x1, p2)))
+
+  x2 <- c(A = "ab", B = "cd")
+  expect_equal(rownames(str_match(x2, p2)), names(x2))
+  expect_equal(names(str_match_all(x2, p2)), names(x2))
+})