tests/testthat/test-name_mapping.R

In rappster/namap: Systematic name mapping

library(testthat)

context("Name mapping")

confx::conf_load(test_path())

data <- tibble::tibble(
  `Some ID` = letters[1:3],
  Date = c("2020-03-01", "2020-03-02", "2020-03-03"),
  Name = c("John", "Jim", "James"),
  Surname = c("Doe", "Due", "Deo"),
  `Some Value` = 1:3
)

# External to internal ----------------------------------------------------

test_that("Name mapping: single column, list, external -> internal", {
  is <- map_names(
    mapping = confx::conf_get("cols/global/id", from = Sys.getenv("R_CONFIG_NAMES")),
    from = "external",
    to = "internal"
  )

  should <- list(id = "Some ID")

  expect_equal(is, should)
})

test_that("Name mapping: single column, character, external -> internal", {
  is <- map_names(
    mapping = "cols/global/id",
    from = "external",
    to = "internal"
  )

  should <- list(id = "Some ID")

  expect_equal(is, should)
})

test_that("Name mapping: multiple columns, list, external -> internal", {
  is <- map_names(
    mapping = list(
      confx::conf_get("cols/global/id", from = Sys.getenv("R_CONFIG_NAMES")),
      confx::conf_get("cols/global/date", from = Sys.getenv("R_CONFIG_NAMES"))
    ),
    from = "external",
    to = "internal"
  )

  should <- list(id = "Some ID", date = "Date")

  expect_equal(is, should)
})

test_that("Name mapping: multiple columns, list, external -> internal", {
  is <- map_names(
    mapping = c(
      "cols/global/id",
      "cols/global/date"
    ),
    from = "external",
    to = "internal"
  )

  should <- list(id = "Some ID", date = "Date")

  expect_equal(is, should)
})

# External clean to internal ----------------------------------------------

test_that("Name mapping: single column, list, external clean -> internal", {
  is <- map_names(
    mapping = confx::conf_get("cols/global/id", from = Sys.getenv("R_CONFIG_NAMES")),
    from = "external_clean",
    to = "internal"
  )

  should <- list(id = "some_id")

  expect_equal(is, should)
})

test_that("Name mapping: single column, character, external clean -> internal", {
  is <- map_names(
    mapping = "cols/global/id",
    from = "external_clean",
    to = "internal"
  )

  should <- list(id = "some_id")

  expect_equal(is, should)
})

test_that("Name mapping: multiple columns, list, external clean -> internal", {
  is <- map_names(
    mapping = list(
      confx::conf_get("cols/global/id", from = Sys.getenv("R_CONFIG_NAMES")),
      confx::conf_get("cols/global/date", from = Sys.getenv("R_CONFIG_NAMES"))
    ),
    from = "external_clean",
    to = "internal"
  )

  should <- list(id = "some_id", date = "date")

  expect_equal(is, should)
})

test_that("Name mapping: multiple columns, list, external clean -> internal", {
  is <- map_names(
    mapping = c(
      "cols/global/id",
      "cols/global/date"
    ),
    from = "external_clean",
    to = "internal"
  )

  should <- list(id = "some_id", date = "date")

  expect_equal(is, should)
})

# Internal to external ----------------------------------------------------

test_that("Name mapping: single column, list, internal -> external", {
  is <- map_names(
    mapping = confx::conf_get("cols/global/id", from = Sys.getenv("R_CONFIG_NAMES")),
    from = "internal",
    to = "external"
  )

  should <- list(`Some ID` = "id")

  expect_equal(is, should)
})

test_that("Name mapping: single column, character, internal -> external", {
  is <- map_names(
    mapping = "cols/global/id",
    from = "internal",
    to = "external"
  )

  should <- list(`Some ID` = "id")

  expect_equal(is, should)
})

test_that("Name mapping: multiple columns, list, internal -> external", {
  is <- map_names(
    mapping = list(
      confx::conf_get("cols/global/id", from = Sys.getenv("R_CONFIG_NAMES")),
      confx::conf_get("cols/global/date", from = Sys.getenv("R_CONFIG_NAMES"))
    ),
    from = "internal",
    to = "external"
  )

  should <- list(`Some ID` = "id", Date = "date")

  expect_equal(is, should)
})

test_that("Name mapping: multiple columns, list, internal -> external", {
  is <- map_names(
    mapping = c(
      "cols/global/id",
      "cols/global/date"
    ),
    from = "internal",
    to = "external"
  )

  should <- list(`Some ID` = "id", Date = "date")

  expect_equal(is, should)
})