tests/testthat/test-helper_collapse_set.R

In dynverse/dynparam: Creating Meta-Information for Parameters

context("test-helper_collapse_set")

test_that("collapse_set works", {
  expect_equal(collapse_set("AaAaAa"), "AaAaAa")

  expect_equal(collapse_set(letters[1:5]), "{a, b, c, d, e}")

  expect_equal(collapse_set("a", "B", "c", "d", 1, 8L), "{a, B, c, d, 1, 8}")

  expect_equal(collapse_set(list("a", "B", "c"), c(1, 8L)), "{a, B, c, 1, 8}")

  expect_equal(collapse_set(), "{}")

  expect_equal(collapse_set(456789), "456789")

  expect_equal(collapse_set(c(1, 2, NA)), "{1, 2, NA}")

  expect_equal(collapse_set(1, "b", list("Ree", 1.5), prefix = "~", postfix = "_", sep = "#"), "~1#b#Ree#1.5_")
})