tests/testthat/test-misc_paste2.R

In rbioapi: User-Friendly R Interface to Biologic Web Services' API

test_that(".paste2 works", {

  expect_identical(
    object = .paste2(c("first", "second", "third")),
    expected = "first, second and third"
  )

  expect_identical(
    object = .paste2(c("first", "second", "third"), last = " or "),
    expected = "first, second or third"
  )
  expect_identical(
    object = .paste2(c("first", "second", "third"), sep = " + "),
    expected = "first + second and third"
  )
  expect_identical(
    object = .paste2(c("first", "second", "third"), quote = "`"),
    expected = "`first`, `second` and `third`"
  )
  expect_identical(
    object = .paste2(c("first", "second", "third"), quote_all = "`"),
    expected = "`first, second and third`"
  )

  expect_identical(
    object = .paste2(
      c("first", "second", "third"),
      last = " or ",
      sep = " + ",
      quote = "-",
      quote_all = "_"
    ),
    expected = "_-first- + -second- or -third-_"
  )

})